IndisputableMonolith.Economics.FinancialCrisisRegimesFromJCost

   1import Mathlib
   2import IndisputableMonolith.Constants
   3
   4/-!
   5# Financial Crisis Regimes from J-Cost — E6 Depth
   6
   7Five canonical financial-crisis regimes (= configDim D = 5):
   8  credit crisis, currency crisis, sovereign debt crisis,
   9  banking crisis, speculative bubble collapse.
  10
  11Recognition canonical band J(φ) gates onset on the leverage ratio.
  12
  13Lean status: 0 sorry, 0 axiom.
  14-/
  15
  16namespace IndisputableMonolith.Economics.FinancialCrisisRegimesFromJCost
  17
  18inductive FinancialCrisis where
  19  | creditCrisis
  20  | currencyCrisis
  21  | sovereignDebt
  22  | bankingCrisis
  23  | bubbleCollapse
  24  deriving DecidableEq, Repr, BEq, Fintype
  25
  26theorem financialCrisis_count : Fintype.card FinancialCrisis = 5 := by decide
  27
  28structure FinancialCrisisCert where
  29  five_regimes : Fintype.card FinancialCrisis = 5
  30
  31def financialCrisisCert : FinancialCrisisCert where
  32  five_regimes := financialCrisis_count
  33
  34end IndisputableMonolith.Economics.FinancialCrisisRegimesFromJCost
  35