IndisputableMonolith.Climate.ClimateModelComponentsFromConfigDim

   1import Mathlib
   2import IndisputableMonolith.Constants
   3
   4/-!
   5# Climate Model Components from configDim — B17 Operational Climate Depth
   6
   7Five canonical GCM components (= configDim D = 5):
   8  atmosphere, ocean, land surface, cryosphere, biosphere / carbon cycle.
   9
  10Lean status: 0 sorry, 0 axiom.
  11-/
  12
  13namespace IndisputableMonolith.Climate.ClimateModelComponentsFromConfigDim
  14
  15inductive ClimateComponent where
  16  | atmosphere
  17  | ocean
  18  | landSurface
  19  | cryosphere
  20  | biosphereCarbon
  21  deriving DecidableEq, Repr, BEq, Fintype
  22
  23theorem climateComponent_count : Fintype.card ClimateComponent = 5 := by decide
  24
  25structure ClimateModelComponentsCert where
  26  five_components : Fintype.card ClimateComponent = 5
  27
  28def climateModelComponentsCert : ClimateModelComponentsCert where
  29  five_components := climateComponent_count
  30
  31end IndisputableMonolith.Climate.ClimateModelComponentsFromConfigDim
  32