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.
For n>1 the exponent gcd and a real beta table classify and witness all positive root degrees. The unit n=1 has a separate uniform certificate for every positive degree. Zero is excluded. NaturalSquarefreeDecomposition is deliberately distinct from the unrelated polynomial definition.
Exact theorem in conservative defined notation
∀ n. ∀ k. ∀ p. ∀ e. ∀ P. ∀ u. Prime(p) → ¬u = 0 → n = P · u → Pow(p,e,P) → ¬Dvd(p,u) → PrimeValuationsDivisible(n,k) → PrimeValuationsDivisible(u,k)
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 66 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–16
03Establish hcaseL17–20
04Separate the logical casesL21–21
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L21
cases hcase
05Calculate and transport equalitiesL22–25
06Establish hfzeroL26–35
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply power valuation functional.
- L26
have hfzero : f = 0 - L27
specialize power_valuation_functional (p) - L28
specialize power_valuation_functional (u) - L29
specialize power_valuation_functional (f) - L30
specialize power_valuation_functional (0) - L31
apply power_valuation_functional - L32
exact hval - L33
specialize prime_valuation_zero_of_nondivisor (p) - L34
specialize prime_valuation_zero_of_nondivisor (u) - L35
apply prime_valuation_zero_of_nondivisor
07Use earlier factsL36–38
08Construct an explicit witnessL39–39
Supply the displayed value, then prove that it has the required property.
- L39
exists 0
09Calculate and transport equalitiesL40–41
10Use earlier factsL42–51
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L42
apply PA5 - L43
specialize hsource (q) - L44
specialize hsource (f) - L45
apply hsource - L46
exact hq - L47
specialize power_valuation_value_eq_transport (q) - L48
specialize power_valuation_value_eq_transport (P * u) - L49
specialize power_valuation_value_eq_transport (n) - L50
specialize power_valuation_value_eq_transport (f) - L51
apply power_valuation_value_eq_transport
11Calculate and transport equalitiesL52–52
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L52
symm
12Use earlier factsL53–62
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L53
exact heq - L54
specialize prime_valuation_strip_other_prime (p) - L55
specialize prime_valuation_strip_other_prime (q) - L56
specialize prime_valuation_strip_other_prime (e) - L57
specialize prime_valuation_strip_other_prime (P) - L58
specialize prime_valuation_strip_other_prime (u) - L59
specialize prime_valuation_strip_other_prime (f) - L60
apply prime_valuation_strip_other_prime - L61
exact hp - L62
exact hq
Original defined command ledger · 66 lines
- 0001
intro n - 0002
intro k - 0003
intro p - 0004
intro e - 0005
intro P - 0006
intro u - 0007
intro hp - 0008
intro hu - 0009
intro heq - 0010
intro hpow - 0011
intro hfresh - 0012
intro hsource - 0013
intro q - 0014
intro f - 0015
intro hq - 0016
intro hval - 0017
have hcase : q = p \/ ~(q = p) - 0018
specialize eq_decidable (q) - 0019
specialize eq_decidable (p) - 0020
apply eq_decidable - 0021
cases hcase - 0022
rewrite hcase_left at hval - 0023
rewrite hcase_left at hval - 0024
rewrite hcase_left at hval - 0025
rewrite hcase_left at hval - 0026
have hfzero : f = 0 - 0027
specialize power_valuation_functional (p) - 0028
specialize power_valuation_functional (u) - 0029
specialize power_valuation_functional (f) - 0030
specialize power_valuation_functional (0) - 0031
apply power_valuation_functional - 0032
exact hval - 0033
specialize prime_valuation_zero_of_nondivisor (p) - 0034
specialize prime_valuation_zero_of_nondivisor (u) - 0035
apply prime_valuation_zero_of_nondivisor - 0036
exact hp - 0037
exact hu - 0038
exact hfresh - 0039
exists 0 - 0040
rewrite hfzero - 0041
symm - 0042
apply PA5 - 0043
specialize hsource (q) - 0044
specialize hsource (f) - 0045
apply hsource - 0046
exact hq - 0047
specialize power_valuation_value_eq_transport (q) - 0048
specialize power_valuation_value_eq_transport (P * u) - 0049
specialize power_valuation_value_eq_transport (n) - 0050
specialize power_valuation_value_eq_transport (f) - 0051
apply power_valuation_value_eq_transport - 0052
symm - 0053
exact heq - 0054
specialize prime_valuation_strip_other_prime (p) - 0055
specialize prime_valuation_strip_other_prime (q) - 0056
specialize prime_valuation_strip_other_prime (e) - 0057
specialize prime_valuation_strip_other_prime (P) - 0058
specialize prime_valuation_strip_other_prime (u) - 0059
specialize prime_valuation_strip_other_prime (f) - 0060
apply prime_valuation_strip_other_prime - 0061
exact hp - 0062
exact hq - 0063
exact hcase_right - 0064
exact hu - 0065
exact hpow - 0066
exact hval