]> matita.cs.unibo.it Git - helm.git/commitdiff
excede->excess
authorEnrico Tassi <enrico.tassi@inria.fr>
Thu, 6 Dec 2007 11:17:39 +0000 (11:17 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Thu, 6 Dec 2007 11:17:39 +0000 (11:17 +0000)
helm/software/matita/dama/excess.ma
helm/software/matita/dama/ordered_group.ma

index 827aaf605c621a6df1ccb30f82a409827cdce865..061d2db9be34c33904e89ffad0b9cdfa634af351 100644 (file)
@@ -132,7 +132,7 @@ lapply (exc_coreflexive E) as r; unfold coreflexive in r;
 |2: lapply (c ?? x H2) as H3; cases H3 (H4 H4); [right; assumption|cases (Lxy H4)]]
 qed.
 
-theorem lt_to_excede: ∀E:excess.∀a,b:E. (a < b) → (b ≰ a).
+theorem lt_to_excess: ∀E:excess.∀a,b:E. (a < b) → (b ≰ a).
 intros (E a b Lab); cases Lab (LEab Aab);
 cases Aab (H H); [cases (LEab H)] fold normalize (b ≰ a); assumption; (* BUG *)  
 qed.
index a00b6eb4a365ed2f398419b95475149731499769..2129aa5c709ea0d33533e06e6ccee229365f2582 100644 (file)
@@ -271,7 +271,7 @@ record togroup : Type ≝ {
 
 lemma lexxyy_lexy: ∀G:togroup. ∀x,y:G. x+x ≤ y+y → x ≤ y.
 intros (G x y H); intro H1; lapply (tog_total ??? H1) as H2;
-lapply (ltxy_ltyyxx ??? H2) as H3; lapply (lt_to_excede ??? H3) as H4;
+lapply (ltxy_ltyyxx ??? H2) as H3; lapply (lt_to_excess ??? H3) as H4;
 cases (H H4);
 qed. 
 
@@ -306,16 +306,16 @@ intros (G a b c d H1 H2); intro H3; cases (excplus_orexc ????? H3);
 qed.  
 
 lemma leplus_lt_le: ∀G:togroup.∀x,y:G. 0 ≤ x + y → x < 0 → 0 ≤ y.
-intros; intro; apply H; lapply (lt_to_excede ??? l);
+intros; intro; apply H; lapply (lt_to_excess ??? l);
 lapply (tog_total ??? e);
 lapply (tog_total ??? Hletin);
 lapply (ltplus ????? Hletin2 Hletin1);
 apply (exc_rewl ??? (0+0)); [apply eq_sym; apply zero_neutral]
-apply lt_to_excede; assumption;
+apply lt_to_excess; assumption;
 qed. 
 
 lemma ltplus_orlt: ∀G:togroup.∀a,b,c,d:G. a+c < b + d →  a < b ∨ c < d.
-intros (G a b c d H1 H2); lapply (lt_to_excede ??? H1);
+intros (G a b c d H1 H2); lapply (lt_to_excess ??? H1);
 cases (excplus_orexc ????? Hletin); [left|right] apply tog_total; assumption;
 qed.