int__Lex2.ml 455 Bytes
Newer Older
1 2 3 4 5 6
(* This file has been generated from Why3 theory int.Lex2 *)

let lt_nat (x: Why3__BuiltIn.int) (y: Why3__BuiltIn.int) : bool =
  Int__Int.infix_lseq (Why3__BuiltIn.int_constant "0") y &&
  Int__Int.infix_ls x y

7
let lex (x: (Why3__BuiltIn.int * Why3__BuiltIn.int)) (x1:
8 9 10 11 12 13 14
  (Why3__BuiltIn.int * Why3__BuiltIn.int)) : bool =
  let (fst1, snd1) = x in
  let (fst2, snd2) = x1 in
  Int__Int.infix_ls fst1 fst2 || fst1 = fst2 && Int__Int.infix_ls snd1 snd2