∀ {R : Type u_1} [inst : CommRing R] {A : Type u_2} [inst_1 : AddCommGroup A] {B : Type u_3} [inst_2 : AddCommGroup B]
  [inst_3 : Module R A] [inst_4 : Module R B] (r : R) (c : A →ₗ[R] CharacterModule B),
  TensorProduct.liftAddHom (r • c).toAddMonoidHom ⋯ = (RingHom.id R) r • TensorProduct.liftAddHom c.toAddMonoidHom ⋯