IndisputableMonolith.Materials.CeramicClassesFromConfigDim

   1import Mathlib
   2import IndisputableMonolith.Constants
   3
   4/-!
   5# Ceramic Classes from configDim — Materials Depth
   6
   7Five canonical ceramic families (= configDim D = 5):
   8  oxides, carbides, nitrides, borides, silicates.
   9
  10Lean status: 0 sorry, 0 axiom.
  11-/
  12
  13namespace IndisputableMonolith.Materials.CeramicClassesFromConfigDim
  14
  15inductive CeramicClass where
  16  | oxide
  17  | carbide
  18  | nitride
  19  | boride
  20  | silicate
  21  deriving DecidableEq, Repr, BEq, Fintype
  22
  23theorem ceramicClass_count : Fintype.card CeramicClass = 5 := by decide
  24
  25structure CeramicClassesCert where
  26  five_classes : Fintype.card CeramicClass = 5
  27
  28def ceramicClassesCert : CeramicClassesCert where
  29  five_classes := ceramicClass_count
  30
  31end IndisputableMonolith.Materials.CeramicClassesFromConfigDim
  32