fact: Definition algebra_mor_homot_id {X Y : algebra_ob F} {i : algebra_mor _ X Y} : algebra_mor_homot i i := @algebra_sec_homot_id _ (alg2fibered_alg Y) (algebra_mor_to_algsec i).
imports: UniMath.Foundations.PartA UniMath.Foundations.UnivalenceAxiom UniMath.MoreFoundations.Univalence UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.Induction.FunctorAlgebras_legacy UniMath.Induction.PolynomialFunctors UniMath.Induction.W.Core