∀ {R : Type u_1} {M : Type u_2} [inst : CommSemiring R] [inst_1 : AddCommMonoid M] [inst_2 : Module R M]
  {B : LinearMap.BilinForm R M} {N : Submodule R M}, B.IsRefl → N ≤ B.orthogonal (B.orthogonal N)