proposition: Lemma Cmult_integral : forall z1 z2, z1 * z2 = C0 -> z1 = C0 \/ z2 = C0.
proof: Proof. intros z1 z2 H. elim (Ceq_dec z1 C0) ; elim (Ceq_dec z2 C0) ; intros H2 H1. left ; exact H1. left ; exact H1. right ; exact H2. rewrite <- (Cmult_0_r z1) in H ; apply Cmult_eq_reg_l in H. right ; assumption. assumption. Qed.
imports: Ctacfield Cbase Cpow Lia