X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FCoRN-Decl%2Falgebra%2FCPoly_NthCoeff.ma;h=c72a7aee6233eff4a4e96a4afe4667c2d106575b;hb=601baed778a190b580982b588ebe49ba3f762b30;hp=4d6d184984e7691dddcec135d7c37eb0410701ce;hpb=3199f2a8428b5d19a3a803c1b03d9f90e4120f74;p=helm.git

diff --git a/helm/software/matita/contribs/CoRN-Decl/algebra/CPoly_NthCoeff.ma b/helm/software/matita/contribs/CoRN-Decl/algebra/CPoly_NthCoeff.ma
index 4d6d18498..c72a7aee6 100644
--- a/helm/software/matita/contribs/CoRN-Decl/algebra/CPoly_NthCoeff.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/algebra/CPoly_NthCoeff.ma
@@ -16,11 +16,11 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/algebra/CPoly_NthCoeff".
 
+include "CoRN.ma".
+
 (* $Id: CPoly_NthCoeff.v,v 1.6 2004/04/23 10:00:53 lcf Exp $ *)
 
-(* INCLUDE
-CPolynomials
-*)
+include "algebra/CPolynomials.ma".
 
 (*#*
 * Polynomials: Nth Coefficient
@@ -32,13 +32,17 @@ polynomials over [R].
 *)
 
 (* UNEXPORTED
-Section NthCoeff_def.
+Section NthCoeff_def
 *)
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/R.var.
+alias id "R" = "cic:/CoRN/algebra/CPoly_NthCoeff/NthCoeff_def/R.var".
 
 (* begin hide *)
 
+(* NOTATION
+Notation RX := (cpoly_cring R).
+*)
+
 (* end hide *)
 
 (*#*
@@ -48,13 +52,13 @@ polynomial $a_0 +a_1 X +a_2 X^2 + \cdots + a_n X^n$ #a0 +a1 X +a2 X^2
 + ... + an X^n#, the [Zero]-th coefficient is $a_0$#a0#, the first
 is $a_1$#a1# etcetera.  *)
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_strext.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_strext.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_wd.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_wd.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_fun.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_fun.con".
 
 (*#*
 %\begin{shortcoming}%
@@ -70,27 +74,27 @@ to [((nth_coeff_fun n) p)].
 %\end{shortcoming}%
 *)
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nonConst.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nonConst.con".
 
 (*#*
 The following is probably NOT needed.  These functions are
 NOT extensional, that is, they are not CSetoid functions.
 *)
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_ok.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_ok.con".
 
 (* The in_coeff predicate*)
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/in_coeff.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/in_coeff.con".
 
 (*#*
 The [cpoly_zero] case should be [c [=] Zero] in order to be extensional.
 *)
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_S.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_S.con".
 
 (* UNEXPORTED
-End NthCoeff_def.
+End NthCoeff_def
 *)
 
 (* UNEXPORTED
@@ -106,80 +110,84 @@ Hint Resolve nth_coeff_wd: algebra_c.
 *)
 
 (* UNEXPORTED
-Section NthCoeff_props.
+Section NthCoeff_props
 *)
 
 (*#* ** Properties of [nth_coeff] *)
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/R.var.
+alias id "R" = "cic:/CoRN/algebra/CPoly_NthCoeff/NthCoeff_props/R.var".
 
 (* begin hide *)
 
+(* NOTATION
+Notation RX := (cpoly_cring R).
+*)
+
 (* end hide *)
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_zero.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_zero.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/coeff_O_lin.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/coeff_O_lin.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/coeff_Sm_lin.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/coeff_Sm_lin.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/coeff_O_c_.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/coeff_O_c_.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/coeff_O_x_mult.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/coeff_O_x_mult.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/coeff_Sm_x_mult.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/coeff_Sm_x_mult.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/coeff_Sm_mult_x_.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/coeff_Sm_mult_x_.con".
 
 (* UNEXPORTED
 Hint Resolve nth_coeff_zero coeff_O_lin coeff_Sm_lin coeff_O_c_
   coeff_O_x_mult coeff_Sm_x_mult coeff_Sm_mult_x_: algebra.
 *)
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_ap_zero_imp.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_ap_zero_imp.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_plus.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_plus.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_inv.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_inv.con".
 
 (* UNEXPORTED
 Hint Resolve nth_coeff_inv: algebra.
 *)
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_c_mult_p.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_c_mult_p.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_p_mult_c_.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_p_mult_c_.con".
 
 (* UNEXPORTED
 Hint Resolve nth_coeff_c_mult_p nth_coeff_p_mult_c_ nth_coeff_plus: algebra.
 *)
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_complicated.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_complicated.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/all_nth_coeff_eq_imp.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/all_nth_coeff_eq_imp.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/poly_at_zero.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/poly_at_zero.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_inv'.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_inv'.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_minus.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_minus.con".
 
 (* UNEXPORTED
 Hint Resolve nth_coeff_minus: algebra.
 *)
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_sum0.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_sum0.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_sum.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_sum.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_nexp_eq.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_nexp_eq.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_nexp_neq.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_nexp_neq.con".
 
-inline cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_mult.con.
+inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_mult.con".
 
 (* UNEXPORTED
-End NthCoeff_props.
+End NthCoeff_props
 *)
 
 (* UNEXPORTED