IndisputableMonolith.Philosophy.FreeWillCategoriesFromConfigDim

   1import Mathlib
   2import IndisputableMonolith.Constants
   3
   4/-!
   5# Free Will Categories from configDim — D8 Philosophy Depth
   6
   7Five canonical stances on free will (= configDim D = 5):
   8  hard determinism, hard incompatibilism, classical compatibilism,
   9  libertarian (agent-causal), libertarian (event-causal).
  10
  11RS's position: compatibilism rooted in recognition-symmetric J-cost
  12degeneracy.
  13
  14Lean status: 0 sorry, 0 axiom.
  15-/
  16
  17namespace IndisputableMonolith.Philosophy.FreeWillCategoriesFromConfigDim
  18
  19inductive FreeWillStance where
  20  | hardDeterminism
  21  | hardIncompatibilism
  22  | classicalCompatibilism
  23  | libertarianAgentCausal
  24  | libertarianEventCausal
  25  deriving DecidableEq, Repr, BEq, Fintype
  26
  27theorem freeWillStance_count :
  28    Fintype.card FreeWillStance = 5 := by decide
  29
  30structure FreeWillCategoriesCert where
  31  five_stances : Fintype.card FreeWillStance = 5
  32
  33def freeWillCategoriesCert : FreeWillCategoriesCert where
  34  five_stances := freeWillStance_count
  35
  36end IndisputableMonolith.Philosophy.FreeWillCategoriesFromConfigDim
  37