def
definition
institutionFailureMode
show as:
view math explainer →
open explainer
Read the cached plain-language explainer.
open lean source
IndisputableMonolith.Governance.InstitutionalFailureFromJCost on GitHub at line 47.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
used by
formal source
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
71 institution_count := institutionCount
72 failure_count := failureModeCount
73 bijection := institution_failure_bijection
74
75end IndisputableMonolith.Governance.InstitutionalFailureFromJCost