X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Fmetrics%2FCPseudoMSpaces.ma;h=7b64208ff81a7f98bd2af521695bb4d1d63b11b3;hb=16d0ba4a14fd6bede3e8b3520af7deaefb4f8068;hp=310b633ef055a8cb0091f41622a7357647031598;hpb=7a8f91f8aa2d6ba24bf6b3093866f759ee16e690;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/metrics/CPseudoMSpaces.ma b/helm/software/matita/contribs/CoRN-Decl/metrics/CPseudoMSpaces.ma
index 310b633ef..7b64208ff 100644
--- a/helm/software/matita/contribs/CoRN-Decl/metrics/CPseudoMSpaces.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/metrics/CPseudoMSpaces.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/metrics/CPseudoMSpaces".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: CPseudoMSpaces.v,v 1.3 2004/04/23 10:01:02 lcf Exp $ *)
 
@@ -26,7 +26,7 @@ include "reals/Intervals.ma".
 *)
 
 (* UNEXPORTED
-Section Relations.
+Section Relations
 *)
 
 (*#* **Relations necessary for Pseudo Metric Spaces and 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".
+alias id "A" = "cic:/CoRN/metrics/CPseudoMSpaces/Relations/A.var".
 
-inline "cic:/CoRN/metrics/CPseudoMSpaces/d.var".
+alias id "d" = "cic:/CoRN/metrics/CPseudoMSpaces/Relations/d.var".
 
 (* UNEXPORTED
 Set Implicit Arguments.
@@ -68,11 +68,11 @@ inline "cic:/CoRN/metrics/CPseudoMSpaces/diag_zero.con".
 inline "cic:/CoRN/metrics/CPseudoMSpaces/apdiag_imp_grzero.con".
 
 (* UNEXPORTED
-End Relations.
+End Relations
 *)
 
 (* UNEXPORTED
-Section Definition_PsMS0.
+Section Definition_PsMS0
 *)
 
 (*#* **Definition of Pseudo Metric Space
@@ -87,18 +87,22 @@ inline "cic:/CoRN/metrics/CPseudoMSpaces/is_CPsMetricSpace.ind".
 
 inline "cic:/CoRN/metrics/CPseudoMSpaces/CPsMetricSpace.ind".
 
-coercion "cic:/matita/CoRN-Decl/metrics/CPseudoMSpaces/cms_crr.con" 0 (* compounds *).
+coercion cic:/matita/CoRN-Decl/metrics/CPseudoMSpaces/cms_crr.con 0 (* compounds *).
 
 (* UNEXPORTED
-End Definition_PsMS0.
+End Definition_PsMS0
 *)
 
 (* UNEXPORTED
 Implicit Arguments cms_d [c].
 *)
 
+(* NOTATION
+Infix "[-d]" := cms_d (at level 68, left associativity).
+*)
+
 (* UNEXPORTED
-Section PsMS_axioms.
+Section PsMS_axioms
 *)
 
 (*#* **Pseudo Metric Space axioms
@@ -107,7 +111,7 @@ Let [A] be a pseudo metric space.
 %\end{convention}%
 *)
 
-inline "cic:/CoRN/metrics/CPseudoMSpaces/A.var".
+alias id "A" = "cic:/CoRN/metrics/CPseudoMSpaces/PsMS_axioms/A.var".
 
 inline "cic:/CoRN/metrics/CPseudoMSpaces/CPsMetricSpace_is_CPsMetricSpace.con".
 
@@ -120,11 +124,11 @@ inline "cic:/CoRN/metrics/CPseudoMSpaces/d_pos_imp_ap.con".
 inline "cic:/CoRN/metrics/CPseudoMSpaces/d_tri_ineq.con".
 
 (* UNEXPORTED
-End PsMS_axioms.
+End PsMS_axioms
 *)
 
 (* UNEXPORTED
-Section PsMS_basics.
+Section PsMS_basics
 *)
 
 (*#* **Pseudo Metric Space basics
@@ -133,7 +137,7 @@ Let [Y] be a pseudo metric space.
 %\end{convention}%
 *)
 
-inline "cic:/CoRN/metrics/CPseudoMSpaces/Y.var".
+alias id "Y" = "cic:/CoRN/metrics/CPseudoMSpaces/PsMS_basics/Y.var".
 
 inline "cic:/CoRN/metrics/CPseudoMSpaces/rev_tri_ineq.con".
 
@@ -149,11 +153,11 @@ inline "cic:/CoRN/metrics/CPseudoMSpaces/pos_imp_ap_imp_diag_zero.con".
 inline "cic:/CoRN/metrics/CPseudoMSpaces/is_CPsMetricSpace_diag_zero.con".
 
 (* UNEXPORTED
-End PsMS_basics.
+End PsMS_basics
 *)
 
 (* UNEXPORTED
-Section Zerof.
+Section Zerof
 *)
 
 (*#* **Zero function
@@ -183,6 +187,6 @@ inline "cic:/CoRN/metrics/CPseudoMSpaces/zf_is_CPsMetricSpace.con".
 inline "cic:/CoRN/metrics/CPseudoMSpaces/zf_as_CPsMetricSpace.con".
 
 (* UNEXPORTED
-End Zerof.
+End Zerof
 *)