∀ {R : Type u_1} [inst : CommRing R] (A : (CommAlgCat R)ᵒᵖ),
  AlgHomClass (↑(Opposite.unop A) ≃ₐ[R] TensorProduct R (↑(Opposite.unop A)) R) R (↑(Opposite.unop A))
    (TensorProduct R (↑(Opposite.unop A)) R)