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.
Exact expanded PA statement
forall p. (~(p = 1) /\ forall a b. p = a * b -> a = 1 \/ b = 1) -> ~(p = 2) -> exists h. p = 2 * h + 1Structural proof guide
Generated structural guide
Every prime other than two is odd.
Use the direct prerequisites parity_cases as previously established PA formulas.
The proof proceeds by case analysis (4), intermediate claims (1), equality transport (1), certified simplification (1).
Referenced ingredients
Proof neighborhood
Direct dependencies
Direct dependents
Formal native tactic body
Dependencies are introduced as named hypotheses before line 1. Linked names are exact direct references. This Stable checked-use theorem is independently kernel-checked when replayed.
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 exact 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