IndisputableMonolith.Geology.RockCycleFromConfigDim

   1import Mathlib
   2import IndisputableMonolith.Constants
   3
   4/-!
   5# Rock Cycle from configDim — Geology Depth
   6
   7Five canonical rock states in the rock cycle (= configDim D = 5):
   8  igneous, sedimentary, metamorphic, partial melt, magma.
   9
  10Transition rates gated by recognition J-cost on the
  11temperature/pressure ratio.
  12
  13Lean status: 0 sorry, 0 axiom.
  14-/
  15
  16namespace IndisputableMonolith.Geology.RockCycleFromConfigDim
  17
  18inductive RockState where
  19  | igneous
  20  | sedimentary
  21  | metamorphic
  22  | partialMelt
  23  | magma
  24  deriving DecidableEq, Repr, BEq, Fintype
  25
  26theorem rockState_count : Fintype.card RockState = 5 := by decide
  27
  28structure RockCycleCert where
  29  five_states : Fintype.card RockState = 5
  30
  31def rockCycleCert : RockCycleCert where
  32  five_states := rockState_count
  33
  34end IndisputableMonolith.Geology.RockCycleFromConfigDim
  35