proposition: Lemma encode_morphism_and_ops `{Ring A} `{Ring B} {f : A → B} `{!SemiRing_Morphism f}: @HomoMorphism sig (λ _, A) (λ _, B) _ _ _ _ (λ _, f).
proof: Proof. intros. apply (encode_morphism_only _). Qed.
imports: Coq.setoid_ring.Ring MathClasses.interfaces.abstract_algebra MathClasses.interfaces.universal_algebra MathClasses.theory.ua_homomorphisms MathClasses.misc.workaround_tactics