∀ {ι : Type u_1} {R : Type u_2} {M : Type u_3} {N : Type u_4} [inst : CommRing R] [inst_1 : AddCommGroup M]
  [inst_2 : Module R M] [inst_3 : AddCommGroup N] [inst_4 : Module R N] {P : RootPairing ι R M N} (b : P.Base)
  [inst_5 : P.IsCrystallographic] [CharZero R] [IsDomain R] [Finite ι] [P.IsReduced] [P.IsIrreducible]
  (p : ↥b.support → Prop) {i j : ↥b.support}, p i → (∀ (i j : ↥b.support), p i → b.cartanMatrix j i ≠ 0 → p j) → p j