noncomputable def countCriticalSuppliers (e : WeightedHierarchicalCESEconomy N) (n : Fin N) (threshold : ℝ) : ℕ := (Finset.univ.filter fun j => threshold < e.a n j).card
thesis/CESProofs/Hierarchy/Defs.lean:344
## Weighted Hierarchical CES Economy