proposition: Lemma move_action_through_vector_1 {n : nat} (f : (L n : hSet)) (a : stn n → A) : weqvecfun 1 [(action f a)] = (λ i, action (weqvecfun 1 [(f)] i) a).
proof: Proof. exact (move_action_through_vector [(f)] _). Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.Algebra.Monoids UniMath.Combinatorics.Tuples UniMath.CategoryTheory.Categories.HSET.Core UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Presheaf UniMath.Combinatorics.StandardFiniteSets UniMath.Combinatorics.Vectors UniMath.AlgebraicTheories.AlgebraicTheories UniMath.AlgebraicTheories.Algebras UniMath.AlgebraicTheories.Examples.LambdaCalculus UniMath.AlgebraicTheories.LambdaTheories UniMath.AlgebraicTheories.LambdaCalculus UniMath.AlgebraicTheories.LambdaTheoryCategory