fact: Definition slt_list_big_endian (x y: list bool) := match x, y with | nil, _ => false | _ , nil => false | xi :: nil, yi :: nil => andb xi (negb yi) | xi :: x', yi :: y' => orb (andb (Bool.eqb xi yi) (ult_list_big_endian x' y')) (andb xi (negb yi)) end.
imports: List Bool NArith Psatz Int63 Nnat ZArith Misc ProofIrrelevance