X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Freals%2FIntervals.ma;h=356ae30a17922b87ca3b1bf0d713e4fb90a1ef6c;hb=a88be1ca42c0969dbab9a5c76240f5931df876d9;hp=01ce8de29026e91ab3aff0695b3998bb06bf856a;hpb=7a8f91f8aa2d6ba24bf6b3093866f759ee16e690;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/reals/Intervals.ma b/helm/software/matita/contribs/CoRN-Decl/reals/Intervals.ma
index 01ce8de29..356ae30a1 100644
--- a/helm/software/matita/contribs/CoRN-Decl/reals/Intervals.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/reals/Intervals.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/reals/Intervals".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: Intervals.v,v 1.10 2004/04/23 10:01:04 lcf Exp $ *)
 
@@ -25,7 +25,7 @@ include "algebra/CSetoidInc.ma".
 include "reals/RealLists.ma".
 
 (* UNEXPORTED
-Section Intervals.
+Section Intervals
 *)
 
 (*#* * Intervals
@@ -49,11 +49,11 @@ As expected, both [a] and [b] are members of [[a,b]].  Also they are
 members of the interval [[Min(a,b),Max(a,b)]].
 *)
 
-inline "cic:/CoRN/reals/Intervals/a.var".
+alias id "a" = "cic:/CoRN/reals/Intervals/Intervals/a.var".
 
-inline "cic:/CoRN/reals/Intervals/b.var".
+alias id "b" = "cic:/CoRN/reals/Intervals/Intervals/b.var".
 
-inline "cic:/CoRN/reals/Intervals/Hab.var".
+alias id "Hab" = "cic:/CoRN/reals/Intervals/Intervals/Hab.var".
 
 inline "cic:/CoRN/reals/Intervals/compact_inc_lft.con".
 
@@ -89,15 +89,23 @@ returns the restriction $F|_P$# of F to P#.
 inline "cic:/CoRN/reals/Intervals/Frestr.con".
 
 (* UNEXPORTED
-End Intervals.
+End Intervals
+*)
+
+(* NOTATION
+Notation Compact := (compact _ _).
 *)
 
 (* UNEXPORTED
 Implicit Arguments Frestr [F P].
 *)
 
+(* NOTATION
+Notation FRestr := (Frestr (compact_wd _ _ _)).
+*)
+
 (* UNEXPORTED
-Section More_Intervals.
+Section More_Intervals
 *)
 
 inline "cic:/CoRN/reals/Intervals/included_refl'.con".
@@ -111,7 +119,7 @@ inline "cic:/CoRN/reals/Intervals/compact_map2.con".
 inline "cic:/CoRN/reals/Intervals/compact_map3.con".
 
 (* UNEXPORTED
-End More_Intervals.
+End More_Intervals
 *)
 
 (* UNEXPORTED
@@ -119,7 +127,7 @@ Hint Resolve included_refl' compact_map1 compact_map2 compact_map3 : included.
 *)
 
 (* UNEXPORTED
-Section Totally_Bounded.
+Section Totally_Bounded
 *)
 
 (*#* ** Totally Bounded
@@ -164,9 +172,9 @@ inline "cic:/CoRN/reals/Intervals/fun_lub_IR.con".
 
 (* begin hide *)
 
-inline "cic:/CoRN/reals/Intervals/aux_seq_lub.con".
+inline "cic:/CoRN/reals/Intervals/Totally_Bounded/aux_seq_lub.con" "Totally_Bounded__".
 
-inline "cic:/CoRN/reals/Intervals/aux_seq_lub_prop.con".
+inline "cic:/CoRN/reals/Intervals/Totally_Bounded/aux_seq_lub_prop.con" "Totally_Bounded__".
 
 (* end hide *)
 
@@ -178,20 +186,20 @@ inline "cic:/CoRN/reals/Intervals/totally_bounded_has_lub.con".
 
 (* begin hide *)
 
-inline "cic:/CoRN/reals/Intervals/aux_seq_glb.con".
+inline "cic:/CoRN/reals/Intervals/Totally_Bounded/aux_seq_glb.con" "Totally_Bounded__".
 
-inline "cic:/CoRN/reals/Intervals/aux_seq_glb_prop.con".
+inline "cic:/CoRN/reals/Intervals/Totally_Bounded/aux_seq_glb_prop.con" "Totally_Bounded__".
 
 (* end hide *)
 
 inline "cic:/CoRN/reals/Intervals/totally_bounded_has_glb.con".
 
 (* UNEXPORTED
-End Totally_Bounded.
+End Totally_Bounded
 *)
 
 (* UNEXPORTED
-Section Compact.
+Section Compact
 *)
 
 (*#* ** Compact sets
@@ -219,23 +227,23 @@ a positive real number.
 %\end{convention}%
 *)
 
-inline "cic:/CoRN/reals/Intervals/a.var".
+alias id "a" = "cic:/CoRN/reals/Intervals/Compact/a.var".
 
-inline "cic:/CoRN/reals/Intervals/b.var".
+alias id "b" = "cic:/CoRN/reals/Intervals/Compact/b.var".
 
-inline "cic:/CoRN/reals/Intervals/Hab.var".
+alias id "Hab" = "cic:/CoRN/reals/Intervals/Compact/Hab.var".
 
 (* begin hide *)
 
-inline "cic:/CoRN/reals/Intervals/I.con".
+inline "cic:/CoRN/reals/Intervals/Compact/I.con" "Compact__".
 
 (* end hide *)
 
-inline "cic:/CoRN/reals/Intervals/Hab'.var".
+alias id "Hab'" = "cic:/CoRN/reals/Intervals/Compact/Hab'.var".
 
-inline "cic:/CoRN/reals/Intervals/e.var".
+alias id "e" = "cic:/CoRN/reals/Intervals/Compact/e.var".
 
-inline "cic:/CoRN/reals/Intervals/He.var".
+alias id "He" = "cic:/CoRN/reals/Intervals/Compact/He.var".
 
 (*#*
 We start by finding a natural number [n] such that [(b[-]a) [/] n [<] e].
@@ -296,7 +304,7 @@ inline "cic:/CoRN/reals/Intervals/included2_compact.con".
 inline "cic:/CoRN/reals/Intervals/included3_compact.con".
 
 (* UNEXPORTED
-End Compact.
+End Compact
 *)
 
 (* UNEXPORTED