∀ {R : Type u} [inst : CommRing R] (L : AlgCat R) {M N : AlgCat R} (f : M ⟶ N),
  AlgCat.Hom.hom (CategoryTheory.MonoidalCategoryStruct.whiskerLeft L f) =
    Algebra.TensorProduct.map (AlgHom.id R ↑L) (AlgCat.Hom.hom f)