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. ∀ h. p = 2 · h + 1 → Prime(p) → Lt(2,p)Every purple notation token opens its conservative definition. This reading surface never changes the unchanged intuitionistic kernel or confers checked-use authority.
Definitions used by this theorem
In the theorem statement
In local proof propositions
Exact expanded first-order statement
forall p h. p = 2 * h + 1 -> ((~(p = 1) /\ forall frm_prime_left_qst_bounded_prime frm_prime_right_qst_bounded_prime. p = frm_prime_left_qst_bounded_prime * frm_prime_right_qst_bounded_prime -> frm_prime_left_qst_bounded_prime = 1 \/ frm_prime_right_qst_bounded_prime = 1)) -> exists gap. gap + S 2 = pProof neighborhood
Direct theorem prerequisites
Direct theorem dependents
Definition-aware tactic body
Only propositions whose conservative expansion has been checked for exact first-order equivalence are compacted. Every changed line retains its immutable exact replay 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.
01Fix variables and assumptionsL1–4
02Establish hnonzeroL5–6
03Separate the logical casesL7–7
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L7
cases hprime
04Use earlier factsL8–8
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L8
apply hprime_left
05Calculate and transport equalitiesL9–11
06Establish hsuccessorL12–15
07Separate the logical casesL16–16
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L16
cases hsuccessor
08Construct an explicit witnessL17–17
Supply the displayed value, then prove that it has the required property.
- L17
exists 2 * x
Original defined command ledger · 20 lines
- 0001
intro p - 0002
intro h - 0003
intro hpodd - 0004
intro hprime - 0005
have hnonzero : ~(h = 0) - 0006
intro hzero - 0007
cases hprime - 0008
apply hprime_left - 0009
rewrite hpodd - 0010
rewrite hzero - 0011
norm_num - 0012
have hsuccessor : exists k. h = S k - 0013
specialize nonzero_is_succ h - 0014
apply nonzero_is_succ - 0015
exact hnonzero - 0016
cases hsuccessor - 0017
exists 2 * x - 0018
rewrite hpodd - 0019
rewrite hsuccessor_witness - 0020
simp [mul_add, zero_add]