∀ {R : Type u_1} {n : Type u_2} [inst : CommSemiring R] [inst_1 : Fintype n] [inst_2 : DecidableEq n] {A : n → Type u_3}
  [inst_3 : (i : n) → AddCommMonoid (A i)] [inst_4 : (i : n) → Module R (A i)] [inst_5 : (i : n) → Coalgebra R (A i)],
  LinearMap.lTensor ((i : n) → A i) CoalgebraStruct.counit ∘ₗ CoalgebraStruct.comul =
    (TensorProduct.mk R ((i : n) → A i) R).flip 1