∀ {K : Type u_2} {L : Type u_1} [inst : Field K] [inst_1 : CharZero K] [inst_2 : LieRing L] [inst_3 : LieAlgebra K L]
  [inst_5 : FiniteDimensional K L] {H : LieSubalgebra K L} [inst_6 : H.IsCartanSubalgebra]
  (α β : LieModule.Weight K (↥H) L) {n : ℕ},
  ¬LieAlgebra.rootSpace H (-(n • ⇑α) + ⇑(LieModule.chainTop (⇑α) β)) = ⊥ →
    ¬LieModule.genWeightSpace L (-(↑n * ⇑α) + ⇑(LieModule.chainTop (⇑α) β)) = ⊥