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.
This is a shared constructive tool, not an additional major blueprint goal. The list covers every prime divisor, has no repeated primes, and contains actual prime-power values. One uses the empty support; zero is excluded.
Exact theorem in conservative defined notation
∀ n. ∀ pb. ∀ pc. ∀ eb. ∀ ec. ∀ vb. ∀ vc. ∀ l. ∀ i. ∀ q. PrimeExponentEntries(n,pb,pc,eb,ec,vb,vc,l) → Lt(i,l) → BetaAt(pb,pc,i,q) → Prime(q) ∧ Dvd(q,n)
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 46 original proof lines are preserved. Only local proposition formulas are abbreviated; every abbreviation has an exact binder-safe expansion check. The linked exact edition contains the unchanged replay 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.
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–13
03Establish hrowL14–17
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply hentries.
- L14
have hrow : ∃ p. ∃ e. ∃ v. BetaAt(pb,pc,i,p) ∧ (BetaAt(eb,ec,i,e) ∧ (BetaAt(vb,vc,i,v) ∧ (Prime(p) ∧ (¬e = 0 ∧ (BoundedPowerValuation(p,n,n,e) ∧ Pow(p,e,v))))))Definitions: BetaAt(pb,pc,i,p)BetaAt(eb,ec,i,e)BetaAt(vb,vc,i,v)Prime(p)BoundedPowerValuation(p,n,n,e)Pow(p,e,v)Original native command in the exact edition - L15
specialize hentries (i) - L16
apply hentries - L17
exact hi
04Separate the logical casesL18–26
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L18
cases hrow - L19
cases hrow_witness - L20
cases hrow_witness_witness - L21
cases hrow_witness_witness_witness - L22
cases hrow_witness_witness_witness_right - L23
cases hrow_witness_witness_witness_right_right - L24
cases hrow_witness_witness_witness_right_right_right - L25
cases hrow_witness_witness_witness_right_right_right_right - L26
cases hrow_witness_witness_witness_right_right_right_right_right
05Establish heqL27–35
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply beta at unique.
06Separate the logical casesL36–36
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L36
split
07Calculate and transport equalitiesL37–38
08Use earlier factsL39–39
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L39
exact hrow_witness_witness_witness_right_right_right_left
09Calculate and transport equalitiesL40–40
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L40
rewrite heq
10Use earlier factsL41–46
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L41
specialize power_valuation_nonzero_exponent_divides_base (x) - L42
specialize power_valuation_nonzero_exponent_divides_base (n) - L43
specialize power_valuation_nonzero_exponent_divides_base (x1) - L44
apply power_valuation_nonzero_exponent_divides_base - L45
exact hrow_witness_witness_witness_right_right_right_right_right_left - L46
exact hrow_witness_witness_witness_right_right_right_right_left
Original defined command ledger · 46 lines
- 0001
intro n - 0002
intro pb - 0003
intro pc - 0004
intro eb - 0005
intro ec - 0006
intro vb - 0007
intro vc - 0008
intro l - 0009
intro i - 0010
intro q - 0011
intro hentries - 0012
intro hi - 0013
intro hat - 0014
have hrow : ∃ p. ∃ e. ∃ v. BetaAt(pb,pc,i,p) ∧ (BetaAt(eb,ec,i,e) ∧ (BetaAt(vb,vc,i,v) ∧ (Prime(p) ∧ (¬e = 0 ∧ (BoundedPowerValuation(p,n,n,e) ∧ Pow(p,e,v)))))) - 0015
specialize hentries (i) - 0016
apply hentries - 0017
exact hi - 0018
cases hrow - 0019
cases hrow_witness - 0020
cases hrow_witness_witness - 0021
cases hrow_witness_witness_witness - 0022
cases hrow_witness_witness_witness_right - 0023
cases hrow_witness_witness_witness_right_right - 0024
cases hrow_witness_witness_witness_right_right_right - 0025
cases hrow_witness_witness_witness_right_right_right_right - 0026
cases hrow_witness_witness_witness_right_right_right_right_right - 0027
have heq : q = x - 0028
specialize beta_at_unique (pb) - 0029
specialize beta_at_unique (pc) - 0030
specialize beta_at_unique (i) - 0031
specialize beta_at_unique (q) - 0032
specialize beta_at_unique (x) - 0033
apply beta_at_unique - 0034
exact hat - 0035
exact hrow_witness_witness_witness_left - 0036
split - 0037
rewrite heq - 0038
rewrite heq - 0039
exact hrow_witness_witness_witness_right_right_right_left - 0040
rewrite heq - 0041
specialize power_valuation_nonzero_exponent_divides_base (x) - 0042
specialize power_valuation_nonzero_exponent_divides_base (n) - 0043
specialize power_valuation_nonzero_exponent_divides_base (x1) - 0044
apply power_valuation_nonzero_exponent_divides_base - 0045
exact hrow_witness_witness_witness_right_right_right_right_right_left - 0046
exact hrow_witness_witness_witness_right_right_right_right_left