inductive
definition
FailureMode
show as:
view math explainer →
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
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