intOrd : int -> int -> orderingintto : int toto|- intOrd = TO_of_LinearOrder $<
|- intto = TO intOrd
|- !m n. intOrd (&BIT1 m) (-&n) = GREATER
|- !n. BIT1 n <> 0
|- !m n. intOrd (&BIT2 m) (-&n) = GREATER
|- !n. BIT2 n <> 0
|- intOrd (&ZERO) (-&ZERO) = EQUAL
|- apto intto = intOrd
|- !m n. intOrd (&m) (-&BIT1 n) = GREATER
|- !m n. intOrd (&m) (-&BIT2 n) = GREATER
|- !m n. intOrd (-&BIT1 m) (&n) = LESS
|- !m n. intOrd (-&BIT2 m) (&n) = LESS
|- intOrd (-&ZERO) (&ZERO) = EQUAL
|- !m n. intOrd (-&m) (&BIT1 n) = LESS
|- !m n. intOrd (-&m) (&BIT2 n) = LESS
|- !m n. intOrd (-&m) (-&n) = numOrd n m
|- !m n. intOrd (&m) (&n) = numOrd m n