proposition: Lemma leb_compare2 : forall m n : nat, PeanoNat.Nat.leb n m = true <-> (PeanoNat.Nat.compare n m = Lt \/ PeanoNat.Nat.compare n m = Eq).
proof: Proof. assert (forall c : Datatypes.comparison, c = Eq \/ c = Lt \/ c = Gt) by sauto inv: Datatypes.comparison. hauto erew: off use: Compare_dec.leb_compare. Qed.
imports: Hammer(Hammer) Arith List