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

diff --git a/helm/software/matita/contribs/CoRN-Decl/algebra/CMonoids.ma b/helm/software/matita/contribs/CoRN-Decl/algebra/CMonoids.ma
index 553a53083..d7a0d53ab 100644
--- a/helm/software/matita/contribs/CoRN-Decl/algebra/CMonoids.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/algebra/CMonoids.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/algebra/CMonoids".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: CMonoids.v,v 1.3 2004/04/07 15:07:57 lcf Exp $ *)
 
@@ -51,7 +51,7 @@ inline "cic:/CoRN/algebra/CMonoids/is_CMonoid.ind".
 
 inline "cic:/CoRN/algebra/CMonoids/CMonoid.ind".
 
-coercion "cic:/matita/CoRN-Decl/algebra/CMonoids/cm_crr.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/algebra/CMonoids/cm_crr.con 0 (* compounds *).
 
 (*#*
 %\begin{nameconvention}%
@@ -70,6 +70,10 @@ In lemmas we will continue to write [x [#] Zero], rather than
 e.g. for the setoid of non-zeros.
 *)
 
+(* NOTATION
+Notation Zero := (cm_unit _).
+*)
+
 inline "cic:/CoRN/algebra/CMonoids/nonZeroP.con".
 
 (* End_SpecReals *)
@@ -85,10 +89,10 @@ Implicit Arguments nonZeroP [M].
 *)
 
 (* UNEXPORTED
-Section CMonoid_axioms.
+Section CMonoid_axioms
 *)
 
-inline "cic:/CoRN/algebra/CMonoids/M.var".
+alias id "M" = "cic:/CoRN/algebra/CMonoids/CMonoid_axioms/M.var".
 
 inline "cic:/CoRN/algebra/CMonoids/CMonoid_is_CMonoid.con".
 
@@ -97,7 +101,7 @@ inline "cic:/CoRN/algebra/CMonoids/cm_rht_unit.con".
 inline "cic:/CoRN/algebra/CMonoids/cm_lft_unit.con".
 
 (* UNEXPORTED
-End CMonoid_axioms.
+End CMonoid_axioms
 *)
 
 (*#*
@@ -107,10 +111,10 @@ End CMonoid_axioms.
 *)
 
 (* UNEXPORTED
-Section CMonoid_basics.
+Section CMonoid_basics
 *)
 
-inline "cic:/CoRN/algebra/CMonoids/M.var".
+alias id "M" = "cic:/CoRN/algebra/CMonoids/CMonoid_basics/M.var".
 
 inline "cic:/CoRN/algebra/CMonoids/cm_rht_unit_unfolded.con".
 
@@ -142,27 +146,27 @@ Let [P] a predicate on [M] containing [Zero] and closed under [[+]].
 *)
 
 (* UNEXPORTED
-Section SubCMonoids.
+Section SubCMonoids
 *)
 
-inline "cic:/CoRN/algebra/CMonoids/P.var".
+alias id "P" = "cic:/CoRN/algebra/CMonoids/CMonoid_basics/SubCMonoids/P.var".
 
-inline "cic:/CoRN/algebra/CMonoids/Punit.var".
+alias id "Punit" = "cic:/CoRN/algebra/CMonoids/CMonoid_basics/SubCMonoids/Punit.var".
 
-inline "cic:/CoRN/algebra/CMonoids/op_pres_P.var".
+alias id "op_pres_P" = "cic:/CoRN/algebra/CMonoids/CMonoid_basics/SubCMonoids/op_pres_P.var".
 
-inline "cic:/CoRN/algebra/CMonoids/subcrr.con".
+inline "cic:/CoRN/algebra/CMonoids/CMonoid_basics/SubCMonoids/subcrr.con" "CMonoid_basics__SubCMonoids__".
 
 inline "cic:/CoRN/algebra/CMonoids/ismon_scrr.con".
 
 inline "cic:/CoRN/algebra/CMonoids/Build_SubCMonoid.con".
 
 (* UNEXPORTED
-End SubCMonoids.
+End SubCMonoids
 *)
 
 (* UNEXPORTED
-End CMonoid_basics.
+End CMonoid_basics
 *)
 
 (* UNEXPORTED