∀ {ι : 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 : CharZero R] [Finite ι] [IsDomain R] [P.IsCrystallographic] {i : ι},
  b.IsPos i →
    ∃ n f,
      Set.range f ⊆ ↑b.support ∧
        P.root i = ∑ m, P.root (f m) ∧ ∀ (m : Fin n), ∑ m' ∈ Finset.Iic m, P.root (f m') ∈ Set.range ⇑P.root