pith. machine review for the scientific record. sign in
inductive

FailureMode

definition
show as:
view math explainer →
module
IndisputableMonolith.Governance.InstitutionalFailureFromJCost
domain
Governance
line
40 · github
papers citing
none yet

open explainer

Read the cached plain-language explainer.

open lean source

IndisputableMonolith.Governance.InstitutionalFailureFromJCost on GitHub at line 40.

browse module

All declarations in this module, on Recognition.

explainer page

A cached Ask Recognition explainer exists for this declaration.

open explainer

depends on

used by

formal source

  37
  38theorem institutionCount : Fintype.card GovernanceInstitution = 5 := by decide
  39
  40inductive FailureMode where
  41  | authoritarianism | oligarchy | ruleOfMen | coupRisk | informationCollapse
  42  deriving DecidableEq, Repr, BEq, Fintype
  43
  44theorem failureModeCount : Fintype.card FailureMode = 5 := by decide
  45
  46/-- Each institution has exactly one failure mode. -/
  47def institutionFailureMode : GovernanceInstitution → FailureMode
  48  | .executive => .authoritarianism
  49  | .legislative => .oligarchy
  50  | .judicial => .ruleOfMen
  51  | .military => .coupRisk
  52  | .press => .informationCollapse
  53
  54theorem institution_failure_bijection : Function.Bijective institutionFailureMode := by
  55  constructor
  56  · intro x y h
  57    cases x <;> cases y <;> simp_all [institutionFailureMode]
  58  · intro y; cases y
  59    · exact ⟨.executive, rfl⟩
  60    · exact ⟨.legislative, rfl⟩
  61    · exact ⟨.judicial, rfl⟩
  62    · exact ⟨.military, rfl⟩
  63    · exact ⟨.press, rfl⟩
  64
  65structure GovernanceCert where
  66  institution_count : Fintype.card GovernanceInstitution = 5
  67  failure_count : Fintype.card FailureMode = 5
  68  bijection : Function.Bijective institutionFailureMode
  69
  70def governanceCert : GovernanceCert where