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. ∀ a. ∀ e. ∀ E. Prime(p) → ¬a = 0 → PowerValuation(p,a,e) → PowerValuation(p,a · a,E) → E = e + eEvery 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 a e E. ((~(p = 1) /\ forall frm_prime_left_ftsv_prime frm_prime_right_ftsv_prime. p = frm_prime_left_ftsv_prime * frm_prime_right_ftsv_prime -> frm_prime_left_ftsv_prime = 1 \/ frm_prime_right_ftsv_prime = 1)) -> ~(a = 0) -> (((exists bpv_gap_ftsv_square_input_exponent_bound. bpv_gap_ftsv_square_input_exponent_bound + e = a) /\ (exists bpv_result_ftsv_square_input_selected. ((exists ff_b_ftsv_square_input_selected_power ff_c_ftsv_square_input_selected_power. ((forall ff_i_ftsv_square_input_selected_power_repeat. (exists ff_lt_ftsv_square_input_selected_power_repeat_bound. ff_lt_ftsv_square_input_selected_power_repeat_bound + S ff_i_ftsv_square_input_selected_power_repeat = e) -> (((exists ff_h_ftsv_square_input_selected_power_repeat_decoded. ff_h_ftsv_square_input_selected_power_repeat_decoded + S (p) = S ((S (ff_i_ftsv_square_input_selected_power_repeat)) * ff_c_ftsv_square_input_selected_power)) /\ exists ff_q_ftsv_square_input_selected_power_repeat_decoded. ff_b_ftsv_square_input_selected_power = ff_q_ftsv_square_input_selected_power_repeat_decoded * S ((S (ff_i_ftsv_square_input_selected_power_repeat)) * ff_c_ftsv_square_input_selected_power) + (p)))) /\ (exists ff_u_ftsv_square_input_selected_power_product ff_v_ftsv_square_input_selected_power_product. ((((exists ff_h_ftsv_square_input_selected_power_product_start. ff_h_ftsv_square_input_selected_power_product_start + S (1) = S ((S (0)) * ff_v_ftsv_square_input_selected_power_product)) /\ exists ff_q_ftsv_square_input_selected_power_product_start. ff_u_ftsv_square_input_selected_power_product = ff_q_ftsv_square_input_selected_power_product_start * S ((S (0)) * ff_v_ftsv_square_input_selected_power_product) + (1))) /\ ((((exists ff_h_ftsv_square_input_selected_power_product_terminal. ff_h_ftsv_square_input_selected_power_product_terminal + S (bpv_result_ftsv_square_input_selected) = S ((S (e)) * ff_v_ftsv_square_input_selected_power_product)) /\ exists ff_q_ftsv_square_input_selected_power_product_terminal. ff_u_ftsv_square_input_selected_power_product = ff_q_ftsv_square_input_selected_power_product_terminal * S ((S (e)) * ff_v_ftsv_square_input_selected_power_product) + (bpv_result_ftsv_square_input_selected))) /\ forall ff_i_ftsv_square_input_selected_power_product. (exists ff_lt_ftsv_square_input_selected_power_product_bound. ff_lt_ftsv_square_input_selected_power_product_bound + S ff_i_ftsv_square_input_selected_power_product = e) -> exists ff_p_ftsv_square_input_selected_power_product ff_r_ftsv_square_input_selected_power_product ff_s_ftsv_square_input_selected_power_product. ((((exists ff_h_ftsv_square_input_selected_power_product_factor. ff_h_ftsv_square_input_selected_power_product_factor + S (ff_p_ftsv_square_input_selected_power_product) = S ((S (ff_i_ftsv_square_input_selected_power_product)) * ff_c_ftsv_square_input_selected_power)) /\ exists ff_q_ftsv_square_input_selected_power_product_factor. ff_b_ftsv_square_input_selected_power = ff_q_ftsv_square_input_selected_power_product_factor * S ((S (ff_i_ftsv_square_input_selected_power_product)) * ff_c_ftsv_square_input_selected_power) + (ff_p_ftsv_square_input_selected_power_product))) /\ ((((exists ff_h_ftsv_square_input_selected_power_product_partial. ff_h_ftsv_square_input_selected_power_product_partial + S (ff_r_ftsv_square_input_selected_power_product) = S ((S (ff_i_ftsv_square_input_selected_power_product)) * ff_v_ftsv_square_input_selected_power_product)) /\ exists ff_q_ftsv_square_input_selected_power_product_partial. ff_u_ftsv_square_input_selected_power_product = ff_q_ftsv_square_input_selected_power_product_partial * S ((S (ff_i_ftsv_square_input_selected_power_product)) * ff_v_ftsv_square_input_selected_power_product) + (ff_r_ftsv_square_input_selected_power_product))) /\ ((((exists ff_h_ftsv_square_input_selected_power_product_successor. ff_h_ftsv_square_input_selected_power_product_successor + S (ff_s_ftsv_square_input_selected_power_product) = S ((S (S ff_i_ftsv_square_input_selected_power_product)) * ff_v_ftsv_square_input_selected_power_product)) /\ exists ff_q_ftsv_square_input_selected_power_product_successor. ff_u_ftsv_square_input_selected_power_product = ff_q_ftsv_square_input_selected_power_product_successor * S ((S (S ff_i_ftsv_square_input_selected_power_product)) * ff_v_ftsv_square_input_selected_power_product) + (ff_s_ftsv_square_input_selected_power_product))) /\ ff_s_ftsv_square_input_selected_power_product = ff_r_ftsv_square_input_selected_power_product * ff_p_ftsv_square_input_selected_power_product)))))))) /\ (exists bpv_factor_ftsv_square_input_selected_divides. a = bpv_result_ftsv_square_input_selected * bpv_factor_ftsv_square_input_selected_divides)))) /\ forall bpv_candidate_ftsv_square_input. (exists bpv_gap_ftsv_square_input_candidate_bound. bpv_gap_ftsv_square_input_candidate_bound + bpv_candidate_ftsv_square_input = a) -> (exists bpv_result_ftsv_square_input_candidate. ((exists ff_b_ftsv_square_input_candidate_power ff_c_ftsv_square_input_candidate_power. ((forall ff_i_ftsv_square_input_candidate_power_repeat. (exists ff_lt_ftsv_square_input_candidate_power_repeat_bound. ff_lt_ftsv_square_input_candidate_power_repeat_bound + S ff_i_ftsv_square_input_candidate_power_repeat = bpv_candidate_ftsv_square_input) -> (((exists ff_h_ftsv_square_input_candidate_power_repeat_decoded. ff_h_ftsv_square_input_candidate_power_repeat_decoded + S (p) = S ((S (ff_i_ftsv_square_input_candidate_power_repeat)) * ff_c_ftsv_square_input_candidate_power)) /\ exists ff_q_ftsv_square_input_candidate_power_repeat_decoded. ff_b_ftsv_square_input_candidate_power = ff_q_ftsv_square_input_candidate_power_repeat_decoded * S ((S (ff_i_ftsv_square_input_candidate_power_repeat)) * ff_c_ftsv_square_input_candidate_power) + (p)))) /\ (exists ff_u_ftsv_square_input_candidate_power_product ff_v_ftsv_square_input_candidate_power_product. ((((exists ff_h_ftsv_square_input_candidate_power_product_start. ff_h_ftsv_square_input_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_ftsv_square_input_candidate_power_product)) /\ exists ff_q_ftsv_square_input_candidate_power_product_start. ff_u_ftsv_square_input_candidate_power_product = ff_q_ftsv_square_input_candidate_power_product_start * S ((S (0)) * ff_v_ftsv_square_input_candidate_power_product) + (1))) /\ ((((exists ff_h_ftsv_square_input_candidate_power_product_terminal. ff_h_ftsv_square_input_candidate_power_product_terminal + S (bpv_result_ftsv_square_input_candidate) = S ((S (bpv_candidate_ftsv_square_input)) * ff_v_ftsv_square_input_candidate_power_product)) /\ exists ff_q_ftsv_square_input_candidate_power_product_terminal. ff_u_ftsv_square_input_candidate_power_product = ff_q_ftsv_square_input_candidate_power_product_terminal * S ((S (bpv_candidate_ftsv_square_input)) * ff_v_ftsv_square_input_candidate_power_product) + (bpv_result_ftsv_square_input_candidate))) /\ forall ff_i_ftsv_square_input_candidate_power_product. (exists ff_lt_ftsv_square_input_candidate_power_product_bound. ff_lt_ftsv_square_input_candidate_power_product_bound + S ff_i_ftsv_square_input_candidate_power_product = bpv_candidate_ftsv_square_input) -> exists ff_p_ftsv_square_input_candidate_power_product ff_r_ftsv_square_input_candidate_power_product ff_s_ftsv_square_input_candidate_power_product. ((((exists ff_h_ftsv_square_input_candidate_power_product_factor. ff_h_ftsv_square_input_candidate_power_product_factor + S (ff_p_ftsv_square_input_candidate_power_product) = S ((S (ff_i_ftsv_square_input_candidate_power_product)) * ff_c_ftsv_square_input_candidate_power)) /\ exists ff_q_ftsv_square_input_candidate_power_product_factor. ff_b_ftsv_square_input_candidate_power = ff_q_ftsv_square_input_candidate_power_product_factor * S ((S (ff_i_ftsv_square_input_candidate_power_product)) * ff_c_ftsv_square_input_candidate_power) + (ff_p_ftsv_square_input_candidate_power_product))) /\ ((((exists ff_h_ftsv_square_input_candidate_power_product_partial. ff_h_ftsv_square_input_candidate_power_product_partial + S (ff_r_ftsv_square_input_candidate_power_product) = S ((S (ff_i_ftsv_square_input_candidate_power_product)) * ff_v_ftsv_square_input_candidate_power_product)) /\ exists ff_q_ftsv_square_input_candidate_power_product_partial. ff_u_ftsv_square_input_candidate_power_product = ff_q_ftsv_square_input_candidate_power_product_partial * S ((S (ff_i_ftsv_square_input_candidate_power_product)) * ff_v_ftsv_square_input_candidate_power_product) + (ff_r_ftsv_square_input_candidate_power_product))) /\ ((((exists ff_h_ftsv_square_input_candidate_power_product_successor. ff_h_ftsv_square_input_candidate_power_product_successor + S (ff_s_ftsv_square_input_candidate_power_product) = S ((S (S ff_i_ftsv_square_input_candidate_power_product)) * ff_v_ftsv_square_input_candidate_power_product)) /\ exists ff_q_ftsv_square_input_candidate_power_product_successor. ff_u_ftsv_square_input_candidate_power_product = ff_q_ftsv_square_input_candidate_power_product_successor * S ((S (S ff_i_ftsv_square_input_candidate_power_product)) * ff_v_ftsv_square_input_candidate_power_product) + (ff_s_ftsv_square_input_candidate_power_product))) /\ ff_s_ftsv_square_input_candidate_power_product = ff_r_ftsv_square_input_candidate_power_product * ff_p_ftsv_square_input_candidate_power_product)))))))) /\ (exists bpv_factor_ftsv_square_input_candidate_divides. a = bpv_result_ftsv_square_input_candidate * bpv_factor_ftsv_square_input_candidate_divides))) -> (exists bpv_gap_ftsv_square_input_maximal. bpv_gap_ftsv_square_input_maximal + bpv_candidate_ftsv_square_input = e)) -> (((exists bpv_gap_ftsv_square_output_exponent_bound. bpv_gap_ftsv_square_output_exponent_bound + E = (a * a)) /\ (exists bpv_result_ftsv_square_output_selected. ((exists ff_b_ftsv_square_output_selected_power ff_c_ftsv_square_output_selected_power. ((forall ff_i_ftsv_square_output_selected_power_repeat. (exists ff_lt_ftsv_square_output_selected_power_repeat_bound. ff_lt_ftsv_square_output_selected_power_repeat_bound + S ff_i_ftsv_square_output_selected_power_repeat = E) -> (((exists ff_h_ftsv_square_output_selected_power_repeat_decoded. ff_h_ftsv_square_output_selected_power_repeat_decoded + S (p) = S ((S (ff_i_ftsv_square_output_selected_power_repeat)) * ff_c_ftsv_square_output_selected_power)) /\ exists ff_q_ftsv_square_output_selected_power_repeat_decoded. ff_b_ftsv_square_output_selected_power = ff_q_ftsv_square_output_selected_power_repeat_decoded * S ((S (ff_i_ftsv_square_output_selected_power_repeat)) * ff_c_ftsv_square_output_selected_power) + (p)))) /\ (exists ff_u_ftsv_square_output_selected_power_product ff_v_ftsv_square_output_selected_power_product. ((((exists ff_h_ftsv_square_output_selected_power_product_start. ff_h_ftsv_square_output_selected_power_product_start + S (1) = S ((S (0)) * ff_v_ftsv_square_output_selected_power_product)) /\ exists ff_q_ftsv_square_output_selected_power_product_start. ff_u_ftsv_square_output_selected_power_product = ff_q_ftsv_square_output_selected_power_product_start * S ((S (0)) * ff_v_ftsv_square_output_selected_power_product) + (1))) /\ ((((exists ff_h_ftsv_square_output_selected_power_product_terminal. ff_h_ftsv_square_output_selected_power_product_terminal + S (bpv_result_ftsv_square_output_selected) = S ((S (E)) * ff_v_ftsv_square_output_selected_power_product)) /\ exists ff_q_ftsv_square_output_selected_power_product_terminal. ff_u_ftsv_square_output_selected_power_product = ff_q_ftsv_square_output_selected_power_product_terminal * S ((S (E)) * ff_v_ftsv_square_output_selected_power_product) + (bpv_result_ftsv_square_output_selected))) /\ forall ff_i_ftsv_square_output_selected_power_product. (exists ff_lt_ftsv_square_output_selected_power_product_bound. ff_lt_ftsv_square_output_selected_power_product_bound + S ff_i_ftsv_square_output_selected_power_product = E) -> exists ff_p_ftsv_square_output_selected_power_product ff_r_ftsv_square_output_selected_power_product ff_s_ftsv_square_output_selected_power_product. ((((exists ff_h_ftsv_square_output_selected_power_product_factor. ff_h_ftsv_square_output_selected_power_product_factor + S (ff_p_ftsv_square_output_selected_power_product) = S ((S (ff_i_ftsv_square_output_selected_power_product)) * ff_c_ftsv_square_output_selected_power)) /\ exists ff_q_ftsv_square_output_selected_power_product_factor. ff_b_ftsv_square_output_selected_power = ff_q_ftsv_square_output_selected_power_product_factor * S ((S (ff_i_ftsv_square_output_selected_power_product)) * ff_c_ftsv_square_output_selected_power) + (ff_p_ftsv_square_output_selected_power_product))) /\ ((((exists ff_h_ftsv_square_output_selected_power_product_partial. ff_h_ftsv_square_output_selected_power_product_partial + S (ff_r_ftsv_square_output_selected_power_product) = S ((S (ff_i_ftsv_square_output_selected_power_product)) * ff_v_ftsv_square_output_selected_power_product)) /\ exists ff_q_ftsv_square_output_selected_power_product_partial. ff_u_ftsv_square_output_selected_power_product = ff_q_ftsv_square_output_selected_power_product_partial * S ((S (ff_i_ftsv_square_output_selected_power_product)) * ff_v_ftsv_square_output_selected_power_product) + (ff_r_ftsv_square_output_selected_power_product))) /\ ((((exists ff_h_ftsv_square_output_selected_power_product_successor. ff_h_ftsv_square_output_selected_power_product_successor + S (ff_s_ftsv_square_output_selected_power_product) = S ((S (S ff_i_ftsv_square_output_selected_power_product)) * ff_v_ftsv_square_output_selected_power_product)) /\ exists ff_q_ftsv_square_output_selected_power_product_successor. ff_u_ftsv_square_output_selected_power_product = ff_q_ftsv_square_output_selected_power_product_successor * S ((S (S ff_i_ftsv_square_output_selected_power_product)) * ff_v_ftsv_square_output_selected_power_product) + (ff_s_ftsv_square_output_selected_power_product))) /\ ff_s_ftsv_square_output_selected_power_product = ff_r_ftsv_square_output_selected_power_product * ff_p_ftsv_square_output_selected_power_product)))))))) /\ (exists bpv_factor_ftsv_square_output_selected_divides. (a * a) = bpv_result_ftsv_square_output_selected * bpv_factor_ftsv_square_output_selected_divides)))) /\ forall bpv_candidate_ftsv_square_output. (exists bpv_gap_ftsv_square_output_candidate_bound. bpv_gap_ftsv_square_output_candidate_bound + bpv_candidate_ftsv_square_output = (a * a)) -> (exists bpv_result_ftsv_square_output_candidate. ((exists ff_b_ftsv_square_output_candidate_power ff_c_ftsv_square_output_candidate_power. ((forall ff_i_ftsv_square_output_candidate_power_repeat. (exists ff_lt_ftsv_square_output_candidate_power_repeat_bound. ff_lt_ftsv_square_output_candidate_power_repeat_bound + S ff_i_ftsv_square_output_candidate_power_repeat = bpv_candidate_ftsv_square_output) -> (((exists ff_h_ftsv_square_output_candidate_power_repeat_decoded. ff_h_ftsv_square_output_candidate_power_repeat_decoded + S (p) = S ((S (ff_i_ftsv_square_output_candidate_power_repeat)) * ff_c_ftsv_square_output_candidate_power)) /\ exists ff_q_ftsv_square_output_candidate_power_repeat_decoded. ff_b_ftsv_square_output_candidate_power = ff_q_ftsv_square_output_candidate_power_repeat_decoded * S ((S (ff_i_ftsv_square_output_candidate_power_repeat)) * ff_c_ftsv_square_output_candidate_power) + (p)))) /\ (exists ff_u_ftsv_square_output_candidate_power_product ff_v_ftsv_square_output_candidate_power_product. ((((exists ff_h_ftsv_square_output_candidate_power_product_start. ff_h_ftsv_square_output_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_ftsv_square_output_candidate_power_product)) /\ exists ff_q_ftsv_square_output_candidate_power_product_start. ff_u_ftsv_square_output_candidate_power_product = ff_q_ftsv_square_output_candidate_power_product_start * S ((S (0)) * ff_v_ftsv_square_output_candidate_power_product) + (1))) /\ ((((exists ff_h_ftsv_square_output_candidate_power_product_terminal. ff_h_ftsv_square_output_candidate_power_product_terminal + S (bpv_result_ftsv_square_output_candidate) = S ((S (bpv_candidate_ftsv_square_output)) * ff_v_ftsv_square_output_candidate_power_product)) /\ exists ff_q_ftsv_square_output_candidate_power_product_terminal. ff_u_ftsv_square_output_candidate_power_product = ff_q_ftsv_square_output_candidate_power_product_terminal * S ((S (bpv_candidate_ftsv_square_output)) * ff_v_ftsv_square_output_candidate_power_product) + (bpv_result_ftsv_square_output_candidate))) /\ forall ff_i_ftsv_square_output_candidate_power_product. (exists ff_lt_ftsv_square_output_candidate_power_product_bound. ff_lt_ftsv_square_output_candidate_power_product_bound + S ff_i_ftsv_square_output_candidate_power_product = bpv_candidate_ftsv_square_output) -> exists ff_p_ftsv_square_output_candidate_power_product ff_r_ftsv_square_output_candidate_power_product ff_s_ftsv_square_output_candidate_power_product. ((((exists ff_h_ftsv_square_output_candidate_power_product_factor. ff_h_ftsv_square_output_candidate_power_product_factor + S (ff_p_ftsv_square_output_candidate_power_product) = S ((S (ff_i_ftsv_square_output_candidate_power_product)) * ff_c_ftsv_square_output_candidate_power)) /\ exists ff_q_ftsv_square_output_candidate_power_product_factor. ff_b_ftsv_square_output_candidate_power = ff_q_ftsv_square_output_candidate_power_product_factor * S ((S (ff_i_ftsv_square_output_candidate_power_product)) * ff_c_ftsv_square_output_candidate_power) + (ff_p_ftsv_square_output_candidate_power_product))) /\ ((((exists ff_h_ftsv_square_output_candidate_power_product_partial. ff_h_ftsv_square_output_candidate_power_product_partial + S (ff_r_ftsv_square_output_candidate_power_product) = S ((S (ff_i_ftsv_square_output_candidate_power_product)) * ff_v_ftsv_square_output_candidate_power_product)) /\ exists ff_q_ftsv_square_output_candidate_power_product_partial. ff_u_ftsv_square_output_candidate_power_product = ff_q_ftsv_square_output_candidate_power_product_partial * S ((S (ff_i_ftsv_square_output_candidate_power_product)) * ff_v_ftsv_square_output_candidate_power_product) + (ff_r_ftsv_square_output_candidate_power_product))) /\ ((((exists ff_h_ftsv_square_output_candidate_power_product_successor. ff_h_ftsv_square_output_candidate_power_product_successor + S (ff_s_ftsv_square_output_candidate_power_product) = S ((S (S ff_i_ftsv_square_output_candidate_power_product)) * ff_v_ftsv_square_output_candidate_power_product)) /\ exists ff_q_ftsv_square_output_candidate_power_product_successor. ff_u_ftsv_square_output_candidate_power_product = ff_q_ftsv_square_output_candidate_power_product_successor * S ((S (S ff_i_ftsv_square_output_candidate_power_product)) * ff_v_ftsv_square_output_candidate_power_product) + (ff_s_ftsv_square_output_candidate_power_product))) /\ ff_s_ftsv_square_output_candidate_power_product = ff_r_ftsv_square_output_candidate_power_product * ff_p_ftsv_square_output_candidate_power_product)))))))) /\ (exists bpv_factor_ftsv_square_output_candidate_divides. (a * a) = bpv_result_ftsv_square_output_candidate * bpv_factor_ftsv_square_output_candidate_divides))) -> (exists bpv_gap_ftsv_square_output_maximal. bpv_gap_ftsv_square_output_maximal + bpv_candidate_ftsv_square_output = E)) -> E = e + eProof 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–8
02Use earlier factsL9–18
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L9
specialize prime_power_valuation_mul p - L10
specialize prime_power_valuation_mul a - L11
specialize prime_power_valuation_mul a - L12
specialize prime_power_valuation_mul e - L13
specialize prime_power_valuation_mul e - L14
specialize prime_power_valuation_mul E - L15
apply prime_power_valuation_mul - L16
exact hprime - L17
exact hnonzero - L18
exact hnonzero
Original defined command ledger · 21 lines
- 0001
intro p - 0002
intro a - 0003
intro e - 0004
intro E - 0005
intro hprime - 0006
intro hnonzero - 0007
intro hvalue - 0008
intro hsquare - 0009
specialize prime_power_valuation_mul p - 0010
specialize prime_power_valuation_mul a - 0011
specialize prime_power_valuation_mul a - 0012
specialize prime_power_valuation_mul e - 0013
specialize prime_power_valuation_mul e - 0014
specialize prime_power_valuation_mul E - 0015
apply prime_power_valuation_mul - 0016
exact hprime - 0017
exact hnonzero - 0018
exact hnonzero - 0019
exact hvalue - 0020
exact hvalue - 0021
exact hsquare