IndisputableMonolith.Sociology.SolidarityTypesFromConfigDim

   1import Mathlib
   2import IndisputableMonolith.Constants
   3
   4/-!
   5# Solidarity Types from configDim — Sociology Depth
   6
   7Five canonical social-cohesion types (= configDim D = 5):
   8  mechanical solidarity (Durkheim, homogeneous), organic solidarity
   9  (Durkheim, division of labor), gesellschaft (Tönnies, contractual),
  10  gemeinschaft (Tönnies, communal), network solidarity (modern).
  11
  12Lean status: 0 sorry, 0 axiom.
  13-/
  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
  34