X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcontribs%2FCoRN-Decl%2Freals%2FCMetricFields.ma;h=14fe73bda9e38fb5ab117201ea9a1fed091c48e8;hb=52206fa1c090fcdc8386ec8d7e88beca089c7e39;hp=755ac27b2fc39fb6dada812817eebbbdddb4b3fa;hpb=0e0d5c57eb154bf20d101f09e560401434156c1d;p=helm.git

diff --git a/matita/contribs/CoRN-Decl/reals/CMetricFields.ma b/matita/contribs/CoRN-Decl/reals/CMetricFields.ma
index 755ac27b2..14fe73bda 100644
--- a/matita/contribs/CoRN-Decl/reals/CMetricFields.ma
+++ b/matita/contribs/CoRN-Decl/reals/CMetricFields.ma
@@ -16,11 +16,11 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/reals/CMetricFields".
 
+include "CoRN.ma".
+
 (* $Id: CMetricFields.v,v 1.6 2004/04/23 10:01:03 lcf Exp $ *)
 
-(* INCLUDE
-CReals1
-*)
+include "reals/CReals1.ma".
 
 (* UNEXPORTED
 Section CMetric_Fields.
@@ -28,23 +28,29 @@ Section CMetric_Fields.
 
 (*#* *Metric Fields *)
 
-inline cic:/CoRN/reals/CMetricFields/is_CMetricField.ind.
+inline "cic:/CoRN/reals/CMetricFields/is_CMetricField.ind".
+
+inline "cic:/CoRN/reals/CMetricFields/CMetricField.ind".
 
-inline cic:/CoRN/reals/CMetricFields/CMetricField.ind.
+coercion cic:/matita/CoRN-Decl/reals/CMetricFields/cmf_crr.con 0 (* compounds *).
 
 (* UNEXPORTED
 End CMetric_Fields.
 *)
 
+(* NOTATION
+Notation MAbs := (cmf_abs _).
+*)
+
 (* UNEXPORTED
 Section basics.
 *)
 
-inline cic:/CoRN/reals/CMetricFields/MAbs_one.con.
+inline "cic:/CoRN/reals/CMetricFields/MAbs_one.con".
 
-inline cic:/CoRN/reals/CMetricFields/Hulp.con.
+inline "cic:/CoRN/reals/CMetricFields/Hulp.con".
 
-inline cic:/CoRN/reals/CMetricFields/MAbs_one_recip_one.con.
+inline "cic:/CoRN/reals/CMetricFields/MAbs_one_recip_one.con".
 
 (* end hide *)
 
@@ -56,20 +62,22 @@ End basics.
 Section CMetric_Field_Cauchy.
 *)
 
-inline cic:/CoRN/reals/CMetricFields/F.var.
+inline "cic:/CoRN/reals/CMetricFields/F.var".
 
 (*#*
 %\begin{convention}% Let [F:CMetricField].
 %\end{convention}%
 *)
 
-inline cic:/CoRN/reals/CMetricFields/MCauchy_prop.con.
+inline "cic:/CoRN/reals/CMetricFields/MCauchy_prop.con".
+
+inline "cic:/CoRN/reals/CMetricFields/MCauchySeq.ind".
 
-inline cic:/CoRN/reals/CMetricFields/MCauchySeq.ind.
+coercion cic:/matita/CoRN-Decl/reals/CMetricFields/MCS_seq.con 0 (* compounds *).
 
-inline cic:/CoRN/reals/CMetricFields/MseqLimit.con.
+inline "cic:/CoRN/reals/CMetricFields/MseqLimit.con".
 
-inline cic:/CoRN/reals/CMetricFields/is_MCauchyCompl.con.
+inline "cic:/CoRN/reals/CMetricFields/is_MCauchyCompl.con".
 
 (* UNEXPORTED
 End CMetric_Field_Cauchy.