proposition: Lemma nrootCC_4_ap_real' : {z' : CC | z'[^]n [=] a'[+I*]b'}.
proof: Proof. apply nrootCC_4_ap_real; try assumption. apply (imag_to_real a b a' b'). apply eq_reflexive_unfolded. exact a_. Qed.
imports: CoRN.complex.CComplex Coq.Arith.Wf_nat Coq.setoid_ring.ArithRing