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 first-order arithmetic statement
forall n k r. ~(n = 0) -> ~(k = 0) -> (exists pa_b_pvs_positive_output pa_c_pvs_positive_output. ((forall pa_i_pvs_positive_output_repeat. (exists pa_lt_pvs_positive_output_repeat_bound. pa_lt_pvs_positive_output_repeat_bound + S pa_i_pvs_positive_output_repeat = k) -> (((exists pa_h_pvs_positive_output_repeat_decoded. pa_h_pvs_positive_output_repeat_decoded + S (r) = S ((S (pa_i_pvs_positive_output_repeat)) * pa_c_pvs_positive_output)) /\ exists pa_q_pvs_positive_output_repeat_decoded. pa_b_pvs_positive_output = pa_q_pvs_positive_output_repeat_decoded * S ((S (pa_i_pvs_positive_output_repeat)) * pa_c_pvs_positive_output) + (r)))) /\ (exists pa_u_pvs_positive_output_product pa_v_pvs_positive_output_product. ((((exists pa_h_pvs_positive_output_product_start. pa_h_pvs_positive_output_product_start + S (1) = S ((S (0)) * pa_v_pvs_positive_output_product)) /\ exists pa_q_pvs_positive_output_product_start. pa_u_pvs_positive_output_product = pa_q_pvs_positive_output_product_start * S ((S (0)) * pa_v_pvs_positive_output_product) + (1))) /\ ((((exists pa_h_pvs_positive_output_product_terminal. pa_h_pvs_positive_output_product_terminal + S (n) = S ((S (k)) * pa_v_pvs_positive_output_product)) /\ exists pa_q_pvs_positive_output_product_terminal. pa_u_pvs_positive_output_product = pa_q_pvs_positive_output_product_terminal * S ((S (k)) * pa_v_pvs_positive_output_product) + (n))) /\ forall pa_i_pvs_positive_output_product. (exists pa_lt_pvs_positive_output_product_bound. pa_lt_pvs_positive_output_product_bound + S pa_i_pvs_positive_output_product = k) -> exists pa_p_pvs_positive_output_product pa_r_pvs_positive_output_product pa_s_pvs_positive_output_product. ((((exists pa_h_pvs_positive_output_product_factor. pa_h_pvs_positive_output_product_factor + S (pa_p_pvs_positive_output_product) = S ((S (pa_i_pvs_positive_output_product)) * pa_c_pvs_positive_output)) /\ exists pa_q_pvs_positive_output_product_factor. pa_b_pvs_positive_output = pa_q_pvs_positive_output_product_factor * S ((S (pa_i_pvs_positive_output_product)) * pa_c_pvs_positive_output) + (pa_p_pvs_positive_output_product))) /\ ((((exists pa_h_pvs_positive_output_product_partial. pa_h_pvs_positive_output_product_partial + S (pa_r_pvs_positive_output_product) = S ((S (pa_i_pvs_positive_output_product)) * pa_v_pvs_positive_output_product)) /\ exists pa_q_pvs_positive_output_product_partial. pa_u_pvs_positive_output_product = pa_q_pvs_positive_output_product_partial * S ((S (pa_i_pvs_positive_output_product)) * pa_v_pvs_positive_output_product) + (pa_r_pvs_positive_output_product))) /\ ((((exists pa_h_pvs_positive_output_product_successor. pa_h_pvs_positive_output_product_successor + S (pa_s_pvs_positive_output_product) = S ((S (S pa_i_pvs_positive_output_product)) * pa_v_pvs_positive_output_product)) /\ exists pa_q_pvs_positive_output_product_successor. pa_u_pvs_positive_output_product = pa_q_pvs_positive_output_product_successor * S ((S (S pa_i_pvs_positive_output_product)) * pa_v_pvs_positive_output_product) + (pa_s_pvs_positive_output_product))) /\ pa_s_pvs_positive_output_product = pa_r_pvs_positive_output_product * pa_p_pvs_positive_output_product)))))))) -> ~(r = 0)Constructive proof overview
Generated structural guide
An actual positive-degree power with positive value has a nonzero natural base.
The unchanged tactic script uses 2 declared prerequisites and contains 20 exact native proof lines.
Alpha v34 checked-use · first admitted v29 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
pow_positive_exponent_base_divides Alpha theorem; checked-use authorized mul_zero_left Stable theorem; checked-use authorizedDirect dependents
Formal native tactic body
Dependencies are introduced as named hypotheses before line 1. Local theorem links identify exact declared prerequisites. This exact body belongs to a complete independently kernel-checked constructive proof bundle and has Alpha checked-use authority; it does not imply Stable membership.
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–7
02Establish hdivL8–14
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply pow positive exponent base divides.
- L8
have hdiv : exists pvs_factor_positive_base_divisor. (n) = (r) * pvs_factor_positive_base_divisor - L9
specialize pow_positive_exponent_base_divides (r) - L10
specialize pow_positive_exponent_base_divides (k) - L11
specialize pow_positive_exponent_base_divides (n) - L12
apply pow_positive_exponent_base_divides - L13
exact hk - L14
exact hpow
03Separate the logical casesL15–15
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L15
cases hdiv
04Use earlier factsL16–16
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L16
apply hn
05Calculate and transport equalitiesL17–17
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L17
trans r * x
06Use earlier factsL18–18
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L18
exact hdiv_witness
07Calculate and transport equalitiesL19–19
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L19
rewrite hr
08Use earlier factsL20–20
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L20
apply mul_zero_left
Original exact command ledger · 20 lines
- 0001
intro n - 0002
intro k - 0003
intro r - 0004
intro hn - 0005
intro hk - 0006
intro hpow - 0007
intro hr - 0008
have hdiv : exists pvs_factor_positive_base_divisor. (n) = (r) * pvs_factor_positive_base_divisor - 0009
specialize pow_positive_exponent_base_divides (r) - 0010
specialize pow_positive_exponent_base_divides (k) - 0011
specialize pow_positive_exponent_base_divides (n) - 0012
apply pow_positive_exponent_base_divides - 0013
exact hk - 0014
exact hpow - 0015
cases hdiv - 0016
apply hn - 0017
trans r * x - 0018
exact hdiv_witness - 0019
rewrite hr - 0020
apply mul_zero_left