Naturals SR (U:=retract_is_nat_to_sr). Proof. split;try apply _. - unfold naturals_to_semiring, retract_is_nat_to_sr. apply _. - intros;apply same_morphism;apply _. Qed.
Require Import Require Import Import SemiRings.