X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcontribs%2FCoRN-Decl%2Fmetrics%2FCPseudoMSpaces.ma;h=a22750116e1910ffc44b895c3e02b9687b248da9;hb=52206fa1c090fcdc8386ec8d7e88beca089c7e39;hp=aacad54113e1a669e93c371668e73b49f845a8c9;hpb=0e0d5c57eb154bf20d101f09e560401434156c1d;p=helm.git

diff --git a/matita/contribs/CoRN-Decl/metrics/CPseudoMSpaces.ma b/matita/contribs/CoRN-Decl/metrics/CPseudoMSpaces.ma
index aacad5411..a22750116 100644
--- a/matita/contribs/CoRN-Decl/metrics/CPseudoMSpaces.ma
+++ b/matita/contribs/CoRN-Decl/metrics/CPseudoMSpaces.ma
@@ -16,11 +16,11 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/metrics/CPseudoMSpaces".
 
+include "CoRN.ma".
+
 (* $Id: CPseudoMSpaces.v,v 1.3 2004/04/23 10:01:02 lcf Exp $ *)
 
-(* INCLUDE
-Intervals
-*)
+include "reals/Intervals.ma".
 
 (*#* *Metric Spaces
 *)
@@ -35,9 +35,9 @@ Let [A : CSetoid], [d : (CSetoid_bin_fun A A IR)].
 %\end{convention}%
 *)
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/A.var.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/A.var".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/d.var.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/d.var".
 
 (* UNEXPORTED
 Set Implicit Arguments.
@@ -47,13 +47,13 @@ Set Implicit Arguments.
 Unset Strict Implicit.
 *)
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/com.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/com.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/nneg.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/nneg.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/pos_imp_ap.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/pos_imp_ap.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/tri_ineq.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/tri_ineq.con".
 
 (* UNEXPORTED
 Set Strict Implicit.
@@ -63,9 +63,9 @@ Set Strict Implicit.
 Unset Implicit Arguments.
 *)
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/diag_zero.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/diag_zero.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/apdiag_imp_grzero.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/apdiag_imp_grzero.con".
 
 (* UNEXPORTED
 End Relations.
@@ -83,9 +83,11 @@ A pseudo metric space consists of a setoid and a %''pseudo metric''% #"pseudo me
 %''distance''% #"distance"#, a binairy function that fulfils certain properties.
 *)
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/is_CPsMetricSpace.ind.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/is_CPsMetricSpace.ind".
+
+inline "cic:/CoRN/metrics/CPseudoMSpaces/CPsMetricSpace.ind".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/CPsMetricSpace.ind.
+coercion cic:/matita/CoRN-Decl/metrics/CPseudoMSpaces/cms_crr.con 0 (* compounds *).
 
 (* UNEXPORTED
 End Definition_PsMS0.
@@ -95,6 +97,10 @@ End Definition_PsMS0.
 Implicit Arguments cms_d [c].
 *)
 
+(* NOTATION
+Infix "[-d]" := cms_d (at level 68, left associativity).
+*)
+
 (* UNEXPORTED
 Section PsMS_axioms.
 *)
@@ -105,17 +111,17 @@ Let [A] be a pseudo metric space.
 %\end{convention}%
 *)
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/A.var.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/A.var".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/CPsMetricSpace_is_CPsMetricSpace.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/CPsMetricSpace_is_CPsMetricSpace.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/d_com.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/d_com.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/d_nneg.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/d_nneg.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/d_pos_imp_ap.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/d_pos_imp_ap.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/d_tri_ineq.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/d_tri_ineq.con".
 
 (* UNEXPORTED
 End PsMS_axioms.
@@ -131,20 +137,20 @@ Let [Y] be a pseudo metric space.
 %\end{convention}%
 *)
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/Y.var.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/Y.var".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/rev_tri_ineq.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/rev_tri_ineq.con".
 
 (*#*
 Instead of taking [pos_imp_ap] as axiom, 
 we could as well have taken [diag_zero]. 
 *)
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/diag_zero_imp_pos_imp_ap.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/diag_zero_imp_pos_imp_ap.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/pos_imp_ap_imp_diag_zero.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/pos_imp_ap_imp_diag_zero.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/is_CPsMetricSpace_diag_zero.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/is_CPsMetricSpace_diag_zero.con".
 
 (* UNEXPORTED
 End PsMS_basics.
@@ -162,23 +168,23 @@ Every setoid forms with the binary function that always returns zero,
 a pseudo metric space. 
 *)
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/zero_fun.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/zero_fun.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/zero_fun_strext.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/zero_fun_strext.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/Zero_fun.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/Zero_fun.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/zero_fun_com.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/zero_fun_com.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/zero_fun_nneg.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/zero_fun_nneg.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/zero_fun_pos_imp_ap.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/zero_fun_pos_imp_ap.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/zero_fun_tri_ineq.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/zero_fun_tri_ineq.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/zf_is_CPsMetricSpace.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/zf_is_CPsMetricSpace.con".
 
-inline cic:/CoRN/metrics/CPseudoMSpaces/zf_as_CPsMetricSpace.con.
+inline "cic:/CoRN/metrics/CPseudoMSpaces/zf_as_CPsMetricSpace.con".
 
 (* UNEXPORTED
 End Zerof.