proposition: Lemma morphisms_involutive `{Naturals N} `{SemiRing R} (f : R → N) (g : N → R) `{!SemiRing_Morphism f} `{!SemiRing_Morphism g} x : f (g x) = x.
proof: Proof. now apply (to_semiring_unique_alt (f ∘ g) id). Qed.
imports: Coq.setoid_ring.Ring MathClasses.interfaces.abstract_algebra MathClasses.implementations.peano_naturals MathClasses.theory.rings Coq.Arith.PeanoNat MathClasses.categories.varieties MathClasses.theory.ua_transference MathClasses.interfaces.naturals