inductive
definition
DiffGeoStructure
show as:
view math explainer →
open explainer
Generate a durable explainer page for this declaration.
open lean source
IndisputableMonolith.Mathematics.DifferentialGeometryFromRS on GitHub at line 22.
browse module
All declarations in this module, on Recognition.
explainer page
used by
formal source
19
20namespace IndisputableMonolith.Mathematics.DifferentialGeometryFromRS
21
22inductive DiffGeoStructure where
23 | smoothManifold | riemannian | pseudoRiemannian | kahler | symplectic
24 deriving DecidableEq, Repr, BEq, Fintype
25
26theorem diffGeoStructureCount : Fintype.card DiffGeoStructure = 5 := by decide
27
28def rsDimension : ℕ := 3
29def rsSpacetimeDim : ℕ := rsDimension + 1
30
31theorem rsSpacetimeDim_eq_4 : rsSpacetimeDim = 4 := by decide
32theorem rsSpacetimeDim_lorentzian : rsSpacetimeDim = 4 := rsSpacetimeDim_eq_4
33
34structure DiffGeoCert where
35 five_structures : Fintype.card DiffGeoStructure = 5
36 spacetime_4 : rsSpacetimeDim = 4
37
38def diffGeoCert : DiffGeoCert where
39 five_structures := diffGeoStructureCount
40 spacetime_4 := rsSpacetimeDim_eq_4
41
42end IndisputableMonolith.Mathematics.DifferentialGeometryFromRS