// ************************************************************************** //
//                                                                            //
//    eses                   eses                                             //
//   eses                     eses                                            //
//  eses    eseses  esesese    eses   Embedded Systems Group                  //
//  ese    ese  ese ese         ese                                           //
//  ese    eseseses eseseses    ese   Department of Computer Science          //
//  eses   eses          ese   eses                                           //
//   eses   eseses  eseseses  eses    University of Kaiserslautern            //
//    eses                   eses                                             //
//                                                                            //
// ************************************************************************** //
// The following module implements comparison of 2-complement numbers.        //
// The depth of the algorithm below is O(N), which can be obviously improved  //
// to O(log(N)) using a parallel prefix computation. Alternatively, we refer  //
// to IntSubCLA whas has optimal depth O(log(N)).                             //
// ************************************************************************** //

macro N = 4;    // number of digits used
macro dval(x,i,k) = (i==k-1 ? -(x[i]?1:0) : (x[i]?1:0));
macro intval(x,k) = sum(i=0..k-1) (dval(x,i,k) * exp(2,i));


module IntLes([N]bool ?x,?y,bool les,eqq) {
    event [N+1]bool ls,eq;
    
    ls[N] = false;
    eq[N] = true;
    for(i=0..N-1)
        let(xi = (i==N-1 ? !x[i] : x[i]))
        let(yi = (i==N-1 ? !y[i] : y[i]))
        LesCell(ls[i+1],eq[i+1],xi,yi,ls[i],eq[i]);
    les = ls[0];
    eqq = eq[0];
    assert(les <-> intval(x,N) <  intval(y,N));
    assert(eqq <-> intval(x,N) == intval(y,N));
}