]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/contribs/CoRN-Decl/reals/IVT.ma
- transcript: patched to generate aliases instead of inlined variables
[helm.git] / helm / software / matita / contribs / CoRN-Decl / reals / IVT.ma
index 7da887f6afe319ca7e8c76f98504df6dca0a9dca..19dacb67a89ea750c4d3cbd0d08e40cfa1852bcd 100644 (file)
@@ -23,7 +23,7 @@ include "CoRN.ma".
 include "reals/CPoly_Contin.ma".
 
 (* UNEXPORTED
-Section Nested_Intervals.
+Section Nested_Intervals
 *)
 
 (*#* * Intermediate Value Theorem
@@ -39,17 +39,17 @@ Section Nested_Intervals.
 %\end{convention}%
 *)
 
-inline "cic:/CoRN/reals/IVT/a.var".
+alias id "a" = "cic:/CoRN/reals/IVT/Nested_Intervals/a.var".
 
-inline "cic:/CoRN/reals/IVT/b.var".
+alias id "b" = "cic:/CoRN/reals/IVT/Nested_Intervals/b.var".
 
-inline "cic:/CoRN/reals/IVT/a_mon.var".
+alias id "a_mon" = "cic:/CoRN/reals/IVT/Nested_Intervals/a_mon.var".
 
-inline "cic:/CoRN/reals/IVT/b_mon.var".
+alias id "b_mon" = "cic:/CoRN/reals/IVT/Nested_Intervals/b_mon.var".
 
-inline "cic:/CoRN/reals/IVT/a_b.var".
+alias id "a_b" = "cic:/CoRN/reals/IVT/Nested_Intervals/a_b.var".
 
-inline "cic:/CoRN/reals/IVT/b_a.var".
+alias id "b_a" = "cic:/CoRN/reals/IVT/Nested_Intervals/b_a.var".
 
 inline "cic:/CoRN/reals/IVT/a_mon'.con".
 
@@ -61,7 +61,7 @@ inline "cic:/CoRN/reals/IVT/intervals_cauchy.con".
 
 (* begin hide *)
 
-inline "cic:/CoRN/reals/IVT/a'.con".
+inline "cic:/CoRN/reals/IVT/Nested_Intervals/a'.con" "Nested_Intervals__".
 
 (* end hide *)
 
@@ -71,9 +71,9 @@ inline "cic:/CoRN/reals/IVT/Cnested_intervals_limit.con".
 %\end{convention}%
 *)
 
-inline "cic:/CoRN/reals/IVT/f.var".
+alias id "f" = "cic:/CoRN/reals/IVT/Nested_Intervals/f.var".
 
-inline "cic:/CoRN/reals/IVT/f_contin.var".
+alias id "f_contin" = "cic:/CoRN/reals/IVT/Nested_Intervals/f_contin.var".
 
 inline "cic:/CoRN/reals/IVT/f_contin_pos.con".
 
