∀ {ι : Type u_1} {R : Type u_2} {M : Type u_3} {N : Type u_4} [inst : Fintype ι] [inst_1 : AddCommGroup M]
  [inst_2 : AddCommGroup N] [inst_3 : CommRing R] [inst_4 : Module R M] [inst_5 : Module R N] {P : RootPairing ι R M N},
  (∀ (i : ι), (P.RootForm (P.root i)) (P.root i) ≠ 0) →
    (∀ (i : ι), (P.CorootForm (P.coroot i)) (P.coroot i) ≠ 0) → P.IsAnisotropic