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 a e. ((~(p = 1) /\ forall frm_prime_left_bpvl_prime frm_prime_right_bpvl_prime. p = frm_prime_left_bpvl_prime * frm_prime_right_bpvl_prime -> frm_prime_left_bpvl_prime = 1 \/ frm_prime_right_bpvl_prime = 1)) -> ~(a = 0) -> (((exists bpv_gap_bpvl_valuation_exponent_bound. bpv_gap_bpvl_valuation_exponent_bound + e = a) /\ (exists bpv_result_bpvl_valuation_selected. ((exists ff_b_bpvl_valuation_selected_power ff_c_bpvl_valuation_selected_power. ((forall ff_i_bpvl_valuation_selected_power_repeat. (exists ff_lt_bpvl_valuation_selected_power_repeat_bound. ff_lt_bpvl_valuation_selected_power_repeat_bound + S ff_i_bpvl_valuation_selected_power_repeat = e) -> (((exists ff_h_bpvl_valuation_selected_power_repeat_decoded. ff_h_bpvl_valuation_selected_power_repeat_decoded + S (p) = S ((S (ff_i_bpvl_valuation_selected_power_repeat)) * ff_c_bpvl_valuation_selected_power)) /\ exists ff_q_bpvl_valuation_selected_power_repeat_decoded. ff_b_bpvl_valuation_selected_power = ff_q_bpvl_valuation_selected_power_repeat_decoded * S ((S (ff_i_bpvl_valuation_selected_power_repeat)) * ff_c_bpvl_valuation_selected_power) + (p)))) /\ (exists ff_u_bpvl_valuation_selected_power_product ff_v_bpvl_valuation_selected_power_product. ((((exists ff_h_bpvl_valuation_selected_power_product_start. ff_h_bpvl_valuation_selected_power_product_start + S (1) = S ((S (0)) * ff_v_bpvl_valuation_selected_power_product)) /\ exists ff_q_bpvl_valuation_selected_power_product_start. ff_u_bpvl_valuation_selected_power_product = ff_q_bpvl_valuation_selected_power_product_start * S ((S (0)) * ff_v_bpvl_valuation_selected_power_product) + (1))) /\ ((((exists ff_h_bpvl_valuation_selected_power_product_terminal. ff_h_bpvl_valuation_selected_power_product_terminal + S (bpv_result_bpvl_valuation_selected) = S ((S (e)) * ff_v_bpvl_valuation_selected_power_product)) /\ exists ff_q_bpvl_valuation_selected_power_product_terminal. ff_u_bpvl_valuation_selected_power_product = ff_q_bpvl_valuation_selected_power_product_terminal * S ((S (e)) * ff_v_bpvl_valuation_selected_power_product) + (bpv_result_bpvl_valuation_selected))) /\ forall ff_i_bpvl_valuation_selected_power_product. (exists ff_lt_bpvl_valuation_selected_power_product_bound. ff_lt_bpvl_valuation_selected_power_product_bound + S ff_i_bpvl_valuation_selected_power_product = e) -> exists ff_p_bpvl_valuation_selected_power_product ff_r_bpvl_valuation_selected_power_product ff_s_bpvl_valuation_selected_power_product. ((((exists ff_h_bpvl_valuation_selected_power_product_factor. ff_h_bpvl_valuation_selected_power_product_factor + S (ff_p_bpvl_valuation_selected_power_product) = S ((S (ff_i_bpvl_valuation_selected_power_product)) * ff_c_bpvl_valuation_selected_power)) /\ exists ff_q_bpvl_valuation_selected_power_product_factor. ff_b_bpvl_valuation_selected_power = ff_q_bpvl_valuation_selected_power_product_factor * S ((S (ff_i_bpvl_valuation_selected_power_product)) * ff_c_bpvl_valuation_selected_power) + (ff_p_bpvl_valuation_selected_power_product))) /\ ((((exists ff_h_bpvl_valuation_selected_power_product_partial. ff_h_bpvl_valuation_selected_power_product_partial + S (ff_r_bpvl_valuation_selected_power_product) = S ((S (ff_i_bpvl_valuation_selected_power_product)) * ff_v_bpvl_valuation_selected_power_product)) /\ exists ff_q_bpvl_valuation_selected_power_product_partial. ff_u_bpvl_valuation_selected_power_product = ff_q_bpvl_valuation_selected_power_product_partial * S ((S (ff_i_bpvl_valuation_selected_power_product)) * ff_v_bpvl_valuation_selected_power_product) + (ff_r_bpvl_valuation_selected_power_product))) /\ ((((exists ff_h_bpvl_valuation_selected_power_product_successor. ff_h_bpvl_valuation_selected_power_product_successor + S (ff_s_bpvl_valuation_selected_power_product) = S ((S (S ff_i_bpvl_valuation_selected_power_product)) * ff_v_bpvl_valuation_selected_power_product)) /\ exists ff_q_bpvl_valuation_selected_power_product_successor. ff_u_bpvl_valuation_selected_power_product = ff_q_bpvl_valuation_selected_power_product_successor * S ((S (S ff_i_bpvl_valuation_selected_power_product)) * ff_v_bpvl_valuation_selected_power_product) + (ff_s_bpvl_valuation_selected_power_product))) /\ ff_s_bpvl_valuation_selected_power_product = ff_r_bpvl_valuation_selected_power_product * ff_p_bpvl_valuation_selected_power_product)))))))) /\ (exists bpv_factor_bpvl_valuation_selected_divides. a = bpv_result_bpvl_valuation_selected * bpv_factor_bpvl_valuation_selected_divides)))) /\ forall bpv_candidate_bpvl_valuation. (exists bpv_gap_bpvl_valuation_candidate_bound. bpv_gap_bpvl_valuation_candidate_bound + bpv_candidate_bpvl_valuation = a) -> (exists bpv_result_bpvl_valuation_candidate. ((exists ff_b_bpvl_valuation_candidate_power ff_c_bpvl_valuation_candidate_power. ((forall ff_i_bpvl_valuation_candidate_power_repeat. (exists ff_lt_bpvl_valuation_candidate_power_repeat_bound. ff_lt_bpvl_valuation_candidate_power_repeat_bound + S ff_i_bpvl_valuation_candidate_power_repeat = bpv_candidate_bpvl_valuation) -> (((exists ff_h_bpvl_valuation_candidate_power_repeat_decoded. ff_h_bpvl_valuation_candidate_power_repeat_decoded + S (p) = S ((S (ff_i_bpvl_valuation_candidate_power_repeat)) * ff_c_bpvl_valuation_candidate_power)) /\ exists ff_q_bpvl_valuation_candidate_power_repeat_decoded. ff_b_bpvl_valuation_candidate_power = ff_q_bpvl_valuation_candidate_power_repeat_decoded * S ((S (ff_i_bpvl_valuation_candidate_power_repeat)) * ff_c_bpvl_valuation_candidate_power) + (p)))) /\ (exists ff_u_bpvl_valuation_candidate_power_product ff_v_bpvl_valuation_candidate_power_product. ((((exists ff_h_bpvl_valuation_candidate_power_product_start. ff_h_bpvl_valuation_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_bpvl_valuation_candidate_power_product)) /\ exists ff_q_bpvl_valuation_candidate_power_product_start. ff_u_bpvl_valuation_candidate_power_product = ff_q_bpvl_valuation_candidate_power_product_start * S ((S (0)) * ff_v_bpvl_valuation_candidate_power_product) + (1))) /\ ((((exists ff_h_bpvl_valuation_candidate_power_product_terminal. ff_h_bpvl_valuation_candidate_power_product_terminal + S (bpv_result_bpvl_valuation_candidate) = S ((S (bpv_candidate_bpvl_valuation)) * ff_v_bpvl_valuation_candidate_power_product)) /\ exists ff_q_bpvl_valuation_candidate_power_product_terminal. ff_u_bpvl_valuation_candidate_power_product = ff_q_bpvl_valuation_candidate_power_product_terminal * S ((S (bpv_candidate_bpvl_valuation)) * ff_v_bpvl_valuation_candidate_power_product) + (bpv_result_bpvl_valuation_candidate))) /\ forall ff_i_bpvl_valuation_candidate_power_product. (exists ff_lt_bpvl_valuation_candidate_power_product_bound. ff_lt_bpvl_valuation_candidate_power_product_bound + S ff_i_bpvl_valuation_candidate_power_product = bpv_candidate_bpvl_valuation) -> exists ff_p_bpvl_valuation_candidate_power_product ff_r_bpvl_valuation_candidate_power_product ff_s_bpvl_valuation_candidate_power_product. ((((exists ff_h_bpvl_valuation_candidate_power_product_factor. ff_h_bpvl_valuation_candidate_power_product_factor + S (ff_p_bpvl_valuation_candidate_power_product) = S ((S (ff_i_bpvl_valuation_candidate_power_product)) * ff_c_bpvl_valuation_candidate_power)) /\ exists ff_q_bpvl_valuation_candidate_power_product_factor. ff_b_bpvl_valuation_candidate_power = ff_q_bpvl_valuation_candidate_power_product_factor * S ((S (ff_i_bpvl_valuation_candidate_power_product)) * ff_c_bpvl_valuation_candidate_power) + (ff_p_bpvl_valuation_candidate_power_product))) /\ ((((exists ff_h_bpvl_valuation_candidate_power_product_partial. ff_h_bpvl_valuation_candidate_power_product_partial + S (ff_r_bpvl_valuation_candidate_power_product) = S ((S (ff_i_bpvl_valuation_candidate_power_product)) * ff_v_bpvl_valuation_candidate_power_product)) /\ exists ff_q_bpvl_valuation_candidate_power_product_partial. ff_u_bpvl_valuation_candidate_power_product = ff_q_bpvl_valuation_candidate_power_product_partial * S ((S (ff_i_bpvl_valuation_candidate_power_product)) * ff_v_bpvl_valuation_candidate_power_product) + (ff_r_bpvl_valuation_candidate_power_product))) /\ ((((exists ff_h_bpvl_valuation_candidate_power_product_successor. ff_h_bpvl_valuation_candidate_power_product_successor + S (ff_s_bpvl_valuation_candidate_power_product) = S ((S (S ff_i_bpvl_valuation_candidate_power_product)) * ff_v_bpvl_valuation_candidate_power_product)) /\ exists ff_q_bpvl_valuation_candidate_power_product_successor. ff_u_bpvl_valuation_candidate_power_product = ff_q_bpvl_valuation_candidate_power_product_successor * S ((S (S ff_i_bpvl_valuation_candidate_power_product)) * ff_v_bpvl_valuation_candidate_power_product) + (ff_s_bpvl_valuation_candidate_power_product))) /\ ff_s_bpvl_valuation_candidate_power_product = ff_r_bpvl_valuation_candidate_power_product * ff_p_bpvl_valuation_candidate_power_product)))))))) /\ (exists bpv_factor_bpvl_valuation_candidate_divides. a = bpv_result_bpvl_valuation_candidate * bpv_factor_bpvl_valuation_candidate_divides))) -> (exists bpv_gap_bpvl_valuation_maximal. bpv_gap_bpvl_valuation_maximal + bpv_candidate_bpvl_valuation = e)) -> ~(exists bpvi_result_bpvl_successor_divides. ((exists bpvi_b_bpvl_successor_divides_power bpvi_c_bpvl_successor_divides_power. ((forall bpvi_i_bpvl_successor_divides_power. (exists bpvi_repeat_gap_bpvl_successor_divides_power. bpvi_repeat_gap_bpvl_successor_divides_power + S bpvi_i_bpvl_successor_divides_power = S e) -> (((exists bpvi_h_bpvl_successor_divides_power_repeat. bpvi_h_bpvl_successor_divides_power_repeat + S (p) = S ((S (bpvi_i_bpvl_successor_divides_power)) * bpvi_c_bpvl_successor_divides_power)) /\ exists bpvi_q_bpvl_successor_divides_power_repeat. bpvi_b_bpvl_successor_divides_power = bpvi_q_bpvl_successor_divides_power_repeat * S ((S (bpvi_i_bpvl_successor_divides_power)) * bpvi_c_bpvl_successor_divides_power) + (p)))) /\ (exists bpvi_u_bpvl_successor_divides_power bpvi_v_bpvl_successor_divides_power. ((((exists bpvi_h_bpvl_successor_divides_power_start. bpvi_h_bpvl_successor_divides_power_start + S (1) = S ((S (0)) * bpvi_v_bpvl_successor_divides_power)) /\ exists bpvi_q_bpvl_successor_divides_power_start. bpvi_u_bpvl_successor_divides_power = bpvi_q_bpvl_successor_divides_power_start * S ((S (0)) * bpvi_v_bpvl_successor_divides_power) + (1))) /\ ((((exists bpvi_h_bpvl_successor_divides_power_terminal. bpvi_h_bpvl_successor_divides_power_terminal + S (bpvi_result_bpvl_successor_divides) = S ((S (S e)) * bpvi_v_bpvl_successor_divides_power)) /\ exists bpvi_q_bpvl_successor_divides_power_terminal. bpvi_u_bpvl_successor_divides_power = bpvi_q_bpvl_successor_divides_power_terminal * S ((S (S e)) * bpvi_v_bpvl_successor_divides_power) + (bpvi_result_bpvl_successor_divides))) /\ forall bpvi_j_bpvl_successor_divides_power. (exists bpvi_product_gap_bpvl_successor_divides_power. bpvi_product_gap_bpvl_successor_divides_power + S bpvi_j_bpvl_successor_divides_power = S e) -> exists bpvi_factor_bpvl_successor_divides_power bpvi_partial_bpvl_successor_divides_power bpvi_successor_bpvl_successor_divides_power. ((((exists bpvi_h_bpvl_successor_divides_power_factor. bpvi_h_bpvl_successor_divides_power_factor + S (bpvi_factor_bpvl_successor_divides_power) = S ((S (bpvi_j_bpvl_successor_divides_power)) * bpvi_c_bpvl_successor_divides_power)) /\ exists bpvi_q_bpvl_successor_divides_power_factor. bpvi_b_bpvl_successor_divides_power = bpvi_q_bpvl_successor_divides_power_factor * S ((S (bpvi_j_bpvl_successor_divides_power)) * bpvi_c_bpvl_successor_divides_power) + (bpvi_factor_bpvl_successor_divides_power))) /\ ((((exists bpvi_h_bpvl_successor_divides_power_partial. bpvi_h_bpvl_successor_divides_power_partial + S (bpvi_partial_bpvl_successor_divides_power) = S ((S (bpvi_j_bpvl_successor_divides_power)) * bpvi_v_bpvl_successor_divides_power)) /\ exists bpvi_q_bpvl_successor_divides_power_partial. bpvi_u_bpvl_successor_divides_power = bpvi_q_bpvl_successor_divides_power_partial * S ((S (bpvi_j_bpvl_successor_divides_power)) * bpvi_v_bpvl_successor_divides_power) + (bpvi_partial_bpvl_successor_divides_power))) /\ ((((exists bpvi_h_bpvl_successor_divides_power_successor. bpvi_h_bpvl_successor_divides_power_successor + S (bpvi_successor_bpvl_successor_divides_power) = S ((S (S bpvi_j_bpvl_successor_divides_power)) * bpvi_v_bpvl_successor_divides_power)) /\ exists bpvi_q_bpvl_successor_divides_power_successor. bpvi_u_bpvl_successor_divides_power = bpvi_q_bpvl_successor_divides_power_successor * S ((S (S bpvi_j_bpvl_successor_divides_power)) * bpvi_v_bpvl_successor_divides_power) + (bpvi_successor_bpvl_successor_divides_power))) /\ bpvi_successor_bpvl_successor_divides_power = bpvi_partial_bpvl_successor_divides_power * bpvi_factor_bpvl_successor_divides_power)))))))) /\ exists bpvi_divisor_factor_bpvl_successor_divides. a = bpvi_result_bpvl_successor_divides * bpvi_divisor_factor_bpvl_successor_divides))Structural proof guide
A canonical valuation at a prime cannot admit the next power divisor.
Direct prerequisites: prime_power_divides_exponent_le_value, zero_add, lt_not_le. The authored body proceeds by case analysis (1), intermediate claims (3).
Proof neighborhood
Direct dependencies
Direct dependents
Formal native tactic body
Dependencies are hypotheses of the historical Alpha-v12 body receipt. The complete historical Alpha-v18 proof bundle independently checks every dependency; current Alpha v25 preserves that checked theorem use without changing 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.
Named ingredients (3)
01Fix variables and assumptionsL1–7
02Establish hboundL8–15
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply prime power divides exponent le value.
03Separate the logical casesL16–16
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L16
cases hvaluation
04Establish himpossibleL17–21
05Establish hstrictL22–22
Establish this local claim before using it. It is not an additional assumption.
- L22
have hstrict : exists k. k + S e = S e
06Construct an explicit witnessL23–23
Supply the displayed value, then prove that it has the required property.
- L23
exists 0
Original exact command ledger · 30 lines
- 0001
intro p - 0002
intro a - 0003
intro e - 0004
intro hp - 0005
intro ha - 0006
intro hvaluation - 0007
intro hsuccessor - 0008
have hbound : exists k. k + S e = a - 0009
specialize prime_power_divides_exponent_le_value p - 0010
specialize prime_power_divides_exponent_le_value (S e) - 0011
specialize prime_power_divides_exponent_le_value a - 0012
apply prime_power_divides_exponent_le_value - 0013
exact hp - 0014
exact ha - 0015
exact hsuccessor - 0016
cases hvaluation - 0017
have himpossible : exists k. k + S e = e - 0018
specialize hvaluation_right (S e) - 0019
apply hvaluation_right - 0020
exact hbound - 0021
exact hsuccessor - 0022
have hstrict : exists k. k + S e = S e - 0023
exists 0 - 0024
specialize zero_add (S e) - 0025
exact zero_add - 0026
specialize lt_not_le e - 0027
specialize lt_not_le (S e) - 0028
apply lt_not_le - 0029
exact hstrict - 0030
exact himpossible