proposition: Lemma Z4_eq_is_reflexive : forall x : Z4, Z4_eq x x.
proof: Proof. intros (((a, b), (c, d)), z4prf0). unfold Z4_eq in |- *. unfold quadrointegral_eq in |- *; repeat split. Defined.
imports: QArithSternBrocot(Merge_Order) Coq(Wf_nat)