X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Falgebra%2FCPolynomials.ma;h=bd621debbd884352c63447ded1d5b6a8ecf78fa8;hb=8c0ccf03dbefd83818bc3b6849634f422f8ec727;hp=d34881497be77be2d07fe39bedd82afa8d9423ad;hpb=80110e17ef1d38d71473e9471ce15beddde663bb;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/algebra/CPolynomials.ma b/helm/software/matita/contribs/CoRN-Decl/algebra/CPolynomials.ma
index d34881497..bd621debb 100644
--- a/helm/software/matita/contribs/CoRN-Decl/algebra/CPolynomials.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/algebra/CPolynomials.ma
@@ -42,7 +42,7 @@ equality and induction of polynomials.
 *)
 
 (* UNEXPORTED
-Section CPoly_CRing.
+Section CPoly_CRing
 *)
 
 (*#*
@@ -50,7 +50,7 @@ Section CPoly_CRing.
 %\end{convention}%
 *)
 
-inline "cic:/CoRN/algebra/CPolynomials/CR.var".
+alias id "CR" = "cic:/CoRN/algebra/CPolynomials/CPoly_CRing/CR.var".
 
 (*#*
 The intuition behind the type [cpoly] is the following
@@ -119,9 +119,9 @@ the most basic properties of equality and apartness
 in terms of these generators.
 *)
 
-inline "cic:/CoRN/algebra/CPolynomials/cpoly_zero_cs.con".
+inline "cic:/CoRN/algebra/CPolynomials/CPoly_CRing/cpoly_zero_cs.con" "CPoly_CRing__".
 
-inline "cic:/CoRN/algebra/CPolynomials/cpoly_linear_cs.con".
+inline "cic:/CoRN/algebra/CPolynomials/CPoly_CRing/cpoly_linear_cs.con" "CPoly_CRing__".
 
 inline "cic:/CoRN/algebra/CPolynomials/Ccpoly_ind_cs.con".
 
@@ -318,7 +318,7 @@ inline "cic:/CoRN/algebra/CPolynomials/cpoly_x_minus_c_strext.con".
 inline "cic:/CoRN/algebra/CPolynomials/cpoly_x_minus_c_wd.con".
 
 (* UNEXPORTED
-End CPoly_CRing.
+End CPoly_CRing
 *)
 
 (* UNEXPORTED
@@ -335,12 +335,16 @@ inline "cic:/CoRN/algebra/CPolynomials/cpoly_linear_fun'.con".
 Implicit Arguments cpoly_linear_fun' [CR].
 *)
 
+(* NOTATION
+Infix "[+X*]" := cpoly_linear_fun' (at level 50, left associativity).
+*)
+
 (*#* ** Apartness, equality, and induction
 %\label{section:poly-equality}%
 *)
 
 (* UNEXPORTED
-Section CPoly_CRing_ctd.
+Section CPoly_CRing_ctd
 *)
 
 (*#*
@@ -350,19 +354,23 @@ elements of the ring.
 %\end{convention}%
 *)
 
-inline "cic:/CoRN/algebra/CPolynomials/CR.var".
+alias id "CR" = "cic:/CoRN/algebra/CPolynomials/CPoly_CRing_ctd/CR.var".
+
+(* NOTATION
+Notation RX := (cpoly_cring CR).
+*)
 
 (* UNEXPORTED
-Section helpful_section.
+Section helpful_section
 *)
 
-inline "cic:/CoRN/algebra/CPolynomials/p.var".
+alias id "p" = "cic:/CoRN/algebra/CPolynomials/CPoly_CRing_ctd/helpful_section/p.var".
 
-inline "cic:/CoRN/algebra/CPolynomials/q.var".
+alias id "q" = "cic:/CoRN/algebra/CPolynomials/CPoly_CRing_ctd/helpful_section/q.var".
 
-inline "cic:/CoRN/algebra/CPolynomials/c.var".
+alias id "c" = "cic:/CoRN/algebra/CPolynomials/CPoly_CRing_ctd/helpful_section/c.var".
 
-inline "cic:/CoRN/algebra/CPolynomials/d.var".
+alias id "d" = "cic:/CoRN/algebra/CPolynomials/CPoly_CRing_ctd/helpful_section/d.var".
 
 inline "cic:/CoRN/algebra/CPolynomials/linear_eq_zero_.con".
 
@@ -395,7 +403,7 @@ inline "cic:/CoRN/algebra/CPolynomials/_linear_ap_linear.con".
 inline "cic:/CoRN/algebra/CPolynomials/linear_ap_linear.con".
 
 (* UNEXPORTED
-End helpful_section.
+End helpful_section
 *)
 
 inline "cic:/CoRN/algebra/CPolynomials/Ccpoly_induc.con".
@@ -435,7 +443,7 @@ inline "cic:/CoRN/algebra/CPolynomials/cpoly_apply_wd.con".
 inline "cic:/CoRN/algebra/CPolynomials/cpoly_apply_fun.con".
 
 (* UNEXPORTED
-End CPoly_CRing_ctd.
+End CPoly_CRing_ctd
 *)
 
 (*#*
@@ -451,6 +459,10 @@ In the names of lemmas, we write [apply].
 Implicit Arguments cpoly_apply_fun [CR].
 *)
 
+(* NOTATION
+Infix "!" := cpoly_apply_fun (at level 1, no associativity).
+*)
+
 (*#*
 ** Basic properties of polynomials
 %\begin{convention}%
@@ -459,10 +471,14 @@ Let [R] be a ring and write [RX] for the ring of polynomials over [R].
 *)
 
 (* UNEXPORTED
-Section Poly_properties.
+Section Poly_properties
 *)
 
-inline "cic:/CoRN/algebra/CPolynomials/R.var".
+alias id "R" = "cic:/CoRN/algebra/CPolynomials/Poly_properties/R.var".
+
+(* NOTATION
+Notation RX := (cpoly_cring R).
+*)
 
 (*#*
 *** Constant and identity
@@ -566,22 +582,38 @@ inline "cic:/CoRN/algebra/CPolynomials/Sum0_cpoly_ap.con".
 inline "cic:/CoRN/algebra/CPolynomials/Sum_cpoly_ap.con".
 
 (* UNEXPORTED
-End Poly_properties.
+End Poly_properties
 *)
 
 (*#* ** Induction properties of polynomials for [Prop]
 *)
 
 (* UNEXPORTED
-Section Poly_Prop_Induction.
+Section Poly_Prop_Induction
 *)
 
-inline "cic:/CoRN/algebra/CPolynomials/CR.var".
+alias id "CR" = "cic:/CoRN/algebra/CPolynomials/Poly_Prop_Induction/CR.var".
+
+(* NOTATION
+Notation Cpoly := (cpoly CR).
+*)
+
+(* NOTATION
+Notation Cpoly_zero := (cpoly_zero CR).
+*)
+
+(* NOTATION
+Notation Cpoly_linear := (cpoly_linear CR).
+*)
+
+(* NOTATION
+Notation Cpoly_cring := (cpoly_cring CR).
+*)
 
 inline "cic:/CoRN/algebra/CPolynomials/cpoly_double_ind.con".
 
 (* UNEXPORTED
-End Poly_Prop_Induction.
+End Poly_Prop_Induction
 *)
 
 (* UNEXPORTED