1 (**************************************************************************)
4 (* ||A|| A project by Andrea Asperti *)
6 (* ||I|| Developers: *)
7 (* ||T|| The HELM team. *)
8 (* ||A|| http://helm.cs.unibo.it *)
10 (* \ / This file is distributed under the terms of the *)
11 (* v GNU General Public License Version 2 *)
13 (**************************************************************************)
15 (* This file was automatically generated: do not edit *********************)
19 (* $Id: CPoly_Shift.v,v 1.4 2004/04/23 10:00:56 lcf Exp $ *)
21 include "complex/CComplex.ma".
23 (*#* * Shifting polynomials
24 This can be done for [CRings] in general, but we do it here
25 only for [CC] because extensionality makes everything much easier,
26 and we only need it for [CC].
33 inline procedural "cic:/CoRN/fta/CPoly_Shift/Shift.con" as definition.
35 inline procedural "cic:/CoRN/fta/CPoly_Shift/Shift_apply.con" as lemma.
38 Hint Resolve Shift_apply: algebra.
41 inline procedural "cic:/CoRN/fta/CPoly_Shift/Shift_wdr.con" as lemma.
43 inline procedural "cic:/CoRN/fta/CPoly_Shift/Shift_shift.con" as lemma.
45 inline procedural "cic:/CoRN/fta/CPoly_Shift/Shift_mult.con" as lemma.
47 inline procedural "cic:/CoRN/fta/CPoly_Shift/Shift_degree_le.con" as lemma.
49 inline procedural "cic:/CoRN/fta/CPoly_Shift/Shift_monic.con" as lemma.
56 Hint Resolve Shift_wdr: algebra_c.
60 Hint Resolve Shift_apply Shift_shift Shift_mult: algebra.