∀ {R : Type u_3} [inst : CommRing R] {A : Type u_1} [inst_1 : AddCommGroup A] {B : Type u_2} [inst_2 : AddCommGroup B]
  [inst_3 : Module R A] [inst_4 : Module R B], CharacterModule.uncurry ∘ₗ CharacterModule.curry = LinearMap.id