∀ {R : Type u_1} {M : Type u_2} [inst : CommRing R] [inst_1 : AddCommGroup M] [inst_2 : Module R M]
  (B : M →ₗ[R] M →ₗ[R] R) {x : M} (hx : B.IsReflective x) (a b : M), Exists.choose ⋯ = Exists.choose ⋯ + Exists.choose ⋯