fact: Definition make_nat_functor_algebra_mor {X Y : algebra_ob nat_functor} : let X' := invmap nat_functor_equiv (pr2 X) in let Y' := invmap nat_functor_equiv (pr2 Y) in ∏ (f : pr1 X → pr1 Y), (f (pr1 X') = (pr1 Y')) × (f ∘ (pr2 X') = (pr2 Y') ∘ f) → is_algebra_mor _ X Y f.
imports: UniMath.Foundations.Preamble UniMath.Foundations.PartA UniMath.Foundations.PartD UniMath.Foundations.UnivalenceAxiom UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Categories.Type.Core UniMath.Induction.FunctorAlgebras_legacy UniMath.Induction.PolynomialFunctors UniMath.Induction.W.Core UniMath.Induction.W.Fibered