fact: Definition nroot (n:nat) (z:C) : C:= if Ceq_dec z 0 then 0 else let argn:=((cargument z)/(INR n))%R in (cos(argn),sin(argn))*(exp((ln (Cmod z))/(INR n)),0).
imports: Reals Coq.Reals.Rtrigo_def Coquelicot.Coquelicot Coquelicot.ElemFct Lra