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
∀ p. Prime(p) → ¬p = 2 → Odd(p)Every purple notation token opens its conservative definition. This is a reading surface; the compiler expands the statement before the unchanged kernel checks it.
Definitions used by this theorem
In the theorem statement
2 occurrences
In local proof propositions
0 occurrences
Exact expanded native-PA statement
forall p. (~(p = 1) /\ forall a b. p = a * b -> a = 1 \/ b = 1) -> ~(p = 2) -> exists h. p = 2 * h + 1Proof neighborhood
Direct theorem prerequisites
Direct theorem dependents
Definition-aware tactic body
Only local propositions introduced by have or suffices are compacted. The untrusted compiler re-expands each one before the original tactic script is replayed; defined notation is never accepted by the kernel. Open the exact replay line beneath every changed command.
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.
Named ingredients (1)
01Fix variables and assumptionsL1–3
02Separate the logical casesL4–4
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L4
cases hp
03Use earlier factsL5–5
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L5
specialize parity_cases p
04Separate the logical casesL6–7
05Establish hfacL8–12
06Separate the logical casesL13–14
07Use earlier factsL15–17
08Separate the logical casesL18–18
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L18
exfalso
09Use earlier factsL19–19
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L19
apply hne
10Calculate and transport equalitiesL20–20
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L20
trans 2 * x
11Use earlier factsL21–21
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L21
exact parity_cases_witness_left
12Calculate and transport equalitiesL22–23
13Construct an explicit witnessL24–24
Supply the displayed value, then prove that it has the required property.
- L24
exists x
14Use earlier factsL25–25
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L25
exact parity_cases_witness_right
Original defined command ledger · 25 lines
- 0001
intro p - 0002
intro hp - 0003
intro hne - 0004
cases hp - 0005
specialize parity_cases p - 0006
cases parity_cases - 0007
cases parity_cases_witness - 0008
have hfac : 2 = 1 \/ x = 1 - 0009
specialize hp_right 2 - 0010
specialize hp_right x - 0011
apply hp_right - 0012
exact parity_cases_witness_left - 0013
cases hfac - 0014
exfalso - 0015
apply PA1 - 0016
apply PA2 - 0017
exact hfac_left - 0018
exfalso - 0019
apply hne - 0020
trans 2 * x - 0021
exact parity_cases_witness_left - 0022
rewrite hfac_right - 0023
simp - 0024
exists x - 0025
exact parity_cases_witness_right