Current library: Alpha v34, 4,223 checked-use theorems; Stable remains 432. Historical first admissions, original proof editions, and non-admitted aliases are preserved. Exact original first-admission records.
Statement with defined notation
∀ a. ∀ b. a = b ∨ (Lt(a,b) ∨ Lt(b,a))Every purple notation token opens its conservative definition. Expanding the displayed statement recovers the exact first-order Peano-arithmetic formula checked by the unchanged kernel.
Definitions used by this theorem
In the theorem statement
2 occurrences
In local proof propositions
0 occurrences
Exact expanded native-PA statement
forall a b. a = b \/ ((exists k. k + S a = b) \/ exists k. k + S b = a)Proof neighborhood
Direct theorem prerequisites
Direct theorem dependents
Definition-aware tactic body
Only local propositions introduced by have or suffices are compacted. Every changed line has an exact-AST conservative-expansion receipt; the kernel still receives the immutable original tactic script.
Read the argument
Proof checkpoints
This is a reading aid, not a new proof or a proof-tree certificate. Checkpoint groups are consecutive commands, not inferred branch boundaries. Every step links to the preserved script.
01Induction on aL1–1
Split the argument into the base and successor obligations. The induction hypothesis is available only in the successor branch.
- L1
induction a
02Induction on bL2–2
Split the argument into the base and successor obligations. The induction hypothesis is available only in the successor branch.
- L2
induction b
03Separate the logical casesL3–3
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L3
left
04Calculate and transport equalitiesL4–4
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L4
refl
05Separate the logical casesL5–6
06Construct an explicit witnessL7–7
Supply the displayed value, then prove that it has the required property.
- L7
exists b
07Calculate and transport equalitiesL8–8
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L8
trans S (b + 0)
08Use earlier factsL9–9
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L9
apply PA4
09Calculate and transport equalitiesL10–10
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L10
congr
10Use earlier factsL11–11
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L11
apply PA3
11Induction on bL12–12
Split the argument into the base and successor obligations. The induction hypothesis is available only in the successor branch.
- L12
induction b
12Separate the logical casesL13–14
13Construct an explicit witnessL15–15
Supply the displayed value, then prove that it has the required property.
- L15
exists a
14Calculate and transport equalitiesL16–16
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L16
trans S (a + 0)
15Use earlier factsL17–17
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L17
apply PA4
16Calculate and transport equalitiesL18–18
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L18
congr
17Use earlier factsL19–20
18Separate the logical casesL21–22
19Calculate and transport equalitiesL23–23
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L23
congr
20Use earlier factsL24–24
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L24
exact IH_left
21Separate the logical casesL25–28
22Construct an explicit witnessL29–29
Supply the displayed value, then prove that it has the required property.
- L29
exists x
23Calculate and transport equalitiesL30–31
24Use earlier factsL32–32
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L32
exact IH_right_left_witness
25Separate the logical casesL33–35
26Construct an explicit witnessL36–36
Supply the displayed value, then prove that it has the required property.
- L36
exists x
27Calculate and transport equalitiesL37–38
28Use earlier factsL39–39
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L39
exact IH_right_right_witness
Original defined command ledger · 39 lines
- 0001
induction a - 0002
induction b - 0003
left - 0004
refl - 0005
right - 0006
left - 0007
exists b - 0008
trans S (b + 0) - 0009
apply PA4 - 0010
congr - 0011
apply PA3 - 0012
induction b - 0013
right - 0014
right - 0015
exists a - 0016
trans S (a + 0) - 0017
apply PA4 - 0018
congr - 0019
apply PA3 - 0020
specialize IH b - 0021
cases IH - 0022
left - 0023
congr - 0024
exact IH_left - 0025
cases IH_right - 0026
right - 0027
left - 0028
cases IH_right_left - 0029
exists x - 0030
rewrite PA4 - 0031
congr - 0032
exact IH_right_left_witness - 0033
right - 0034
right - 0035
cases IH_right_right - 0036
exists x - 0037
rewrite PA4 - 0038
congr - 0039
exact IH_right_right_witness