∀ {R : Type u_1} [inst : CommRing R] (A : (CommAlgCat R)ᵒᵖ) [inst_1 : CategoryTheory.MonObj A],
  (Algebra.TensorProduct.map (CommAlgCat.Hom.hom CategoryTheory.MonObj.one.unop) (AlgHom.id R ↑(Opposite.unop A))).comp
      (CommAlgCat.Hom.hom CategoryTheory.MonObj.mul.unop) =
    ↑(Algebra.TensorProduct.lid R ↑(Opposite.unop A)).symm