X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fnlibrary%2Fnat%2Fcompare.ma;h=354e61a5a3b80d479ca22835b5f96d2fd852f87d;hb=25c634037771dff0138e5e8e3d4378183ff49b86;hp=2014d2aa4218d3ea35c6303b5a215ec5feb9dc45;hpb=c6d3537eee27d05490a9555cc7326bc954b356c5;p=helm.git

diff --git a/helm/software/matita/nlibrary/nat/compare.ma b/helm/software/matita/nlibrary/nat/compare.ma
index 2014d2aa4..354e61a5a 100644
--- a/helm/software/matita/nlibrary/nat/compare.ma
+++ b/helm/software/matita/nlibrary/nat/compare.ma
@@ -18,14 +18,14 @@ include "datatypes/bool.ma".
 naxiom decompose1: ¬(lt O O).
 naxiom decompose2: ∀n. ¬(lt (S n) O).
 
-ndefinition ltb: ∀n,m:nat. lt n m ∨ ¬(lt n m).
+ndefinition ltb: nat → nat → bool.
  #n; nelim n
   [ #m; ncases m
-    [ napply or_intror; #H; napply (decompose1 H)
-    | #m'; napply or_introl; napply lt_O_Sn ]
+    [ napply false
+    | #m'; napply true ]
 ##| #n'; #Hn'; #m; ncases m
-    [ napply or_intror; #H; napply (decompose2 … H)
+    [ napply false
     | #m'; ncases (Hn' m')
-       [ #H; napply or_introl; napply le_S_S; napply H
-       | #H; napply or_intror; #K; napply H; napply le_S_S_to_le; napply K]##]
+       [ napply true
+       | napply false]##]
 nqed.