Cobham's theory $\mathsf{R_0}$ #
- equal (Ο : Sentence ββα΅£) : Ο β ππ€ ββα΅£ β π₯β Ο
- Ξ©β (n m : β) : π₯β (β(!!βn + !!βm) = !!β(n + m)β)
- Ξ©β (n m : β) : π₯β (β(!!βn * !!βm) = !!β(n * m)β)
- Ξ©β (n m : β) : n β m β π₯β (βΒ¬!!βn = !!βmβ)
- Ξ©β (n : β) : π₯β (ββΒΉ (!!(Semiterm.bvar 0) < !!βn β !(disjLt (fun (i : β) => β!!(Semiterm.bvar 0) = !!βiβ) n))β)
Instances For
Equations
- LO.FirstOrder.Arithmetic.Β«termπ₯βΒ» = Lean.ParserDescr.node `LO.FirstOrder.Arithmetic.Β«termπ₯βΒ» 1024 (Lean.ParserDescr.symbol "π₯β")
Instances For
theorem
LO.FirstOrder.Arithmetic.numeral_add_numeral
{M : Type u_1}
[ORingStructure M]
[Mβ[ββα΅£] β§* π₯β]
(n m : β)
:
theorem
LO.FirstOrder.Arithmetic.numeral_mul_numeral
{M : Type u_1}
[ORingStructure M]
[Mβ[ββα΅£] β§* π₯β]
(n m : β)
:
theorem
LO.FirstOrder.Arithmetic.numeral_ne_numeral_of_ne
{M : Type u_1}
[ORingStructure M]
[Mβ[ββα΅£] β§* π₯β]
{n m : β}
(h : n β m)
:
theorem
LO.FirstOrder.Arithmetic.lt_numeral_iff
{M : Type u_1}
[ORingStructure M]
[Mβ[ββα΅£] β§* π₯β]
{x : M}
{n : β}
:
@[simp]
theorem
LO.FirstOrder.Arithmetic.numeral_inj_iff
{M : Type u_1}
[ORingStructure M]
[Mβ[ββα΅£] β§* π₯β]
{n m : β}
:
@[simp]
theorem
LO.FirstOrder.Arithmetic.numeral_lt_numeral_iff
{M : Type u_1}
[ORingStructure M]
[Mβ[ββα΅£] β§* π₯β]
{n m : β}
:
theorem
LO.FirstOrder.Arithmetic.val_numeral
{M : Type u_1}
[ORingStructure M]
[Mβ[ββα΅£] β§* π₯β]
{n : β}
{ΞΎ : Type u_2}
(bv : Fin n β β)
(fv : ΞΎ β β)
(t : ArithmeticSemiterm ΞΎ n)
:
Semiterm.val (ORingStructure.numeral β bv) (ORingStructure.numeral β fv) t = ORingStructure.numeral (Semiterm.val bv fv t)
theorem
LO.FirstOrder.Arithmetic.bold_sigma_one_completeness
{M : Type u_1}
[ORingStructure M]
[Mβ[ββα΅£] β§* π₯β]
{ΞΎ : Type u_2}
{n : β}
{Ο : ArithmeticSemiformula ΞΎ n}
(hp : Hierarchy πΊ 1 Ο)
{bv : Fin n β β}
{fv : ΞΎ β β}
:
(Semiformula.Eval bv fv) Ο β (Semiformula.Eval (ORingStructure.numeral β bv) (ORingStructure.numeral β fv)) Ο
theorem
LO.FirstOrder.Arithmetic.bold_sigma_one_completeness'
{M : Type u_1}
[ORingStructure M]
[Mβ[ββα΅£] β§* π₯β]
{n : β}
{Ο : ArithmeticSemisentence n}
(hΟ : Hierarchy πΊ 1 Ο)
{bv : Fin n β β}
:
(Semiformula.Evalb bv) Ο β (Semiformula.Evalb (ORingStructure.numeral β bv)) Ο
theorem
LO.FirstOrder.Arithmetic.sigma_one_completeness
{T : ArithmeticTheory}
[π₯β βͺ― T]
{Ο : ArithmeticSentence}
(hΟ : Hierarchy πΊ 1 Ο)
:
theorem
LO.FirstOrder.Arithmetic.sigma_one_completeness_iff
{T : ArithmeticTheory}
[π₯β βͺ― T]
[T.SoundOnHierarchy πΊ 1]
{Ο : ArithmeticSentence}
(hΟ : Hierarchy πΊ 1 Ο)
:
Unprovable theorems of $\mathsf{R}_0$ #
$\omega + 1$ (the structure of order type $\omega + 1$) is a models of $\mathsf{R}_0$.
Ο + 1 models π₯β
Instances For
@[implicit_reducible]
@[implicit_reducible]
Equations
@[implicit_reducible]
Equations
@[implicit_reducible]
Equations
- One or more equations did not get rendered due to their size.
@[simp]
@[simp]
theorem
LO.FirstOrder.Arithmetic.R0.Countermodel.OmegaAddOne.exists_add_zero_ne_self :
β (x : OmegaAddOne), x + 0 β x
@[simp]
def
LO.FirstOrder.Arithmetic.R0.Countermodel.OmegaAddOne.cases'
{P : OmegaAddOne β Sort u_1}
(nat : (n : β) β P βn)
(top : P β€)
(x : OmegaAddOne)
:
P x
Equations
- LO.FirstOrder.Arithmetic.R0.Countermodel.OmegaAddOne.cases' nat top (some n) = nat n
- LO.FirstOrder.Arithmetic.R0.Countermodel.OmegaAddOne.cases' nat top none = top