proposition: Lemma lift_constant_action {T : algebraic_theory} {A : algebra T} (n : nat) (f : T 0) (a : stn n → A) : action (lift_constant n f) a = action f (weqvecfun _ vnil).
proof: Proof. refine (comp_action _ _ _ a @ _). apply maponpaths, funextfun. intro i. exact (fromempty (negnatlthn0 _ (stnlt i))). Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.Combinatorics.StandardFiniteSets UniMath.Combinatorics.Vectors UniMath.AlgebraicTheories.AlgebraicTheories UniMath.AlgebraicTheories.AlgebraCategoryCore