proposition: Lemma poly_01_factor_degree : forall n i H, degree_le 1 (poly_01_factor n i H).
proof: Proof. intros. unfold poly_01_factor in |- *. replace 1 with (1 + 0). apply degree_le_mult. apply poly_01_factor'_degree. apply degree_le_c_. auto. Qed.
imports: CoRN.algebra.CPoly_Degree CoRN.algebra.COrdFields2 Coq.Classes.Morphisms Coq.Sorting.Permutation