IndisputableMonolith.Materials.MagnetismTypesFromConfigDim

   1import Mathlib
   2import IndisputableMonolith.Constants
   3
   4/-!
   5# Magnetism Types from configDim — B15 Materials Depth
   6
   7Five canonical magnetic orderings (= configDim D = 5):
   8  diamagnetism, paramagnetism, ferromagnetism, antiferromagnetism,
   9  ferrimagnetism.
  10
  11Lean status: 0 sorry, 0 axiom.
  12-/
  13
  14namespace IndisputableMonolith.Materials.MagnetismTypesFromConfigDim
  15
  16inductive MagnetismType where
  17  | diamagnetism
  18  | paramagnetism
  19  | ferromagnetism
  20  | antiferromagnetism
  21  | ferrimagnetism
  22  deriving DecidableEq, Repr, BEq, Fintype
  23
  24theorem magnetismType_count : Fintype.card MagnetismType = 5 := by decide
  25
  26structure MagnetismTypesCert where
  27  five_types : Fintype.card MagnetismType = 5
  28
  29def magnetismTypesCert : MagnetismTypesCert where
  30  five_types := magnetismType_count
  31
  32end IndisputableMonolith.Materials.MagnetismTypesFromConfigDim
  33