X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Falgebra%2FCSemiGroups.ma;h=e107fad247c01236a9549baa9a3c6c23b1eb5dc3;hb=bf0cc84dcef9ae3d2145e79754bb39feb3985574;hp=b63dd3175df048d7424ffa43d596363e13088f61;hpb=7a8f91f8aa2d6ba24bf6b3093866f759ee16e690;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/algebra/CSemiGroups.ma b/helm/software/matita/contribs/CoRN-Decl/algebra/CSemiGroups.ma
index b63dd3175..e107fad24 100644
--- a/helm/software/matita/contribs/CoRN-Decl/algebra/CSemiGroups.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/algebra/CSemiGroups.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/algebra/CSemiGroups".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: CSemiGroups.v,v 1.8 2004/04/22 14:49:43 lcf Exp $ *)
 
@@ -37,7 +37,7 @@ inline "cic:/CoRN/algebra/CSemiGroups/is_CSemiGroup.con".
 
 inline "cic:/CoRN/algebra/CSemiGroups/CSemiGroup.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CSemiGroups/csg_crr.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CSemiGroups/csg_crr.con 0 (* compounds *).
 
 (*#*
 %\begin{nameconvention}%
@@ -49,6 +49,10 @@ In the %{\em %names%}% of lemmas, we will denote [[+]] with [plus].
 Implicit Arguments csg_op [c].
 *)
 
+(* NOTATION
+Infix "[+]" := csg_op (at level 50, left associativity).
+*)
+
 (* End_SpecReals *)
 
 (*#* **Semigroup axioms
@@ -59,17 +63,17 @@ The axiomatic properties of a semi group.
 *)
 
 (* UNEXPORTED
-Section CSemiGroup_axioms.
+Section CSemiGroup_axioms
 *)
 
-inline "cic:/CoRN/algebra/CSemiGroups/G.var".
+alias id "G" = "cic:/CoRN/algebra/CSemiGroups/CSemiGroup_axioms/G.var".
 
 inline "cic:/CoRN/algebra/CSemiGroups/CSemiGroup_is_CSemiGroup.con".
 
 inline "cic:/CoRN/algebra/CSemiGroups/plus_assoc.con".
 
 (* UNEXPORTED
-End CSemiGroup_axioms.
+End CSemiGroup_axioms
 *)
 
 (* Begin_SpecReals *)
@@ -82,17 +86,17 @@ Let [G] be a semi-group.
 *)
 
 (* UNEXPORTED
-Section CSemiGroup_basics.
+Section CSemiGroup_basics
 *)
 
-inline "cic:/CoRN/algebra/CSemiGroups/G.var".
+alias id "G" = "cic:/CoRN/algebra/CSemiGroups/CSemiGroup_basics/G.var".
 
 (* End_SpecReals *)
 
 inline "cic:/CoRN/algebra/CSemiGroups/plus_assoc_unfolded.con".
 
 (* UNEXPORTED
-End CSemiGroup_basics.
+End CSemiGroup_basics
 *)
 
 (* End_SpecReals *)
@@ -114,20 +118,20 @@ At this stage, we will always consider automorphisms; we %{\em %could%}% treat t
 *)
 
 (* UNEXPORTED
-Section Part_Function_Plus.
+Section Part_Function_Plus
 *)
 
-inline "cic:/CoRN/algebra/CSemiGroups/G.var".
+alias id "G" = "cic:/CoRN/algebra/CSemiGroups/Part_Function_Plus/G.var".
 
-inline "cic:/CoRN/algebra/CSemiGroups/F.var".
+alias id "F" = "cic:/CoRN/algebra/CSemiGroups/Part_Function_Plus/F.var".
 
-inline "cic:/CoRN/algebra/CSemiGroups/F'.var".
+alias id "F'" = "cic:/CoRN/algebra/CSemiGroups/Part_Function_Plus/F'.var".
 
 (* begin hide *)
 
-inline "cic:/CoRN/algebra/CSemiGroups/P.con".
+inline "cic:/CoRN/algebra/CSemiGroups/Part_Function_Plus/P.con" "Part_Function_Plus__".
 
-inline "cic:/CoRN/algebra/CSemiGroups/Q.con".
+inline "cic:/CoRN/algebra/CSemiGroups/Part_Function_Plus/Q.con" "Part_Function_Plus__".
 
 (* end hide *)
 
@@ -140,7 +144,7 @@ inline "cic:/CoRN/algebra/CSemiGroups/Fplus.con".
 %\end{convention}%
 *)
 
-inline "cic:/CoRN/algebra/CSemiGroups/R.var".
+alias id "R" = "cic:/CoRN/algebra/CSemiGroups/Part_Function_Plus/R.var".
 
 inline "cic:/CoRN/algebra/CSemiGroups/included_FPlus.con".
 
@@ -149,13 +153,17 @@ inline "cic:/CoRN/algebra/CSemiGroups/included_FPlus'.con".
 inline "cic:/CoRN/algebra/CSemiGroups/included_FPlus''.con".
 
 (* UNEXPORTED
-End Part_Function_Plus.
+End Part_Function_Plus
 *)
 
 (* UNEXPORTED
 Implicit Arguments Fplus [G].
 *)
 
+(* NOTATION
+Infix "{+}" := Fplus (at level 50, left associativity).
+*)
+
 (* UNEXPORTED
 Hint Resolve included_FPlus : included.
 *)
@@ -172,20 +180,20 @@ predicate on the semi-group which is preserved by [[+]].
 *)
 
 (* UNEXPORTED
-Section SubCSemiGroups.
+Section SubCSemiGroups
 *)
 
-inline "cic:/CoRN/algebra/CSemiGroups/csg.var".
+alias id "csg" = "cic:/CoRN/algebra/CSemiGroups/SubCSemiGroups/csg.var".
 
-inline "cic:/CoRN/algebra/CSemiGroups/P.var".
+alias id "P" = "cic:/CoRN/algebra/CSemiGroups/SubCSemiGroups/P.var".
 
-inline "cic:/CoRN/algebra/CSemiGroups/op_pres_P.var".
+alias id "op_pres_P" = "cic:/CoRN/algebra/CSemiGroups/SubCSemiGroups/op_pres_P.var".
 
-inline "cic:/CoRN/algebra/CSemiGroups/subcrr.con".
+inline "cic:/CoRN/algebra/CSemiGroups/SubCSemiGroups/subcrr.con" "SubCSemiGroups__".
 
 inline "cic:/CoRN/algebra/CSemiGroups/Build_SubCSemiGroup.con".
 
 (* UNEXPORTED
-End SubCSemiGroups.
+End SubCSemiGroups
 *)