proposition: Lemma Rgen_phiPOS_not_0 : forall x, InitialRing.gen_phiPOS1 1 Rplus Rmult x <> 0.
proof: Proof. red; intros. specialize (Rgen_phiPOS x). rewrite H; intro. apply (Rlt_asym 0 0); trivial. Qed.
imports: Nnat ArithRing Ring Field Rdefinitions Rpow_def Raxioms