X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Fcompare.ma;h=4c44c74e0b61e8e84faea821e7b771b8dab56759;hb=c99a38b6539be1eb667cced1eed2db3fc75e3162;hp=c01f089bd57005e7168515615f0e5414df8fb221;hpb=98c84d48f4511cb52c8dc03881e113bd4bd9c6ce;p=helm.git

diff --git a/helm/software/matita/library/nat/compare.ma b/helm/software/matita/library/nat/compare.ma
index c01f089bd..4c44c74e0 100644
--- a/helm/software/matita/library/nat/compare.ma
+++ b/helm/software/matita/library/nat/compare.ma
@@ -319,12 +319,12 @@ apply ((H2 H3)).
 qed.
 
 inductive cmp_cases (n,m:nat) : CProp ≝
-  | cmp_lt : n < m → cmp_cases n m
-  | cmp_eq : n = m → cmp_cases n m
+  | 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|constructor 2|constructor 3] assumption;
+[constructor 1;apply lt_to_le|constructor 1;rewrite > H|constructor 2]
+try assumption; apply le_n;
 qed.