Semantic analysis implemented (sort of).

[helm.git] / helm / software / matita / contribs / CoRN-Decl / algebra / CPoly_ApZero.ma

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 89dccc1741dbabe09fb8016328697290e84b32bd..9a72ec02a9e6c4768d9541958a9578ea1c42df07 100644 (file)
--- 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
 *)