matita/contribs/CoRN-Decl/algebra/CPoly_NthCoeff.ma

   1 (**************************************************************************)
   2 (*       ___                                                              *)
   3 (*      ||M||                                                             *)
   4 (*      ||A||       A project by Andrea Asperti                           *)
   5 (*      ||T||                                                             *)
   6 (*      ||I||       Developers:                                           *)
   7 (*      ||T||         The HELM team.                                      *)
   8 (*      ||A||         http://helm.cs.unibo.it                             *)
   9 (*      \   /                                                             *)
  10 (*       \ /        This file is distributed under the terms of the       *)
  11 (*        v         GNU General Public License Version 2                  *)
  12 (*                                                                        *)
  13 (**************************************************************************)
  14
  15 (* This file was automatically generated: do not edit *********************)
  16
  17 set "baseuri" "cic:/matita/CoRN-Decl/algebra/CPoly_NthCoeff".
  18
  19 include "CoRN.ma".
  20
  21 (* $Id: CPoly_NthCoeff.v,v 1.6 2004/04/23 10:00:53 lcf Exp $ *)
  22
  23 include "algebra/CPolynomials.ma".
  24
  25 (*#*
  26 * Polynomials: Nth Coefficient
  27 %\begin{convention}% Let [R] be a ring and write [RX] for the ring of
  28 polynomials over [R].
  29 %\end{convention}%
  30
  31 ** Definitions
  32 *)
  33
  34 (* UNEXPORTED
  35 Section NthCoeff_def
  36 *)
  37
  38 alias id "R" = "cic:/CoRN/algebra/CPoly_NthCoeff/NthCoeff_def/R.var".
  39
  40 (* begin hide *)
  41
  42 (* NOTATION
  43 Notation RX := (cpoly_cring R).
  44 *)
  45
  46 (* end hide *)
  47
  48 (*#*
  49 The [n]-th coefficient of a polynomial. The default value is
  50 [Zero:CR] e.g. if the [n] is higher than the length. For the
  51 polynomial $a_0 +a_1 X +a_2 X^2 + \cdots + a_n X^n$ #a0 +a1 X +a2 X^2
  52 + ... + an X^n#, the [Zero]-th coefficient is $a_0$#a0#, the first
  53 is $a_1$#a1# etcetera.  *)
  54
  55 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff.con".
  56
  57 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_strext.con".
  58
  59 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_wd.con".
  60
  61 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_fun.con".
  62
  63 (*#*
  64 %\begin{shortcoming}%
  65 We would like to use [nth_coeff_fun n] all the time.
  66 However, Coq's coercion mechanism doesn't support this properly:
  67 the term
  68 [(nth_coeff_fun n p)] won't get parsed, and has to be written as
  69 [((nth_coeff_fun n) p)] instead.
  70
  71 So, in the names of lemmas, we write [(nth_coeff n p)],
  72 which always (e.g. in proofs) can be converted
  73 to [((nth_coeff_fun n) p)].
  74 %\end{shortcoming}%
  75 *)
  76
  77 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nonConst.con".
  78
  79 (*#*
  80 The following is probably NOT needed.  These functions are
  81 NOT extensional, that is, they are not CSetoid functions.
  82 *)
  83
  84 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_ok.con".
  85
  86 (* The in_coeff predicate*)
  87
  88 inline "cic:/CoRN/algebra/CPoly_NthCoeff/in_coeff.con".
  89
  90 (*#*
  91 The [cpoly_zero] case should be [c [=] Zero] in order to be extensional.
  92 *)
  93
  94 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_S.con".
  95
  96 (* UNEXPORTED
  97 End NthCoeff_def
  98 *)
  99
 100 (* UNEXPORTED
 101 Implicit Arguments nth_coeff [R].
 102 *)
 103
 104 (* UNEXPORTED
 105 Implicit Arguments nth_coeff_fun [R].
 106 *)
 107
 108 (* UNEXPORTED
 109 Hint Resolve nth_coeff_wd: algebra_c.
 110 *)
 111
 112 (* UNEXPORTED
 113 Section NthCoeff_props
 114 *)
 115
 116 (*#* ** Properties of [nth_coeff] *)
 117
 118 alias id "R" = "cic:/CoRN/algebra/CPoly_NthCoeff/NthCoeff_props/R.var".
 119
 120 (* begin hide *)
 121
 122 (* NOTATION
 123 Notation RX := (cpoly_cring R).
 124 *)
 125
 126 (* end hide *)
 127
 128 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_zero.con".
 129
 130 inline "cic:/CoRN/algebra/CPoly_NthCoeff/coeff_O_lin.con".
 131
 132 inline "cic:/CoRN/algebra/CPoly_NthCoeff/coeff_Sm_lin.con".
 133
 134 inline "cic:/CoRN/algebra/CPoly_NthCoeff/coeff_O_c_.con".
 135
 136 inline "cic:/CoRN/algebra/CPoly_NthCoeff/coeff_O_x_mult.con".
 137
 138 inline "cic:/CoRN/algebra/CPoly_NthCoeff/coeff_Sm_x_mult.con".
 139
 140 inline "cic:/CoRN/algebra/CPoly_NthCoeff/coeff_Sm_mult_x_.con".
 141
 142 (* UNEXPORTED
 143 Hint Resolve nth_coeff_zero coeff_O_lin coeff_Sm_lin coeff_O_c_
 144   coeff_O_x_mult coeff_Sm_x_mult coeff_Sm_mult_x_: algebra.
 145 *)
 146
 147 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_ap_zero_imp.con".
 148
 149 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_plus.con".
 150
 151 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_inv.con".
 152
 153 (* UNEXPORTED
 154 Hint Resolve nth_coeff_inv: algebra.
 155 *)
 156
 157 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_c_mult_p.con".
 158
 159 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_p_mult_c_.con".
 160
 161 (* UNEXPORTED
 162 Hint Resolve nth_coeff_c_mult_p nth_coeff_p_mult_c_ nth_coeff_plus: algebra.
 163 *)
 164
 165 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_complicated.con".
 166
 167 inline "cic:/CoRN/algebra/CPoly_NthCoeff/all_nth_coeff_eq_imp.con".
 168
 169 inline "cic:/CoRN/algebra/CPoly_NthCoeff/poly_at_zero.con".
 170
 171 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_inv'.con".
 172
 173 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_minus.con".
 174
 175 (* UNEXPORTED
 176 Hint Resolve nth_coeff_minus: algebra.
 177 *)
 178
 179 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_sum0.con".
 180
 181 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_sum.con".
 182
 183 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_nexp_eq.con".
 184
 185 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_nexp_neq.con".
 186
 187 inline "cic:/CoRN/algebra/CPoly_NthCoeff/nth_coeff_mult.con".
 188
 189 (* UNEXPORTED
 190 End NthCoeff_props
 191 *)
 192
 193 (* UNEXPORTED
 194 Hint Resolve nth_coeff_wd: algebra_c.
 195 *)
 196
 197 (* UNEXPORTED
 198 Hint Resolve nth_coeff_complicated poly_at_zero nth_coeff_inv: algebra.
 199 *)
 200
 201 (* UNEXPORTED
 202 Hint Resolve nth_coeff_inv' nth_coeff_c_mult_p nth_coeff_mult: algebra.
 203 *)
 204
 205 (* UNEXPORTED
 206 Hint Resolve nth_coeff_zero nth_coeff_plus nth_coeff_minus: algebra.
 207 *)
 208
 209 (* UNEXPORTED
 210 Hint Resolve nth_coeff_nexp_eq nth_coeff_nexp_neq: algebra.
 211 *)
 212