inductive
definition
CeramicClass
show as:
view math explainer →
open explainer
Generate a durable explainer page for this declaration.
open lean source
IndisputableMonolith.Materials.CeramicClassesFromConfigDim on GitHub at line 15.
browse module
All declarations in this module, on Recognition.
explainer page
used by
formal source
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