∀ {R : Type uR} {A : Type uA} {B : Type uB} [inst : CommSemiring R] [inst_1 : Semiring A] [inst_2 : Algebra R A]
  [inst_3 : CommSemiring B] [inst_4 : Algebra R B] (b : B), 1 ⊗ₜ[R] b = (algebraMap B (TensorProduct R A B)) b