English
Provide a way to append an extra output type β to the arity by splitting the input into α and β components.
Русский
Обеспечение дополнения выходного типа β к арности за счёт разбиения входа на компоненты α и β.
LaTeX
$$$\\text{appendContents} : \\text{MvPFunctor} n \\to \\text{ (α, β) } \\to (\\text{B a}) \\Rightarrow (\\alpha ::: \\beta)$$$
Lean4
/-- append arrows of a polynomial functor application -/
abbrev appendContents {α : TypeVec n} {β : Type*} {a : P.A} (f' : P.drop.B a ⟹ α) (f : P.last.B a → β) :
P.B a ⟹ (α ::: β) :=
splitFun f' f