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=601baed778a190b580982b588ebe49ba3f762b30;hp=1952e7ded9be61bbe6cd38836f6c8c634d18ba30;hpb=3199f2a8428b5d19a3a803c1b03d9f90e4120f74;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 1952e7ded..e107fad24 100644
--- a/helm/software/matita/contribs/CoRN-Decl/algebra/CSemiGroups.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/algebra/CSemiGroups.ma
@@ -16,15 +16,15 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/algebra/CSemiGroups".
 
+include "CoRN.ma".
+
 (* $Id: CSemiGroups.v,v 1.8 2004/04/22 14:49:43 lcf Exp $ *)
 
 (*#* printing [+] %\ensuremath+% #+# *)
 
 (*#* printing {+} %\ensuremath+% #+# *)
 
-(* INCLUDE
-CSetoidInc
-*)
+include "algebra/CSetoidInc.ma".
 
 (* Begin_SpecReals *)
 
@@ -33,9 +33,11 @@ CSetoidInc
 **Definition of the notion of semigroup
 *)
 
-inline cic:/CoRN/algebra/CSemiGroups/is_CSemiGroup.con.
+inline "cic:/CoRN/algebra/CSemiGroups/is_CSemiGroup.con".
 
-inline cic:/CoRN/algebra/CSemiGroups/CSemiGroup.ind.
+inline "cic:/CoRN/algebra/CSemiGroups/CSemiGroup.ind".
+
+coercion cic:/matita/CoRN-Decl/algebra/CSemiGroups/csg_crr.con 0 (* compounds *).
 
 (*#*
 %\begin{nameconvention}%
@@ -47,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
@@ -57,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/CSemiGroup_is_CSemiGroup.con".
 
-inline cic:/CoRN/algebra/CSemiGroups/plus_assoc.con.
+inline "cic:/CoRN/algebra/CSemiGroups/plus_assoc.con".
 
 (* UNEXPORTED
-End CSemiGroup_axioms.
+End CSemiGroup_axioms
 *)
 
 (* Begin_SpecReals *)
@@ -80,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.
+inline "cic:/CoRN/algebra/CSemiGroups/plus_assoc_unfolded.con".
 
 (* UNEXPORTED
-End CSemiGroup_basics.
+End CSemiGroup_basics
 *)
 
 (* End_SpecReals *)
@@ -112,48 +118,52 @@ 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 *)
 
-inline cic:/CoRN/algebra/CSemiGroups/part_function_plus_strext.con.
+inline "cic:/CoRN/algebra/CSemiGroups/part_function_plus_strext.con".
 
-inline cic:/CoRN/algebra/CSemiGroups/Fplus.con.
+inline "cic:/CoRN/algebra/CSemiGroups/Fplus.con".
 
 (*#*
 %\begin{convention}% Let [R:G->CProp].
 %\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.
+inline "cic:/CoRN/algebra/CSemiGroups/included_FPlus.con".
 
-inline cic:/CoRN/algebra/CSemiGroups/included_FPlus'.con.
+inline "cic:/CoRN/algebra/CSemiGroups/included_FPlus'.con".
 
-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.
 *)
@@ -170,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.
+inline "cic:/CoRN/algebra/CSemiGroups/Build_SubCSemiGroup.con".
 
 (* UNEXPORTED
-End SubCSemiGroups.
+End SubCSemiGroups
 *)