Integers Z2 (U:=retract_is_int_to_ring). Proof. split;try apply _. - unfold integers_to_ring, retract_is_int_to_ring. apply _. - intros;apply same_morphism;apply _. Qed.
Require Import Require Import Import NatPair.Instances.