English
Auxiliary proof component for the lTensor construction, ensuring compatibility with scalar towers.
Русский
Вспомогательный компонент доказательства конструирования lTensor, обеспечивающий совместимость с башней скаляров.
LaTeX
$$$\text{proof}_1$$$
Lean4
/-- `lTensor A f : A ⊗ B →ₐc A ⊗ C` is the natural bialgebra morphism induced by `f : B →ₐc C`. -/
noncomputable abbrev lTensor (f : B →ₐc[R] C) : A ⊗[R] B →ₐc[R] A ⊗[R] C :=
Bialgebra.TensorProduct.map (BialgHom.id R A) f