fact: Definition move_action_through_vector_3 {n : nat} (f g h : (T n : hSet)) (a : stn n → A) : weqvecfun _ [(action f a ; action g a ; action h a )] = λ i, action (weqvecfun _ [(f ; g ; h)] i) a := move_action_through_vector [(f ; g ; h)] _.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.Combinatorics.StandardFiniteSets UniMath.Combinatorics.Vectors UniMath.AlgebraicTheories.AlgebraicTheories UniMath.AlgebraicTheories.AlgebraCategoryCore