def
definition
arith
show as:
view math explainer →
open explainer
Generate a durable explainer page for this declaration.
open lean source
IndisputableMonolith.Foundation.UniversalForcing.StrictRealization on GitHub at line 95.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
used by
-
_biology_ok -
_categorical_ok -
_ethics_ok -
_music_ok -
_narrative_ok -
_ordered_ok -
biology_arith_equiv_logicNat -
strictCategorical_arith_equiv_logicNat -
strictBoolean_arith_equiv_logicNat -
strictPositiveRatio_arith_equiv_strictBoolean -
ethics_arith_equiv_logicNat -
strict_arith_universal_initial -
strict_peano_surface -
strict_universal_forcing -
StrictMetaphysicalGround -
strict_metaphysical_ground_unique -
strictUniversalGround -
strictModular_arith_equiv_logicNat -
music_arith_equiv_logicNat -
narrative_arith_equiv_logicNat -
strictOrdered_arith_equiv_logicNat -
positiveRatio_arith_equiv_logicNat -
positiveRatio_strict_equiv_existing -
arith_equiv_logicNat -
peano_surface -
universal_forcing -
metaphysical_ground_invariant -
ArithmeticDeformationIdentification -
attachmentWithMargin_of_bossLemma
formal source
92
93/-- Strict forced arithmetic is the arithmetic extracted from the derived
94lightweight realization. -/
95def arith (R : StrictLogicRealization) : ArithmeticOf (toLightweight R) :=
96 arithmeticOf (toLightweight R)
97
98/-- Every strict realization has forced arithmetic canonically equivalent to
99`LogicNat`. -/
100def arith_equiv_logicNat (R : StrictLogicRealization) :
101 (arith R).peano.carrier ≃ LogicNat :=
102 (toLightweight R).orbitEquivLogicNat
103
104/-- Universal forcing for strict realizations. -/
105noncomputable def universal_forcing (R S : StrictLogicRealization) :
106 (arith R).peano.carrier ≃ (arith S).peano.carrier :=
107 ArithmeticOf.equivOfInitial (arith R) (arith S)
108
109/-- The Peano surface is inherited from the derived free orbit. -/
110theorem peano_surface (R : StrictLogicRealization) :
111 ArithmeticOf.PeanoSurface (arith R) :=
112 UniversalForcing.peano_surface (toLightweight R)
113
114end StrictLogicRealization
115
116end Strict
117end UniversalForcing
118end Foundation
119end IndisputableMonolith