∀ {R : Type u_1} {M : Type u_2} [inst : CommSemiring R] [inst_1 : AddCommMonoid M] [inst_2 : Module R M] {n : Type w}
  [Nontrivial R] [IsDomain R] (B : LinearMap.BilinForm R M) (v : Module.Basis n R M),
  B.iIsOrtho ⇑v → (B.Nondegenerate ↔ ∀ (i : n), ¬B.IsOrtho (v i) (v i))