freescale porting, work in progress

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

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 e2b643b285e2c6c1bf912584ee07de5ddc6fb86b..c72a7aee6233eff4a4e96a4afe4667c2d106575b 100644 (file)
--- a/helm/software/matita/contribs/CoRN-Decl/algebra/CPoly_NthCoeff.ma
+++ b/helm/software/matita/contribs/CoRN-Decl/algebra/CPoly_NthCoeff.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/CoRN-Decl/algebra/CPoly_NthCoeff".
 
-include "CoRN_notation.ma".
+include "CoRN.ma".
 
 (* $Id: CPoly_NthCoeff.v,v 1.6 2004/04/23 10:00:53 lcf Exp $ *)
 
@@ -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 *)
 
 (*#*
@@ -90,7 +94,7 @@ The [cpoly_zero] case should be [c [=] Zero] in order to be extensional.
 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_S.con".
 
 (* UNEXPORTED
-End NthCoeff_def.
+End NthCoeff_def
 *)
 
 (* UNEXPORTED
@@ -106,15 +110,19 @@ 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".
@@ -179,7 +187,7 @@ inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_nexp_neq.con".
 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_mult.con".
 
 (* UNEXPORTED
-End NthCoeff_props.
+End NthCoeff_props
 *)
 
 (* UNEXPORTED