@@ -81,35 +81,35 @@ inline "cic:/CoRN/reals/IVT/f_contin_neg.con".
 
 (*#* Assume also that [forall i, f (a i) [<=] Zero [<=] f (b i)]. *)
 
-inline "cic:/CoRN/reals/IVT/f_a.var".
+alias id "f_a" = "cic:/CoRN/reals/IVT/Nested_Intervals/f_a.var".
 
-inline "cic:/CoRN/reals/IVT/f_b.var".
+alias id "f_b" = "cic:/CoRN/reals/IVT/Nested_Intervals/f_b.var".
 
 inline "cic:/CoRN/reals/IVT/Cnested_intervals_zero.con".
 
 (* UNEXPORTED
-End Nested_Intervals.
+End Nested_Intervals
 *)
 
 (* UNEXPORTED
-Section Bisection.
+Section Bisection
 *)
 
 (*#* ** Bissections *)
 
-inline "cic:/CoRN/reals/IVT/f.var".
+alias id "f" = "cic:/CoRN/reals/IVT/Bisection/f.var".
 
-inline "cic:/CoRN/reals/IVT/f_apzero_interval.var".
+alias id "f_apzero_interval" = "cic:/CoRN/reals/IVT/Bisection/f_apzero_interval.var".
 
-inline "cic:/CoRN/reals/IVT/a.var".
+alias id "a" = "cic:/CoRN/reals/IVT/Bisection/a.var".
 
-inline "cic:/CoRN/reals/IVT/b.var".
+alias id "b" = "cic:/CoRN/reals/IVT/Bisection/b.var".
 
-inline "cic:/CoRN/reals/IVT/a_b.var".
+alias id "a_b" = "cic:/CoRN/reals/IVT/Bisection/a_b.var".
 
-inline "cic:/CoRN/reals/IVT/f_a.var".
+alias id "f_a" = "cic:/CoRN/reals/IVT/Bisection/f_a.var".
 
-inline "cic:/CoRN/reals/IVT/f_b.var".
+alias id "f_b" = "cic:/CoRN/reals/IVT/Bisection/f_b.var".
 
 (*#*
 %\begin{convention}% Let [Small] denote [Two[/]ThreeNZ], [lft] be [(Two[*]a[+]b) [/]ThreeNZ] and [rht] be [(a[+]Two[*]b) [/]ThreeNZ].
@@ -118,11 +118,11 @@ inline "cic:/CoRN/reals/IVT/f_b.var".
 
 (* begin hide *)
 
-inline "cic:/CoRN/reals/IVT/Small.con".
+inline "cic:/CoRN/reals/IVT/Bisection/Small.con" "Bisection__".
 
-inline "cic:/CoRN/reals/IVT/lft.con".
+inline "cic:/CoRN/reals/IVT/Bisection/lft.con" "Bisection__".
 
-inline "cic:/CoRN/reals/IVT/rht.con".
+inline "cic:/CoRN/reals/IVT/Bisection/rht.con" "Bisection__".
 
 (* end hide *)
 
@@ -143,20 +143,20 @@ Hint Resolve smaller_lft smaller_rht: algebra.
 inline "cic:/CoRN/reals/IVT/Cbisect'.con".
 
 (* UNEXPORTED
-End Bisection.
+End Bisection
 *)
 
 (* UNEXPORTED
-Section Bisect_Interval.
+Section Bisect_Interval
 *)
 
-inline "cic:/CoRN/reals/IVT/f.var".
+alias id "f" = "cic:/CoRN/reals/IVT/Bisect_Interval/f.var".
 
-inline "cic:/CoRN/reals/IVT/C_f_apzero_interval.var".
+alias id "C_f_apzero_interval" = "cic:/CoRN/reals/IVT/Bisect_Interval/C_f_apzero_interval.var".
 
 (* begin hide *)
 
-inline "cic:/CoRN/reals/IVT/Small.con".
+inline "cic:/CoRN/reals/IVT/Bisect_Interval/Small.con" "Bisect_Interval__".
 
 (* end hide *)
 
@@ -169,44 +169,44 @@ inline "cic:/CoRN/reals/IVT/bisect.con".
 inline "cic:/CoRN/reals/IVT/bisect_prop.con".
 
 (* UNEXPORTED
-End Bisect_Interval.
+End Bisect_Interval
 *)
 
 (* UNEXPORTED
-Section IVT_Op.
+Section IVT_Op
 *)
 
 (*#* ** IVT for operations
 Same conventions as before.
 *)
 
-inline "cic:/CoRN/reals/IVT/f.var".
+alias id "f" = "cic:/CoRN/reals/IVT/IVT_Op/f.var".
 
-inline "cic:/CoRN/reals/IVT/f_contin.var".
+alias id "f_contin" = "cic:/CoRN/reals/IVT/IVT_Op/f_contin.var".
 
-inline "cic:/CoRN/reals/IVT/f_apzero_interval.var".
+alias id "f_apzero_interval" = "cic:/CoRN/reals/IVT/IVT_Op/f_apzero_interval.var".
 
-inline "cic:/CoRN/reals/IVT/a.var".
+alias id "a" = "cic:/CoRN/reals/IVT/IVT_Op/a.var".
 
-inline "cic:/CoRN/reals/IVT/b.var".
+alias id "b" = "cic:/CoRN/reals/IVT/IVT_Op/b.var".
 
-inline "cic:/CoRN/reals/IVT/a_b.var".
+alias id "a_b" = "cic:/CoRN/reals/IVT/IVT_Op/a_b.var".
 
-inline "cic:/CoRN/reals/IVT/f_a.var".
+alias id "f_a" = "cic:/CoRN/reals/IVT/IVT_Op/f_a.var".
 
-inline "cic:/CoRN/reals/IVT/f_b.var".
+alias id "f_b" = "cic:/CoRN/reals/IVT/IVT_Op/f_b.var".
 
 (* begin hide *)
 
-inline "cic:/CoRN/reals/IVT/Small.con".
+inline "cic:/CoRN/reals/IVT/IVT_Op/Small.con" "IVT_Op__".
 
 (* end hide *)
 
 inline "cic:/CoRN/reals/IVT/interval_sequence.con".
 
-inline "cic:/CoRN/reals/IVT/a_.con".
+inline "cic:/CoRN/reals/IVT/IVT_Op/a_.con" "IVT_Op__".
 
-inline "cic:/CoRN/reals/IVT/b_.con".
+inline "cic:/CoRN/reals/IVT/IVT_Op/b_.con" "IVT_Op__".
 
 inline "cic:/CoRN/reals/IVT/intervals_smaller.con".
 
@@ -219,11 +219,11 @@ inline "cic:/CoRN/reals/IVT/intervals_small.con".
 inline "cic:/CoRN/reals/IVT/Civt_op.con".
 
 (* UNEXPORTED
-End IVT_Op.
+End IVT_Op
 *)
 
 (* UNEXPORTED
-Section IVT_Poly.
+Section IVT_Poly
 *)
 
 (*#* ** IVT for polynomials *)
@@ -231,6 +231,6 @@ Section IVT_Poly.
 inline "cic:/CoRN/reals/IVT/Civt_poly.con".
 
 (* UNEXPORTED
-End IVT_Poly.
+End IVT_Poly
 *)