X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Falgebra%2FCPoly_ApZero.ma;h=9a72ec02a9e6c4768d9541958a9578ea1c42df07;hb=f2d9db85559c7a8db11aae1153495fae4a258d54;hp=89dccc1741dbabe09fb8016328697290e84b32bd;hpb=80110e17ef1d38d71473e9471ce15beddde663bb;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/algebra/CPoly_ApZero.ma b/helm/software/matita/contribs/CoRN-Decl/algebra/CPoly_ApZero.ma
index 89dccc174..9a72ec02a 100644
--- a/helm/software/matita/contribs/CoRN-Decl/algebra/CPoly_ApZero.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/algebra/CPoly_ApZero.ma
@@ -33,7 +33,7 @@ Implicit Arguments distinct1 [A].
 *)
 
 (* UNEXPORTED
-Section Poly_Representation.
+Section Poly_Representation
 *)
 
 (*#*
@@ -45,20 +45,24 @@ has degree at most [n].
 %\end{convention}%
 *)
 
-inline "cic:/CoRN/algebra/CPoly_ApZero/R.var".
+alias id "R" = "cic:/CoRN/algebra/CPoly_ApZero/Poly_Representation/R.var".
 
-inline "cic:/CoRN/algebra/CPoly_ApZero/a_.var".
+alias id "a_" = "cic:/CoRN/algebra/CPoly_ApZero/Poly_Representation/a_.var".
 
-inline "cic:/CoRN/algebra/CPoly_ApZero/distinct_a_.var".
+alias id "distinct_a_" = "cic:/CoRN/algebra/CPoly_ApZero/Poly_Representation/distinct_a_.var".
 
-inline "cic:/CoRN/algebra/CPoly_ApZero/f.var".
+alias id "f" = "cic:/CoRN/algebra/CPoly_ApZero/Poly_Representation/f.var".
 
-inline "cic:/CoRN/algebra/CPoly_ApZero/n.var".
+alias id "n" = "cic:/CoRN/algebra/CPoly_ApZero/Poly_Representation/n.var".
 
-inline "cic:/CoRN/algebra/CPoly_ApZero/degree_f.var".
+alias id "degree_f" = "cic:/CoRN/algebra/CPoly_ApZero/Poly_Representation/degree_f.var".
 
 (* begin hide *)
 
+(* NOTATION
+Notation RX := (cpoly_cring R).
+*)
+
 (* end hide *)
 
 include "tactics/Transparent_algebra.ma".
@@ -124,11 +128,11 @@ Hint Resolve poly_representation: algebra.
 inline "cic:/CoRN/algebra/CPoly_ApZero/Cpoly_choose_apzero.con".
 
 (* UNEXPORTED
-End Poly_Representation.
+End Poly_Representation
 *)
 
 (* UNEXPORTED
-Section Characteristic_zero.
+Section Characteristic_zero
 *)
 
 (*#*
@@ -136,16 +140,20 @@ If we are in a field of characteristic zero, the previous result can be
 strengthened.
 *)
 
-inline "cic:/CoRN/algebra/CPoly_ApZero/R.var".
+alias id "R" = "cic:/CoRN/algebra/CPoly_ApZero/Characteristic_zero/R.var".
 
 (* begin show *)
 
-inline "cic:/CoRN/algebra/CPoly_ApZero/H.var".
+alias id "H" = "cic:/CoRN/algebra/CPoly_ApZero/Characteristic_zero/H.var".
 
 (* end show *)
 
 (* begin hide *)
 
+(* NOTATION
+Notation RX := (cpoly_cring R).
+*)
+
 (* end hide *)
 
 inline "cic:/CoRN/algebra/CPoly_ApZero/poly_apzero.con".
@@ -157,7 +165,7 @@ Also, in this situation polynomials are extensional functions.
 inline "cic:/CoRN/algebra/CPoly_ApZero/poly_extensional.con".
 
 (* UNEXPORTED
-End Characteristic_zero.
+End Characteristic_zero
 *)
 
 (*#*
@@ -165,18 +173,22 @@ End Characteristic_zero.
 *)
 
 (* UNEXPORTED
-Section Poly_ApZero_Interval.
+Section Poly_ApZero_Interval
 *)
 
-inline "cic:/CoRN/algebra/CPoly_ApZero/R.var".
+alias id "R" = "cic:/CoRN/algebra/CPoly_ApZero/Poly_ApZero_Interval/R.var".
 
 (* begin hide *)
 
+(* NOTATION
+Notation RX := (cpoly_cring R).
+*)
+
 (* end hide *)
 
 inline "cic:/CoRN/algebra/CPoly_ApZero/Cpoly_apzero_interval.con".
 
 (* UNEXPORTED
-End Poly_ApZero_Interval.
+End Poly_ApZero_Interval
 *)