X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fdama%2Fordered_groups.ma;h=0d13eda043bbf0b99e3bedded4016c7d4a2eafb8;hb=12ebc9483bec78f948de80e7e230c98488890f4d;hp=d9be248d0c01f45094300432a1012c152d130746;hpb=6abaacea86e652ea0dc7cd2f8ab04005251532cb;p=helm.git

diff --git a/helm/software/matita/dama/ordered_groups.ma b/helm/software/matita/dama/ordered_groups.ma
index d9be248d0..0d13eda04 100644
--- a/helm/software/matita/dama/ordered_groups.ma
+++ b/helm/software/matita/dama/ordered_groups.ma
@@ -32,27 +32,36 @@ qed.
 
 coercion cic:/matita/ordered_groups/og_abelian_group.con.
 
-(* CSC: NO! Cosi' e' nel frammento negativo. Devi scriverlo con l'eccedenza!
-   Tutto il resto del file e' da rigirare nel frammento positivo.
-*)
 record ogroup : Type ≝ { 
   og_carr:> pre_ogroup;
   exc_canc_plusr: ∀f,g,h:og_carr. f+h ≰ g+h → f ≰ g
 }.
 
+notation > "'Ex'≪" non associative with precedence 50 for
+ @{'excedencerewritel}.
+ 
+interpretation "exc_rewl" 'excedencerewritel = 
+ (cic:/matita/excedence/exc_rewl.con _ _ _).
+
+notation > "'Ex'≫" non associative with precedence 50 for
+ @{'excedencerewriter}.
+ 
+interpretation "exc_rewr" 'excedencerewriter = 
+ (cic:/matita/excedence/exc_rewr.con _ _ _).
+
 lemma fexc_plusr: 
   ∀G:ogroup.∀x,y,z:G. x ≰ y → x+z ≰ y + z.
 intros 5 (G x y z L); apply (exc_canc_plusr ??? (-z));
-apply (exc_rewl ??? (x + (z + -z)) (plus_assoc ????));
-apply (exc_rewl ??? (x + (-z + z)) (plus_comm ??z));
-apply (exc_rewl ??? (x+0) (opp_inverse ??));
-apply (exc_rewl ??? (0+x) (plus_comm ???));
-apply (exc_rewl ??? x (zero_neutral ??));
-apply (exc_rewr ??? (y + (z + -z)) (plus_assoc ????));
-apply (exc_rewr ??? (y + (-z + z)) (plus_comm ??z));
-apply (exc_rewr ??? (y+0) (opp_inverse ??));
-apply (exc_rewr ??? (0+y) (plus_comm ???));
-apply (exc_rewr ??? y (zero_neutral ??) L);
+apply (Ex≪  (x + (z + -z)) (plus_assoc ????));
+apply (Ex≪  (x + (-z + z)) (plus_comm ??z));
+apply (Ex≪  (x+0) (opp_inverse ??));
+apply (Ex≪  (0+x) (plus_comm ???));
+apply (Ex≪  x (zero_neutral ??));
+apply (Ex≫ (y + (z + -z)) (plus_assoc ????));
+apply (Ex≫  (y + (-z + z)) (plus_comm ??z));
+apply (Ex≫  (y+0) (opp_inverse ??));
+apply (Ex≫  (0+y) (plus_comm ???));
+apply (Ex≫  y (zero_neutral ??) L);
 qed.
 
 coercion cic:/matita/ordered_groups/fexc_plusr.con nocomposites.