proposition: Lemma to_p_3: 3:%p = 3.
proof: Proof. unfold to_p, pkplus, pkI, GZnZ.add, pK; apply zirr; simpl. assert (F1:= p_pos). repeat match goal with |- _ = ?t => rmod t; auto end. Qed.
imports: Ring Field_tac Ring_tac Eqdep_dec ZArith ZCAux Ppow GZnZ EGroup SMain Zmod