inductive
definition
SolidarityType
show as:
view math explainer →
open explainer
Read the cached plain-language explainer.
open lean source
IndisputableMonolith.Sociology.SolidarityTypesFromConfigDim on GitHub at line 17.
browse module
All declarations in this module, on Recognition.
explainer page
used by
formal source
14
15namespace IndisputableMonolith.Sociology.SolidarityTypesFromConfigDim
16
17inductive SolidarityType where
18 | mechanical
19 | organic
20 | gesellschaft
21 | gemeinschaft
22 | network
23 deriving DecidableEq, Repr, BEq, Fintype
24
25theorem solidarityType_count : Fintype.card SolidarityType = 5 := by decide
26
27structure SolidarityTypesCert where
28 five_types : Fintype.card SolidarityType = 5
29
30def solidarityTypesCert : SolidarityTypesCert where
31 five_types := solidarityType_count
32
33end IndisputableMonolith.Sociology.SolidarityTypesFromConfigDim