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=fdda444a05fe4c68c925cd94e4e3a38c93d0c35f;hp=2d93e16510ed3d24d24efe91906290be95f94767;hpb=3199f2a8428b5d19a3a803c1b03d9f90e4120f74;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 2d93e1651..d7a0d53ab 100644
--- a/helm/software/matita/contribs/CoRN-Decl/algebra/CMonoids.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/algebra/CMonoids.ma
@@ -16,13 +16,13 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/algebra/CMonoids".
 
+include "CoRN.ma".
+
 (* $Id: CMonoids.v,v 1.3 2004/04/07 15:07:57 lcf Exp $ *)
 
 (*#* printing Zero %\ensuremath{\mathbf0}% #0# *)
 
-(* INCLUDE
-CSemiGroups
-*)
+include "algebra/CSemiGroups.ma".
 
 (* Begin_SpecReals *)
 
@@ -31,11 +31,11 @@ CSemiGroups
 ** Definition of monoids
 *)
 
-inline cic:/CoRN/algebra/CMonoids/is_rht_unit.con.
+inline "cic:/CoRN/algebra/CMonoids/is_rht_unit.con".
 
 (* End_SpecReals *)
 
-inline cic:/CoRN/algebra/CMonoids/is_lft_unit.con.
+inline "cic:/CoRN/algebra/CMonoids/is_lft_unit.con".
 
 (* UNEXPORTED
 Implicit Arguments is_lft_unit [S].
@@ -47,9 +47,11 @@ Implicit Arguments is_lft_unit [S].
 Implicit Arguments is_rht_unit [S].
 *)
 
-inline cic:/CoRN/algebra/CMonoids/is_CMonoid.ind.
+inline "cic:/CoRN/algebra/CMonoids/is_CMonoid.ind".
+
+inline "cic:/CoRN/algebra/CMonoids/CMonoid.ind".
 
-inline cic:/CoRN/algebra/CMonoids/CMonoid.ind.
+coercion cic:/matita/CoRN-Decl/algebra/CMonoids/cm_crr.con 0 (* compounds *).
 
 (*#*
 %\begin{nameconvention}%
@@ -68,7 +70,11 @@ In lemmas we will continue to write [x [#] Zero], rather than
 e.g. for the setoid of non-zeros.
 *)
 
-inline cic:/CoRN/algebra/CMonoids/nonZeroP.con.
+(* NOTATION
+Notation Zero := (cm_unit _).
+*)
+
+inline "cic:/CoRN/algebra/CMonoids/nonZeroP.con".
 
 (* End_SpecReals *)
 
@@ -83,19 +89,19 @@ 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.
+inline "cic:/CoRN/algebra/CMonoids/CMonoid_is_CMonoid.con".
 
-inline cic:/CoRN/algebra/CMonoids/cm_rht_unit.con.
+inline "cic:/CoRN/algebra/CMonoids/cm_rht_unit.con".
 
-inline cic:/CoRN/algebra/CMonoids/cm_lft_unit.con.
+inline "cic:/CoRN/algebra/CMonoids/cm_lft_unit.con".
 
 (* UNEXPORTED
-End CMonoid_axioms.
+End CMonoid_axioms
 *)
 
 (*#*
@@ -105,22 +111,22 @@ 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.
+inline "cic:/CoRN/algebra/CMonoids/cm_rht_unit_unfolded.con".
 
-inline cic:/CoRN/algebra/CMonoids/cm_lft_unit_unfolded.con.
+inline "cic:/CoRN/algebra/CMonoids/cm_lft_unit_unfolded.con".
 
 (* UNEXPORTED
 Hint Resolve cm_rht_unit_unfolded cm_lft_unit_unfolded: algebra.
 *)
 
-inline cic:/CoRN/algebra/CMonoids/cm_unit_unique_lft.con.
+inline "cic:/CoRN/algebra/CMonoids/cm_unit_unique_lft.con".
 
-inline cic:/CoRN/algebra/CMonoids/cm_unit_unique_rht.con.
+inline "cic:/CoRN/algebra/CMonoids/cm_unit_unique_rht.con".
 
 (* Begin_SpecReals *)
 
@@ -128,7 +134,7 @@ inline cic:/CoRN/algebra/CMonoids/cm_unit_unique_rht.con.
 The proof component of the monoid is irrelevant.
 *)
 
-inline cic:/CoRN/algebra/CMonoids/is_CMonoid_proof_irr.con.
+inline "cic:/CoRN/algebra/CMonoids/is_CMonoid_proof_irr.con".
 
 (* End_SpecReals *)
 
@@ -140,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/ismon_scrr.con".
 
-inline cic:/CoRN/algebra/CMonoids/Build_SubCMonoid.con.
+inline "cic:/CoRN/algebra/CMonoids/Build_SubCMonoid.con".
 
 (* UNEXPORTED
-End SubCMonoids.
+End SubCMonoids
 *)
 
 (* UNEXPORTED
-End CMonoid_basics.
+End CMonoid_basics
 *)
 
 (* UNEXPORTED