(* *)
(**************************************************************************)
-set "baseuri" "cic:/matita/nat/compare".
-
include "datatypes/bool.ma".
include "datatypes/compare.ma".
include "nat/orders.ma".
]
qed.
+theorem leb_true_to_le:\forall n,m.
+leb n m = true \to (n \le m).
+intros 2.
+apply leb_elim
+ [intros.assumption
+ |intros.destruct H1.
+ ]
+qed.
+
+theorem leb_false_to_not_le:\forall n,m.
+leb n m = false \to \lnot (n \le m).
+intros 2.
+apply leb_elim
+ [intros.destruct H1
+ |intros.assumption
+ ]
+qed.
(*
theorem decidable_le: \forall n,m. n \leq m \lor n \nleq m.
intros.
qed.
*)
+definition ltb ≝λn,m. leb n m ∧ notb (eqb n m).
+
+theorem ltb_to_Prop :
+ ∀n,m.
+ match ltb n m with
+ [ true ⇒ n < m
+ | false ⇒ n ≮ m
+ ].
+intros;
+unfold ltb;
+apply leb_elim;
+apply eqb_elim;
+intros;
+simplify;
+[ rewrite < H;
+ apply le_to_not_lt;
+ constructor 1
+| apply (not_eq_to_le_to_lt ? ? H H1)
+| rewrite < H;
+ apply le_to_not_lt;
+ constructor 1
+| apply le_to_not_lt;
+ generalize in match (not_le_to_lt ? ? H1);
+ clear H1;
+ intro;
+ apply lt_to_le;
+ assumption
+].
+qed.
+
+theorem ltb_elim: ∀n,m:nat. ∀P:bool → Prop.
+(n < m → (P true)) → (n ≮ m → (P false)) →
+P (ltb n m).
+intros.
+cut
+(match (ltb n m) with
+[ true ⇒ n < m
+| false ⇒ n ≮ m] → (P (ltb n m))).
+apply Hcut.apply ltb_to_Prop.
+elim (ltb n m).
+apply ((H H2)).
+apply ((H1 H2)).
+qed.
+
let rec nat_compare n m: compare \def
match n with
[ O \Rightarrow
intros.simplify.reflexivity.
qed.
-theorem S_pred: \forall n:nat.lt O n \to eq nat n (S (pred n)).
-intro.elim n.apply False_ind.exact (not_le_Sn_O O H).
-apply eq_f.apply pred_Sn.
-qed.
-
theorem nat_compare_pred_pred:
\forall n,m:nat.lt O n \to lt O m \to
eq compare (nat_compare n m) (nat_compare (pred n) (pred m)).
apply ((H1 H3)).
apply ((H2 H3)).
qed.
+
+inductive cmp_cases (n,m:nat) : CProp ≝
+ | cmp_le : n ≤ m → cmp_cases n m
+ | cmp_gt : m < n → cmp_cases n m.
+
+lemma cmp_nat: ∀n,m.cmp_cases n m.
+intros; generalize in match (nat_compare_to_Prop n m);
+cases (nat_compare n m); intros;
+[constructor 1;apply lt_to_le|constructor 1;rewrite > H|constructor 2]
+try assumption; apply le_n;
+qed.