- matitaInit matitaprover matitadep matitamake:

[helm.git] / helm / software / matita / contribs / CoRN-Decl / algebra / CMonoids.ma

diff --git a/helm/software/matita/contribs/CoRN-Decl/algebra/CMonoids.ma b/helm/software/matita/contribs/CoRN-Decl/algebra/CMonoids.ma
index 2d93e16510ed3d24d24efe91906290be95f94767..d7a0d53abed640005e58420a37721db9e1af4787 100644 (file)
--- 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