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=16d0ba4a14fd6bede3e8b3520af7deaefb4f8068;hp=908bdbece029169087248327bf4a05693d977b4c;hpb=7a8f91f8aa2d6ba24bf6b3093866f759ee16e690;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 908bdbece..bd621debb 100644
--- a/helm/software/matita/contribs/CoRN-Decl/algebra/CPolynomials.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/algebra/CPolynomials.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/algebra/CPolynomials".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: CPolynomials.v,v 1.9 2004/04/23 10:00:53 lcf Exp $ *)
 
@@ -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