X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Freals%2FNRootIR.ma;h=0f976d765be65e4630453f83dcff9b6a98157cc9;hb=a88be1ca42c0969dbab9a5c76240f5931df876d9;hp=8b8808b6d8f49aabb0cdff1423c58a0395565210;hpb=7a8f91f8aa2d6ba24bf6b3093866f759ee16e690;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/reals/NRootIR.ma b/helm/software/matita/contribs/CoRN-Decl/reals/NRootIR.ma
index 8b8808b6d..0f976d765 100644
--- a/helm/software/matita/contribs/CoRN-Decl/reals/NRootIR.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/reals/NRootIR.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/reals/NRootIR".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: NRootIR.v,v 1.5 2004/04/23 10:01:05 lcf Exp $ *)
 
@@ -29,7 +29,7 @@ include "reals/OddPolyRootIR.ma".
 (*#* * Roots of Real Numbers *)
 
 (* UNEXPORTED
-Section NRoot.
+Section NRoot
 *)
 
 (*#* ** Existence of roots
@@ -39,24 +39,24 @@ Section NRoot.
 %\end{convention}%
 *)
 
-inline "cic:/CoRN/reals/NRootIR/n.var".
+alias id "n" = "cic:/CoRN/reals/NRootIR/NRoot/n.var".
 
-inline "cic:/CoRN/reals/NRootIR/n_pos.var".
+alias id "n_pos" = "cic:/CoRN/reals/NRootIR/NRoot/n_pos.var".
 
-inline "cic:/CoRN/reals/NRootIR/c.var".
+alias id "c" = "cic:/CoRN/reals/NRootIR/NRoot/c.var".
 
-inline "cic:/CoRN/reals/NRootIR/c_nonneg.var".
+alias id "c_nonneg" = "cic:/CoRN/reals/NRootIR/NRoot/c_nonneg.var".
 
 (* begin hide *)
 
-inline "cic:/CoRN/reals/NRootIR/p.con".
+inline "cic:/CoRN/reals/NRootIR/NRoot/p.con" "NRoot__".
 
 (* end hide *)
 
 inline "cic:/CoRN/reals/NRootIR/CnrootIR.con".
 
 (* UNEXPORTED
-End NRoot.
+End NRoot
 *)
 
 (*#* We define the root of order [n] for any nonnegative real number and 
@@ -72,7 +72,7 @@ prove its main properties:
 *)
 
 (* UNEXPORTED
-Section Nth_Root.
+Section Nth_Root
 *)
 
 inline "cic:/CoRN/reals/NRootIR/nroot.con".
@@ -100,20 +100,20 @@ inline "cic:/CoRN/reals/NRootIR/NRoot_cancel.con".
 (*#* %\begin{convention}% Let [x,y] be nonnegative real numbers.
 %\end{convention}% *)
 
-inline "cic:/CoRN/reals/NRootIR/x.var".
+alias id "x" = "cic:/CoRN/reals/NRootIR/Nth_Root/x.var".
 
-inline "cic:/CoRN/reals/NRootIR/y.var".
+alias id "y" = "cic:/CoRN/reals/NRootIR/Nth_Root/y.var".
 
-inline "cic:/CoRN/reals/NRootIR/Hx.var".
+alias id "Hx" = "cic:/CoRN/reals/NRootIR/Nth_Root/Hx.var".
 
-inline "cic:/CoRN/reals/NRootIR/Hy.var".
+alias id "Hy" = "cic:/CoRN/reals/NRootIR/Nth_Root/Hy.var".
 
 inline "cic:/CoRN/reals/NRootIR/NRoot_wd.con".
 
 inline "cic:/CoRN/reals/NRootIR/NRoot_unique.con".
 
 (* UNEXPORTED
-End Nth_Root.
+End Nth_Root
 *)
 
 (* UNEXPORTED
@@ -129,7 +129,7 @@ inline "cic:/CoRN/reals/NRootIR/NRoot_resp_leEq.con".
 (*#**********************************)
 
 (* UNEXPORTED
-Section Square_root.
+Section Square_root
 *)
 
 (*#**********************************)
@@ -173,7 +173,7 @@ inline "cic:/CoRN/reals/NRootIR/sqrt_resp_leEq.con".
 inline "cic:/CoRN/reals/NRootIR/sqrt_resp_less.con".
 
 (* UNEXPORTED
-End Square_root.
+End Square_root
 *)
 
 (* UNEXPORTED
@@ -185,7 +185,7 @@ Hint Resolve sqrt_sqr sqrt_mult: algebra.
 *)
 
 (* UNEXPORTED
-Section Absolute_Props.
+Section Absolute_Props
 *)
 
 (*#* ** More on absolute value
@@ -243,11 +243,11 @@ inline "cic:/CoRN/reals/NRootIR/AbsIR_str_bnd_AbsIR.con".
 inline "cic:/CoRN/reals/NRootIR/AbsIR_bnd_AbsIR.con".
 
 (* UNEXPORTED
-End Absolute_Props.
+End Absolute_Props
 *)
 
 (* UNEXPORTED
-Section Consequences.
+Section Consequences
 *)
 
 (*#* **Cauchy sequences
@@ -264,6 +264,6 @@ inline "cic:/CoRN/reals/NRootIR/Cauchy_recip.con".
 inline "cic:/CoRN/reals/NRootIR/Lim_recip.con".
 
 (* UNEXPORTED
-End Consequences.
+End Consequences
 *)