proposition: Lemma nroot_minus_I_nexp : forall n n_, nroot_minus_I n n_[^]n [=] [--]II.
proof: Proof. intros n on. unfold nroot_minus_I in |- *. apply eq_transitive_unfolded with ( [--] (nroot_I n on[^]n)). apply inv_nexp_odd. exact on. apply un_op_wd_unfolded. apply nroot_I_nexp. Qed.
imports: CoRN.complex.CComplex Coq.Arith.Wf_nat Coq.setoid_ring.ArithRing