proposition: Lemma algebra_morphism_eq {T : algebraic_theory} {A A' : algebra T} (F F' : algebra_morphism A A') (H : (F : A → A') = (F' : A → A')) : F = F'.
proof: Proof. use subtypePath. { intro. use isapropdirprod. - repeat (apply impred_isaprop; intro). apply setproperty. - apply isapropunit. } exact H. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.Combinatorics.StandardFiniteSets UniMath.CategoryTheory.Core.Functors UniMath.AlgebraicTheories.AlgebraicTheories UniMath.AlgebraicTheories.Algebras UniMath.AlgebraicTheories.AlgebraCategoryCore