proposition: Lemma same_genZ : forall x, [x] == gen_phiZ1 x.
proof: Proof. destruct x;rsimpl; try rewrite same_gen; reflexivity. Qed.
imports: ZArith_base Zpow_def BinInt BinNat Setoid BinList BinPos BinNat BinInt Setoid Ncring Ncring_polynom