fact: Definition alghomotopytoalg2cell {X : UU} {s_X : P X → X} {Y : UU} {s_Y : P Y → Y} (f : X → Y) (sigma_f : s_X ;; f ~ # P f ;; s_Y) (g : X → Y) (sigma_g : s_X ;; g ~ # P g ;; s_Y) (alpha : f ~ g) : isalgmaphomotopy f sigma_f g sigma_g alpha → isalg2cell (tpair (is_algebra_mor P (X ,, s_X) (tpair _ Y s_Y)) f (funextfun _ _ sigma_f)) (g ,, (funextfun _ _ sigma_g)) (funextfun f g alpha).
imports: UniMath.Foundations.All UniMath.Induction.PolynomialFunctors UniMath.CategoryTheory.Core.Functors UniMath.Induction.FunctorAlgebras_legacy