∀ {ι : 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} [inst_5 : CharZero R]
  [inst_6 : P.IsCrystallographic] (B : RootPairing.RootPositiveForm ℤ P) {i j : ι},
  3 * B.rootLength i = 1 * B.rootLength j → 0 < B.rootLength i → B.rootLength i ≤ B.rootLength j