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 $ *)
include "reals/RealLists.ma".
(* UNEXPORTED
-Section Intervals.
+Section Intervals
*)
(*#* * Intervals
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".
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".
inline "cic:/CoRN/reals/Intervals/compact_map3.con".
(* UNEXPORTED
-End More_Intervals.
+End More_Intervals
*)
(* UNEXPORTED
*)
(* UNEXPORTED
-Section Totally_Bounded.
+Section Totally_Bounded
*)
(*#* ** Totally Bounded
(* 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 *)
(* 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
%\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].
inline "cic:/CoRN/reals/Intervals/included3_compact.con".
(* UNEXPORTED
-End Compact.
+End Compact
*)
(* UNEXPORTED