∀ {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), B.IsSymm → ∀ (x y : ↑{x | B.IsReflective x}), B.IsReflective ((Module.reflection ⋯) ↑y)