X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcontribs%2FCoRN-Decl%2Falgebra%2FExpon.ma;h=29bc341c7b6c43d39b0532cbee0dac8d18aee837;hb=0a9ed4329c069d2e06902934b6d1d58d3690959c;hp=d4b468438c9f090d91513a3618b9cd88153978d9;hpb=94873bb61a663b4fca3dc6d07b7bb9f42122003e;p=helm.git

diff --git a/matita/contribs/CoRN-Decl/algebra/Expon.ma b/matita/contribs/CoRN-Decl/algebra/Expon.ma
index d4b468438..29bc341c7 100644
--- a/matita/contribs/CoRN-Decl/algebra/Expon.ma
+++ b/matita/contribs/CoRN-Decl/algebra/Expon.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/algebra/Expon".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: Expon.v,v 1.5 2004/04/23 10:00:54 lcf Exp $ *)
 
@@ -33,10 +33,10 @@ include "tactics/Transparent_algebra.ma".
 *)
 
 (* UNEXPORTED
-Section More_Nexp.
+Section More_Nexp
 *)
 
-inline "cic:/CoRN/algebra/Expon/R.var".
+alias id "R" = "cic:/CoRN/algebra/Expon/More_Nexp/R.var".
 
 inline "cic:/CoRN/algebra/Expon/nexp_resp_ap_zero.con".
 
@@ -79,7 +79,7 @@ inline "cic:/CoRN/algebra/Expon/nexp_resp_le.con".
 inline "cic:/CoRN/algebra/Expon/bin_less_un.con".
 
 (* UNEXPORTED
-End More_Nexp.
+End More_Nexp
 *)
 
 (* UNEXPORTED
@@ -96,10 +96,10 @@ Implicit Arguments nexp_resp_ap_zero [R x].
 *)
 
 (* UNEXPORTED
-Section Zexp_def.
+Section Zexp_def
 *)
 
-inline "cic:/CoRN/algebra/Expon/R.var".
+alias id "R" = "cic:/CoRN/algebra/Expon/Zexp_def/R.var".
 
 (*#*
 It would be nicer to define [zexp] using [caseZdiff], but we already
@@ -109,23 +109,27 @@ have most properties now.
 inline "cic:/CoRN/algebra/Expon/zexp.con".
 
 (* UNEXPORTED
-End Zexp_def.
+End Zexp_def
 *)
 
 (* UNEXPORTED
 Implicit Arguments zexp [R].
 *)
 
+(* NOTATION
+Notation "( x [//] Hx ) [^^] n" := (zexp x Hx n) (at level 0).
+*)
+
 (*#* **Properties of [zexp]
 %\begin{convention}% Let [R] be an ordered field.
 %\end{convention}%
 *)
 
 (* UNEXPORTED
-Section Zexp_properties.
+Section Zexp_properties
 *)
 
-inline "cic:/CoRN/algebra/Expon/R.var".
+alias id "R" = "cic:/CoRN/algebra/Expon/Zexp_properties/R.var".
 
 inline "cic:/CoRN/algebra/Expon/zexp_zero.con".
 
@@ -254,7 +258,7 @@ Hint Resolve zexp_funny': algebra.
 inline "cic:/CoRN/algebra/Expon/zexp_pos.con".
 
 (* UNEXPORTED
-End Zexp_properties.
+End Zexp_properties
 *)
 
 (* UNEXPORTED
@@ -269,16 +273,16 @@ Hint Resolve zexp_wd: algebra_c.
 *)
 
 (* UNEXPORTED
-Section Root_Unique.
+Section Root_Unique
 *)
 
-inline "cic:/CoRN/algebra/Expon/R.var".
+alias id "R" = "cic:/CoRN/algebra/Expon/Root_Unique/R.var".
 
 inline "cic:/CoRN/algebra/Expon/root_unique.con".
 
 inline "cic:/CoRN/algebra/Expon/root_one.con".
 
 (* UNEXPORTED
-End Root_Unique.
+End Root_Unique
 *)