EL001E

lte_odd_prime_power_step

Raising a genuine nonzero p-divisible difference to an odd-prime exponent increases its exact valuation by one and constructs all power/difference witnesses.

Alpha v34 checked-use · first admitted v29 · independently kernel and Lean verified; not Stable

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.

All displayed hypotheses are required. Powers and positive differences are actual existential outputs. The proof constructs second-order correction identities and iterates the prime step; no binomial expansion or LTE oracle is assumed. The 2-adic variants remain separate open targets.

Exact theorem in conservative defined notation

∀ p. ∀ a. ∀ b. ∀ d. ∀ e. ¬p = 1 ∧ (∀ x. ∀ y. p = x · y → x = 1 ∨ y = 1) → ¬p = 2 → a = b + d → ¬d = 0 → Dvd(p,d) → ¬Dvd(p,b)BoundedPowerValuation(p,d,d,e) → ∃ x. ∃ y. ∃ z. LiftedPowerDifference(p,a,b,p,S e,x,y,z)

Every linked abbreviation expands hygienically to the identical original native formula.

Definition DAG

Actual proof prerequisites

Original expanded first-order statement
forall p a b d e. (~((p) = 1) /\ forall pvs_left_lift_prime_domain pvs_right_lift_prime_domain. (p) = pvs_left_lift_prime_domain * pvs_right_lift_prime_domain -> pvs_left_lift_prime_domain = 1 \/ pvs_right_lift_prime_domain = 1) -> ~(p = 2) -> a = b + d -> ~(d = 0) -> (exists olte_factor_lift_prime_difference. (d) = (p) * olte_factor_lift_prime_difference) -> ~(exists olte_factor_lift_prime_base. (b) = (p) * olte_factor_lift_prime_base) -> (((exists bpd_gap_pvs_lift_prime_input_selected_bound. bpd_gap_pvs_lift_prime_input_selected_bound + (e) = (d)) /\ (exists bpvi_result_pvs_lift_prime_input_selected. ((exists bpvi_b_pvs_lift_prime_input_selected_power bpvi_c_pvs_lift_prime_input_selected_power. ((forall bpvi_i_pvs_lift_prime_input_selected_power. (exists bpvi_repeat_gap_pvs_lift_prime_input_selected_power. bpvi_repeat_gap_pvs_lift_prime_input_selected_power + S bpvi_i_pvs_lift_prime_input_selected_power = e) -> (((exists bpvi_h_pvs_lift_prime_input_selected_power_repeat. bpvi_h_pvs_lift_prime_input_selected_power_repeat + S (p) = S ((S (bpvi_i_pvs_lift_prime_input_selected_power)) * bpvi_c_pvs_lift_prime_input_selected_power)) /\ exists bpvi_q_pvs_lift_prime_input_selected_power_repeat. bpvi_b_pvs_lift_prime_input_selected_power = bpvi_q_pvs_lift_prime_input_selected_power_repeat * S ((S (bpvi_i_pvs_lift_prime_input_selected_power)) * bpvi_c_pvs_lift_prime_input_selected_power) + (p)))) /\ (exists bpvi_u_pvs_lift_prime_input_selected_power bpvi_v_pvs_lift_prime_input_selected_power. ((((exists bpvi_h_pvs_lift_prime_input_selected_power_start. bpvi_h_pvs_lift_prime_input_selected_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_lift_prime_input_selected_power)) /\ exists bpvi_q_pvs_lift_prime_input_selected_power_start. bpvi_u_pvs_lift_prime_input_selected_power = bpvi_q_pvs_lift_prime_input_selected_power_start * S ((S (0)) * bpvi_v_pvs_lift_prime_input_selected_power) + (1))) /\ ((((exists bpvi_h_pvs_lift_prime_input_selected_power_terminal. bpvi_h_pvs_lift_prime_input_selected_power_terminal + S (bpvi_result_pvs_lift_prime_input_selected) = S ((S (e)) * bpvi_v_pvs_lift_prime_input_selected_power)) /\ exists bpvi_q_pvs_lift_prime_input_selected_power_terminal. bpvi_u_pvs_lift_prime_input_selected_power = bpvi_q_pvs_lift_prime_input_selected_power_terminal * S ((S (e)) * bpvi_v_pvs_lift_prime_input_selected_power) + (bpvi_result_pvs_lift_prime_input_selected))) /\ forall bpvi_j_pvs_lift_prime_input_selected_power. (exists bpvi_product_gap_pvs_lift_prime_input_selected_power. bpvi_product_gap_pvs_lift_prime_input_selected_power + S bpvi_j_pvs_lift_prime_input_selected_power = e) -> exists bpvi_factor_pvs_lift_prime_input_selected_power bpvi_partial_pvs_lift_prime_input_selected_power bpvi_successor_pvs_lift_prime_input_selected_power. ((((exists bpvi_h_pvs_lift_prime_input_selected_power_factor. bpvi_h_pvs_lift_prime_input_selected_power_factor + S (bpvi_factor_pvs_lift_prime_input_selected_power) = S ((S (bpvi_j_pvs_lift_prime_input_selected_power)) * bpvi_c_pvs_lift_prime_input_selected_power)) /\ exists bpvi_q_pvs_lift_prime_input_selected_power_factor. bpvi_b_pvs_lift_prime_input_selected_power = bpvi_q_pvs_lift_prime_input_selected_power_factor * S ((S (bpvi_j_pvs_lift_prime_input_selected_power)) * bpvi_c_pvs_lift_prime_input_selected_power) + (bpvi_factor_pvs_lift_prime_input_selected_power))) /\ ((((exists bpvi_h_pvs_lift_prime_input_selected_power_partial. bpvi_h_pvs_lift_prime_input_selected_power_partial + S (bpvi_partial_pvs_lift_prime_input_selected_power) = S ((S (bpvi_j_pvs_lift_prime_input_selected_power)) * bpvi_v_pvs_lift_prime_input_selected_power)) /\ exists bpvi_q_pvs_lift_prime_input_selected_power_partial. bpvi_u_pvs_lift_prime_input_selected_power = bpvi_q_pvs_lift_prime_input_selected_power_partial * S ((S (bpvi_j_pvs_lift_prime_input_selected_power)) * bpvi_v_pvs_lift_prime_input_selected_power) + (bpvi_partial_pvs_lift_prime_input_selected_power))) /\ ((((exists bpvi_h_pvs_lift_prime_input_selected_power_successor. bpvi_h_pvs_lift_prime_input_selected_power_successor + S (bpvi_successor_pvs_lift_prime_input_selected_power) = S ((S (S bpvi_j_pvs_lift_prime_input_selected_power)) * bpvi_v_pvs_lift_prime_input_selected_power)) /\ exists bpvi_q_pvs_lift_prime_input_selected_power_successor. bpvi_u_pvs_lift_prime_input_selected_power = bpvi_q_pvs_lift_prime_input_selected_power_successor * S ((S (S bpvi_j_pvs_lift_prime_input_selected_power)) * bpvi_v_pvs_lift_prime_input_selected_power) + (bpvi_successor_pvs_lift_prime_input_selected_power))) /\ bpvi_successor_pvs_lift_prime_input_selected_power = bpvi_partial_pvs_lift_prime_input_selected_power * bpvi_factor_pvs_lift_prime_input_selected_power)))))))) /\ exists bpvi_divisor_factor_pvs_lift_prime_input_selected. d = bpvi_result_pvs_lift_prime_input_selected * bpvi_divisor_factor_pvs_lift_prime_input_selected))) /\ forall bpd_candidate_pvs_lift_prime_input. (exists bpd_gap_pvs_lift_prime_input_candidate_bound. bpd_gap_pvs_lift_prime_input_candidate_bound + (bpd_candidate_pvs_lift_prime_input) = (d)) -> (exists bpvi_result_pvs_lift_prime_input_candidate. ((exists bpvi_b_pvs_lift_prime_input_candidate_power bpvi_c_pvs_lift_prime_input_candidate_power. ((forall bpvi_i_pvs_lift_prime_input_candidate_power. (exists bpvi_repeat_gap_pvs_lift_prime_input_candidate_power. bpvi_repeat_gap_pvs_lift_prime_input_candidate_power + S bpvi_i_pvs_lift_prime_input_candidate_power = bpd_candidate_pvs_lift_prime_input) -> (((exists bpvi_h_pvs_lift_prime_input_candidate_power_repeat. bpvi_h_pvs_lift_prime_input_candidate_power_repeat + S (p) = S ((S (bpvi_i_pvs_lift_prime_input_candidate_power)) * bpvi_c_pvs_lift_prime_input_candidate_power)) /\ exists bpvi_q_pvs_lift_prime_input_candidate_power_repeat. bpvi_b_pvs_lift_prime_input_candidate_power = bpvi_q_pvs_lift_prime_input_candidate_power_repeat * S ((S (bpvi_i_pvs_lift_prime_input_candidate_power)) * bpvi_c_pvs_lift_prime_input_candidate_power) + (p)))) /\ (exists bpvi_u_pvs_lift_prime_input_candidate_power bpvi_v_pvs_lift_prime_input_candidate_power. ((((exists bpvi_h_pvs_lift_prime_input_candidate_power_start. bpvi_h_pvs_lift_prime_input_candidate_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_lift_prime_input_candidate_power)) /\ exists bpvi_q_pvs_lift_prime_input_candidate_power_start. bpvi_u_pvs_lift_prime_input_candidate_power = bpvi_q_pvs_lift_prime_input_candidate_power_start * S ((S (0)) * bpvi_v_pvs_lift_prime_input_candidate_power) + (1))) /\ ((((exists bpvi_h_pvs_lift_prime_input_candidate_power_terminal. bpvi_h_pvs_lift_prime_input_candidate_power_terminal + S (bpvi_result_pvs_lift_prime_input_candidate) = S ((S (bpd_candidate_pvs_lift_prime_input)) * bpvi_v_pvs_lift_prime_input_candidate_power)) /\ exists bpvi_q_pvs_lift_prime_input_candidate_power_terminal. bpvi_u_pvs_lift_prime_input_candidate_power = bpvi_q_pvs_lift_prime_input_candidate_power_terminal * S ((S (bpd_candidate_pvs_lift_prime_input)) * bpvi_v_pvs_lift_prime_input_candidate_power) + (bpvi_result_pvs_lift_prime_input_candidate))) /\ forall bpvi_j_pvs_lift_prime_input_candidate_power. (exists bpvi_product_gap_pvs_lift_prime_input_candidate_power. bpvi_product_gap_pvs_lift_prime_input_candidate_power + S bpvi_j_pvs_lift_prime_input_candidate_power = bpd_candidate_pvs_lift_prime_input) -> exists bpvi_factor_pvs_lift_prime_input_candidate_power bpvi_partial_pvs_lift_prime_input_candidate_power bpvi_successor_pvs_lift_prime_input_candidate_power. ((((exists bpvi_h_pvs_lift_prime_input_candidate_power_factor. bpvi_h_pvs_lift_prime_input_candidate_power_factor + S (bpvi_factor_pvs_lift_prime_input_candidate_power) = S ((S (bpvi_j_pvs_lift_prime_input_candidate_power)) * bpvi_c_pvs_lift_prime_input_candidate_power)) /\ exists bpvi_q_pvs_lift_prime_input_candidate_power_factor. bpvi_b_pvs_lift_prime_input_candidate_power = bpvi_q_pvs_lift_prime_input_candidate_power_factor * S ((S (bpvi_j_pvs_lift_prime_input_candidate_power)) * bpvi_c_pvs_lift_prime_input_candidate_power) + (bpvi_factor_pvs_lift_prime_input_candidate_power))) /\ ((((exists bpvi_h_pvs_lift_prime_input_candidate_power_partial. bpvi_h_pvs_lift_prime_input_candidate_power_partial + S (bpvi_partial_pvs_lift_prime_input_candidate_power) = S ((S (bpvi_j_pvs_lift_prime_input_candidate_power)) * bpvi_v_pvs_lift_prime_input_candidate_power)) /\ exists bpvi_q_pvs_lift_prime_input_candidate_power_partial. bpvi_u_pvs_lift_prime_input_candidate_power = bpvi_q_pvs_lift_prime_input_candidate_power_partial * S ((S (bpvi_j_pvs_lift_prime_input_candidate_power)) * bpvi_v_pvs_lift_prime_input_candidate_power) + (bpvi_partial_pvs_lift_prime_input_candidate_power))) /\ ((((exists bpvi_h_pvs_lift_prime_input_candidate_power_successor. bpvi_h_pvs_lift_prime_input_candidate_power_successor + S (bpvi_successor_pvs_lift_prime_input_candidate_power) = S ((S (S bpvi_j_pvs_lift_prime_input_candidate_power)) * bpvi_v_pvs_lift_prime_input_candidate_power)) /\ exists bpvi_q_pvs_lift_prime_input_candidate_power_successor. bpvi_u_pvs_lift_prime_input_candidate_power = bpvi_q_pvs_lift_prime_input_candidate_power_successor * S ((S (S bpvi_j_pvs_lift_prime_input_candidate_power)) * bpvi_v_pvs_lift_prime_input_candidate_power) + (bpvi_successor_pvs_lift_prime_input_candidate_power))) /\ bpvi_successor_pvs_lift_prime_input_candidate_power = bpvi_partial_pvs_lift_prime_input_candidate_power * bpvi_factor_pvs_lift_prime_input_candidate_power)))))))) /\ exists bpvi_divisor_factor_pvs_lift_prime_input_candidate. d = bpvi_result_pvs_lift_prime_input_candidate * bpvi_divisor_factor_pvs_lift_prime_input_candidate)) -> (exists bpd_gap_pvs_lift_prime_input_maximal. bpd_gap_pvs_lift_prime_input_maximal + (bpd_candidate_pvs_lift_prime_input) = (e))) -> exists A B D. (((exists pa_b_olte_lift_prime_resultA pa_c_olte_lift_prime_resultA. ((forall pa_i_olte_lift_prime_resultA_repeat. (exists pa_lt_olte_lift_prime_resultA_repeat_bound. pa_lt_olte_lift_prime_resultA_repeat_bound + S pa_i_olte_lift_prime_resultA_repeat = p) -> (((exists pa_h_olte_lift_prime_resultA_repeat_decoded. pa_h_olte_lift_prime_resultA_repeat_decoded + S (a) = S ((S (pa_i_olte_lift_prime_resultA_repeat)) * pa_c_olte_lift_prime_resultA)) /\ exists pa_q_olte_lift_prime_resultA_repeat_decoded. pa_b_olte_lift_prime_resultA = pa_q_olte_lift_prime_resultA_repeat_decoded * S ((S (pa_i_olte_lift_prime_resultA_repeat)) * pa_c_olte_lift_prime_resultA) + (a)))) /\ (exists pa_u_olte_lift_prime_resultA_product pa_v_olte_lift_prime_resultA_product. ((((exists pa_h_olte_lift_prime_resultA_product_start. pa_h_olte_lift_prime_resultA_product_start + S (1) = S ((S (0)) * pa_v_olte_lift_prime_resultA_product)) /\ exists pa_q_olte_lift_prime_resultA_product_start. pa_u_olte_lift_prime_resultA_product = pa_q_olte_lift_prime_resultA_product_start * S ((S (0)) * pa_v_olte_lift_prime_resultA_product) + (1))) /\ ((((exists pa_h_olte_lift_prime_resultA_product_terminal. pa_h_olte_lift_prime_resultA_product_terminal + S (A) = S ((S (p)) * pa_v_olte_lift_prime_resultA_product)) /\ exists pa_q_olte_lift_prime_resultA_product_terminal. pa_u_olte_lift_prime_resultA_product = pa_q_olte_lift_prime_resultA_product_terminal * S ((S (p)) * pa_v_olte_lift_prime_resultA_product) + (A))) /\ forall pa_i_olte_lift_prime_resultA_product. (exists pa_lt_olte_lift_prime_resultA_product_bound. pa_lt_olte_lift_prime_resultA_product_bound + S pa_i_olte_lift_prime_resultA_product = p) -> exists pa_p_olte_lift_prime_resultA_product pa_r_olte_lift_prime_resultA_product pa_s_olte_lift_prime_resultA_product. ((((exists pa_h_olte_lift_prime_resultA_product_factor. pa_h_olte_lift_prime_resultA_product_factor + S (pa_p_olte_lift_prime_resultA_product) = S ((S (pa_i_olte_lift_prime_resultA_product)) * pa_c_olte_lift_prime_resultA)) /\ exists pa_q_olte_lift_prime_resultA_product_factor. pa_b_olte_lift_prime_resultA = pa_q_olte_lift_prime_resultA_product_factor * S ((S (pa_i_olte_lift_prime_resultA_product)) * pa_c_olte_lift_prime_resultA) + (pa_p_olte_lift_prime_resultA_product))) /\ ((((exists pa_h_olte_lift_prime_resultA_product_partial. pa_h_olte_lift_prime_resultA_product_partial + S (pa_r_olte_lift_prime_resultA_product) = S ((S (pa_i_olte_lift_prime_resultA_product)) * pa_v_olte_lift_prime_resultA_product)) /\ exists pa_q_olte_lift_prime_resultA_product_partial. pa_u_olte_lift_prime_resultA_product = pa_q_olte_lift_prime_resultA_product_partial * S ((S (pa_i_olte_lift_prime_resultA_product)) * pa_v_olte_lift_prime_resultA_product) + (pa_r_olte_lift_prime_resultA_product))) /\ ((((exists pa_h_olte_lift_prime_resultA_product_successor. pa_h_olte_lift_prime_resultA_product_successor + S (pa_s_olte_lift_prime_resultA_product) = S ((S (S pa_i_olte_lift_prime_resultA_product)) * pa_v_olte_lift_prime_resultA_product)) /\ exists pa_q_olte_lift_prime_resultA_product_successor. pa_u_olte_lift_prime_resultA_product = pa_q_olte_lift_prime_resultA_product_successor * S ((S (S pa_i_olte_lift_prime_resultA_product)) * pa_v_olte_lift_prime_resultA_product) + (pa_s_olte_lift_prime_resultA_product))) /\ pa_s_olte_lift_prime_resultA_product = pa_r_olte_lift_prime_resultA_product * pa_p_olte_lift_prime_resultA_product)))))))) /\ (((exists pa_b_olte_lift_prime_resultB pa_c_olte_lift_prime_resultB. ((forall pa_i_olte_lift_prime_resultB_repeat. (exists pa_lt_olte_lift_prime_resultB_repeat_bound. pa_lt_olte_lift_prime_resultB_repeat_bound + S pa_i_olte_lift_prime_resultB_repeat = p) -> (((exists pa_h_olte_lift_prime_resultB_repeat_decoded. pa_h_olte_lift_prime_resultB_repeat_decoded + S (b) = S ((S (pa_i_olte_lift_prime_resultB_repeat)) * pa_c_olte_lift_prime_resultB)) /\ exists pa_q_olte_lift_prime_resultB_repeat_decoded. pa_b_olte_lift_prime_resultB = pa_q_olte_lift_prime_resultB_repeat_decoded * S ((S (pa_i_olte_lift_prime_resultB_repeat)) * pa_c_olte_lift_prime_resultB) + (b)))) /\ (exists pa_u_olte_lift_prime_resultB_product pa_v_olte_lift_prime_resultB_product. ((((exists pa_h_olte_lift_prime_resultB_product_start. pa_h_olte_lift_prime_resultB_product_start + S (1) = S ((S (0)) * pa_v_olte_lift_prime_resultB_product)) /\ exists pa_q_olte_lift_prime_resultB_product_start. pa_u_olte_lift_prime_resultB_product = pa_q_olte_lift_prime_resultB_product_start * S ((S (0)) * pa_v_olte_lift_prime_resultB_product) + (1))) /\ ((((exists pa_h_olte_lift_prime_resultB_product_terminal. pa_h_olte_lift_prime_resultB_product_terminal + S (B) = S ((S (p)) * pa_v_olte_lift_prime_resultB_product)) /\ exists pa_q_olte_lift_prime_resultB_product_terminal. pa_u_olte_lift_prime_resultB_product = pa_q_olte_lift_prime_resultB_product_terminal * S ((S (p)) * pa_v_olte_lift_prime_resultB_product) + (B))) /\ forall pa_i_olte_lift_prime_resultB_product. (exists pa_lt_olte_lift_prime_resultB_product_bound. pa_lt_olte_lift_prime_resultB_product_bound + S pa_i_olte_lift_prime_resultB_product = p) -> exists pa_p_olte_lift_prime_resultB_product pa_r_olte_lift_prime_resultB_product pa_s_olte_lift_prime_resultB_product. ((((exists pa_h_olte_lift_prime_resultB_product_factor. pa_h_olte_lift_prime_resultB_product_factor + S (pa_p_olte_lift_prime_resultB_product) = S ((S (pa_i_olte_lift_prime_resultB_product)) * pa_c_olte_lift_prime_resultB)) /\ exists pa_q_olte_lift_prime_resultB_product_factor. pa_b_olte_lift_prime_resultB = pa_q_olte_lift_prime_resultB_product_factor * S ((S (pa_i_olte_lift_prime_resultB_product)) * pa_c_olte_lift_prime_resultB) + (pa_p_olte_lift_prime_resultB_product))) /\ ((((exists pa_h_olte_lift_prime_resultB_product_partial. pa_h_olte_lift_prime_resultB_product_partial + S (pa_r_olte_lift_prime_resultB_product) = S ((S (pa_i_olte_lift_prime_resultB_product)) * pa_v_olte_lift_prime_resultB_product)) /\ exists pa_q_olte_lift_prime_resultB_product_partial. pa_u_olte_lift_prime_resultB_product = pa_q_olte_lift_prime_resultB_product_partial * S ((S (pa_i_olte_lift_prime_resultB_product)) * pa_v_olte_lift_prime_resultB_product) + (pa_r_olte_lift_prime_resultB_product))) /\ ((((exists pa_h_olte_lift_prime_resultB_product_successor. pa_h_olte_lift_prime_resultB_product_successor + S (pa_s_olte_lift_prime_resultB_product) = S ((S (S pa_i_olte_lift_prime_resultB_product)) * pa_v_olte_lift_prime_resultB_product)) /\ exists pa_q_olte_lift_prime_resultB_product_successor. pa_u_olte_lift_prime_resultB_product = pa_q_olte_lift_prime_resultB_product_successor * S ((S (S pa_i_olte_lift_prime_resultB_product)) * pa_v_olte_lift_prime_resultB_product) + (pa_s_olte_lift_prime_resultB_product))) /\ pa_s_olte_lift_prime_resultB_product = pa_r_olte_lift_prime_resultB_product * pa_p_olte_lift_prime_resultB_product)))))))) /\ ((((A) = (B) + (D)) /\ (((~((D) = 0)) /\ (((exists olte_factor_lift_prime_resultdivides. (D) = (p) * olte_factor_lift_prime_resultdivides) /\ (((~(exists olte_factor_lift_prime_resultunit. (B) = (p) * olte_factor_lift_prime_resultunit)) /\ (((exists bpd_gap_pvs_olte_lift_prime_resultvaluation_selected_bound. bpd_gap_pvs_olte_lift_prime_resultvaluation_selected_bound + (S e) = (D)) /\ (exists bpvi_result_pvs_olte_lift_prime_resultvaluation_selected. ((exists bpvi_b_pvs_olte_lift_prime_resultvaluation_selected_power bpvi_c_pvs_olte_lift_prime_resultvaluation_selected_power. ((forall bpvi_i_pvs_olte_lift_prime_resultvaluation_selected_power. (exists bpvi_repeat_gap_pvs_olte_lift_prime_resultvaluation_selected_power. bpvi_repeat_gap_pvs_olte_lift_prime_resultvaluation_selected_power + S bpvi_i_pvs_olte_lift_prime_resultvaluation_selected_power = S e) -> (((exists bpvi_h_pvs_olte_lift_prime_resultvaluation_selected_power_repeat. bpvi_h_pvs_olte_lift_prime_resultvaluation_selected_power_repeat + S (p) = S ((S (bpvi_i_pvs_olte_lift_prime_resultvaluation_selected_power)) * bpvi_c_pvs_olte_lift_prime_resultvaluation_selected_power)) /\ exists bpvi_q_pvs_olte_lift_prime_resultvaluation_selected_power_repeat. bpvi_b_pvs_olte_lift_prime_resultvaluation_selected_power = bpvi_q_pvs_olte_lift_prime_resultvaluation_selected_power_repeat * S ((S (bpvi_i_pvs_olte_lift_prime_resultvaluation_selected_power)) * bpvi_c_pvs_olte_lift_prime_resultvaluation_selected_power) + (p)))) /\ (exists bpvi_u_pvs_olte_lift_prime_resultvaluation_selected_power bpvi_v_pvs_olte_lift_prime_resultvaluation_selected_power. ((((exists bpvi_h_pvs_olte_lift_prime_resultvaluation_selected_power_start. bpvi_h_pvs_olte_lift_prime_resultvaluation_selected_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_selected_power)) /\ exists bpvi_q_pvs_olte_lift_prime_resultvaluation_selected_power_start. bpvi_u_pvs_olte_lift_prime_resultvaluation_selected_power = bpvi_q_pvs_olte_lift_prime_resultvaluation_selected_power_start * S ((S (0)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_selected_power) + (1))) /\ ((((exists bpvi_h_pvs_olte_lift_prime_resultvaluation_selected_power_terminal. bpvi_h_pvs_olte_lift_prime_resultvaluation_selected_power_terminal + S (bpvi_result_pvs_olte_lift_prime_resultvaluation_selected) = S ((S (S e)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_selected_power)) /\ exists bpvi_q_pvs_olte_lift_prime_resultvaluation_selected_power_terminal. bpvi_u_pvs_olte_lift_prime_resultvaluation_selected_power = bpvi_q_pvs_olte_lift_prime_resultvaluation_selected_power_terminal * S ((S (S e)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_selected_power) + (bpvi_result_pvs_olte_lift_prime_resultvaluation_selected))) /\ forall bpvi_j_pvs_olte_lift_prime_resultvaluation_selected_power. (exists bpvi_product_gap_pvs_olte_lift_prime_resultvaluation_selected_power. bpvi_product_gap_pvs_olte_lift_prime_resultvaluation_selected_power + S bpvi_j_pvs_olte_lift_prime_resultvaluation_selected_power = S e) -> exists bpvi_factor_pvs_olte_lift_prime_resultvaluation_selected_power bpvi_partial_pvs_olte_lift_prime_resultvaluation_selected_power bpvi_successor_pvs_olte_lift_prime_resultvaluation_selected_power. ((((exists bpvi_h_pvs_olte_lift_prime_resultvaluation_selected_power_factor. bpvi_h_pvs_olte_lift_prime_resultvaluation_selected_power_factor + S (bpvi_factor_pvs_olte_lift_prime_resultvaluation_selected_power) = S ((S (bpvi_j_pvs_olte_lift_prime_resultvaluation_selected_power)) * bpvi_c_pvs_olte_lift_prime_resultvaluation_selected_power)) /\ exists bpvi_q_pvs_olte_lift_prime_resultvaluation_selected_power_factor. bpvi_b_pvs_olte_lift_prime_resultvaluation_selected_power = bpvi_q_pvs_olte_lift_prime_resultvaluation_selected_power_factor * S ((S (bpvi_j_pvs_olte_lift_prime_resultvaluation_selected_power)) * bpvi_c_pvs_olte_lift_prime_resultvaluation_selected_power) + (bpvi_factor_pvs_olte_lift_prime_resultvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_olte_lift_prime_resultvaluation_selected_power_partial. bpvi_h_pvs_olte_lift_prime_resultvaluation_selected_power_partial + S (bpvi_partial_pvs_olte_lift_prime_resultvaluation_selected_power) = S ((S (bpvi_j_pvs_olte_lift_prime_resultvaluation_selected_power)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_selected_power)) /\ exists bpvi_q_pvs_olte_lift_prime_resultvaluation_selected_power_partial. bpvi_u_pvs_olte_lift_prime_resultvaluation_selected_power = bpvi_q_pvs_olte_lift_prime_resultvaluation_selected_power_partial * S ((S (bpvi_j_pvs_olte_lift_prime_resultvaluation_selected_power)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_selected_power) + (bpvi_partial_pvs_olte_lift_prime_resultvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_olte_lift_prime_resultvaluation_selected_power_successor. bpvi_h_pvs_olte_lift_prime_resultvaluation_selected_power_successor + S (bpvi_successor_pvs_olte_lift_prime_resultvaluation_selected_power) = S ((S (S bpvi_j_pvs_olte_lift_prime_resultvaluation_selected_power)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_selected_power)) /\ exists bpvi_q_pvs_olte_lift_prime_resultvaluation_selected_power_successor. bpvi_u_pvs_olte_lift_prime_resultvaluation_selected_power = bpvi_q_pvs_olte_lift_prime_resultvaluation_selected_power_successor * S ((S (S bpvi_j_pvs_olte_lift_prime_resultvaluation_selected_power)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_selected_power) + (bpvi_successor_pvs_olte_lift_prime_resultvaluation_selected_power))) /\ bpvi_successor_pvs_olte_lift_prime_resultvaluation_selected_power = bpvi_partial_pvs_olte_lift_prime_resultvaluation_selected_power * bpvi_factor_pvs_olte_lift_prime_resultvaluation_selected_power)))))))) /\ exists bpvi_divisor_factor_pvs_olte_lift_prime_resultvaluation_selected. D = bpvi_result_pvs_olte_lift_prime_resultvaluation_selected * bpvi_divisor_factor_pvs_olte_lift_prime_resultvaluation_selected))) /\ forall bpd_candidate_pvs_olte_lift_prime_resultvaluation. (exists bpd_gap_pvs_olte_lift_prime_resultvaluation_candidate_bound. bpd_gap_pvs_olte_lift_prime_resultvaluation_candidate_bound + (bpd_candidate_pvs_olte_lift_prime_resultvaluation) = (D)) -> (exists bpvi_result_pvs_olte_lift_prime_resultvaluation_candidate. ((exists bpvi_b_pvs_olte_lift_prime_resultvaluation_candidate_power bpvi_c_pvs_olte_lift_prime_resultvaluation_candidate_power. ((forall bpvi_i_pvs_olte_lift_prime_resultvaluation_candidate_power. (exists bpvi_repeat_gap_pvs_olte_lift_prime_resultvaluation_candidate_power. bpvi_repeat_gap_pvs_olte_lift_prime_resultvaluation_candidate_power + S bpvi_i_pvs_olte_lift_prime_resultvaluation_candidate_power = bpd_candidate_pvs_olte_lift_prime_resultvaluation) -> (((exists bpvi_h_pvs_olte_lift_prime_resultvaluation_candidate_power_repeat. bpvi_h_pvs_olte_lift_prime_resultvaluation_candidate_power_repeat + S (p) = S ((S (bpvi_i_pvs_olte_lift_prime_resultvaluation_candidate_power)) * bpvi_c_pvs_olte_lift_prime_resultvaluation_candidate_power)) /\ exists bpvi_q_pvs_olte_lift_prime_resultvaluation_candidate_power_repeat. bpvi_b_pvs_olte_lift_prime_resultvaluation_candidate_power = bpvi_q_pvs_olte_lift_prime_resultvaluation_candidate_power_repeat * S ((S (bpvi_i_pvs_olte_lift_prime_resultvaluation_candidate_power)) * bpvi_c_pvs_olte_lift_prime_resultvaluation_candidate_power) + (p)))) /\ (exists bpvi_u_pvs_olte_lift_prime_resultvaluation_candidate_power bpvi_v_pvs_olte_lift_prime_resultvaluation_candidate_power. ((((exists bpvi_h_pvs_olte_lift_prime_resultvaluation_candidate_power_start. bpvi_h_pvs_olte_lift_prime_resultvaluation_candidate_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_candidate_power)) /\ exists bpvi_q_pvs_olte_lift_prime_resultvaluation_candidate_power_start. bpvi_u_pvs_olte_lift_prime_resultvaluation_candidate_power = bpvi_q_pvs_olte_lift_prime_resultvaluation_candidate_power_start * S ((S (0)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_candidate_power) + (1))) /\ ((((exists bpvi_h_pvs_olte_lift_prime_resultvaluation_candidate_power_terminal. bpvi_h_pvs_olte_lift_prime_resultvaluation_candidate_power_terminal + S (bpvi_result_pvs_olte_lift_prime_resultvaluation_candidate) = S ((S (bpd_candidate_pvs_olte_lift_prime_resultvaluation)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_candidate_power)) /\ exists bpvi_q_pvs_olte_lift_prime_resultvaluation_candidate_power_terminal. bpvi_u_pvs_olte_lift_prime_resultvaluation_candidate_power = bpvi_q_pvs_olte_lift_prime_resultvaluation_candidate_power_terminal * S ((S (bpd_candidate_pvs_olte_lift_prime_resultvaluation)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_candidate_power) + (bpvi_result_pvs_olte_lift_prime_resultvaluation_candidate))) /\ forall bpvi_j_pvs_olte_lift_prime_resultvaluation_candidate_power. (exists bpvi_product_gap_pvs_olte_lift_prime_resultvaluation_candidate_power. bpvi_product_gap_pvs_olte_lift_prime_resultvaluation_candidate_power + S bpvi_j_pvs_olte_lift_prime_resultvaluation_candidate_power = bpd_candidate_pvs_olte_lift_prime_resultvaluation) -> exists bpvi_factor_pvs_olte_lift_prime_resultvaluation_candidate_power bpvi_partial_pvs_olte_lift_prime_resultvaluation_candidate_power bpvi_successor_pvs_olte_lift_prime_resultvaluation_candidate_power. ((((exists bpvi_h_pvs_olte_lift_prime_resultvaluation_candidate_power_factor. bpvi_h_pvs_olte_lift_prime_resultvaluation_candidate_power_factor + S (bpvi_factor_pvs_olte_lift_prime_resultvaluation_candidate_power) = S ((S (bpvi_j_pvs_olte_lift_prime_resultvaluation_candidate_power)) * bpvi_c_pvs_olte_lift_prime_resultvaluation_candidate_power)) /\ exists bpvi_q_pvs_olte_lift_prime_resultvaluation_candidate_power_factor. bpvi_b_pvs_olte_lift_prime_resultvaluation_candidate_power = bpvi_q_pvs_olte_lift_prime_resultvaluation_candidate_power_factor * S ((S (bpvi_j_pvs_olte_lift_prime_resultvaluation_candidate_power)) * bpvi_c_pvs_olte_lift_prime_resultvaluation_candidate_power) + (bpvi_factor_pvs_olte_lift_prime_resultvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_olte_lift_prime_resultvaluation_candidate_power_partial. bpvi_h_pvs_olte_lift_prime_resultvaluation_candidate_power_partial + S (bpvi_partial_pvs_olte_lift_prime_resultvaluation_candidate_power) = S ((S (bpvi_j_pvs_olte_lift_prime_resultvaluation_candidate_power)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_candidate_power)) /\ exists bpvi_q_pvs_olte_lift_prime_resultvaluation_candidate_power_partial. bpvi_u_pvs_olte_lift_prime_resultvaluation_candidate_power = bpvi_q_pvs_olte_lift_prime_resultvaluation_candidate_power_partial * S ((S (bpvi_j_pvs_olte_lift_prime_resultvaluation_candidate_power)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_candidate_power) + (bpvi_partial_pvs_olte_lift_prime_resultvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_olte_lift_prime_resultvaluation_candidate_power_successor. bpvi_h_pvs_olte_lift_prime_resultvaluation_candidate_power_successor + S (bpvi_successor_pvs_olte_lift_prime_resultvaluation_candidate_power) = S ((S (S bpvi_j_pvs_olte_lift_prime_resultvaluation_candidate_power)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_candidate_power)) /\ exists bpvi_q_pvs_olte_lift_prime_resultvaluation_candidate_power_successor. bpvi_u_pvs_olte_lift_prime_resultvaluation_candidate_power = bpvi_q_pvs_olte_lift_prime_resultvaluation_candidate_power_successor * S ((S (S bpvi_j_pvs_olte_lift_prime_resultvaluation_candidate_power)) * bpvi_v_pvs_olte_lift_prime_resultvaluation_candidate_power) + (bpvi_successor_pvs_olte_lift_prime_resultvaluation_candidate_power))) /\ bpvi_successor_pvs_olte_lift_prime_resultvaluation_candidate_power = bpvi_partial_pvs_olte_lift_prime_resultvaluation_candidate_power * bpvi_factor_pvs_olte_lift_prime_resultvaluation_candidate_power)))))))) /\ exists bpvi_divisor_factor_pvs_olte_lift_prime_resultvaluation_candidate. D = bpvi_result_pvs_olte_lift_prime_resultvaluation_candidate * bpvi_divisor_factor_pvs_olte_lift_prime_resultvaluation_candidate)) -> (exists bpd_gap_pvs_olte_lift_prime_resultvaluation_maximal. bpd_gap_pvs_olte_lift_prime_resultvaluation_maximal + (bpd_candidate_pvs_olte_lift_prime_resultvaluation) = (S e)))))))))))))))

Complete tactic proof in conservative notation

All 85 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

85 script commands · 15 reading checkpoints · 2 local claims

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.

Definition notation is shown below. Open the paired exact edition for the original native formulas. Source pairing is not a new equivalence certificate.

Named ingredients (5)
01Fix variables and assumptionsL1–10

Work with arbitrary variables or the premises of the current implication.

  1. L1
    intro p
  2. L2
    intro a
  3. L3
    intro b
  4. L4
    intro d
  5. L5
    intro e
  6. L6
    intro hp
  7. L7
    intro hne
  8. L8
    intro ha
  9. L9
    intro hdzero
  10. L10
    intro hd
02Fix variables and assumptionsL11–12

Work with arbitrary variables or the premises of the current implication.

  1. L11
    intro hb
  2. L12
    intro hval
03Establish hquotientL13–22

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply lte odd prime power difference quotient.

  1. L13
    have hquotient : ∃ A. ∃ B. ∃ Q. ∃ u. Pow(a,p,A) ∧ (Pow(b,p,B) ∧ (A = B + d · Q ∧ (Q = p · u ∧ ¬Dvd(p,u))))Definitions: Pow(a,p,A)Pow(b,p,B)Dvd(p,u)Original native command in the exact edition
  2. L14
    specialize lte_odd_prime_power_difference_quotient (p)
  3. L15
    specialize lte_odd_prime_power_difference_quotient (a)
  4. L16
    specialize lte_odd_prime_power_difference_quotient (b)
  5. L17
    specialize lte_odd_prime_power_difference_quotient (d)
  6. L18
    apply lte_odd_prime_power_difference_quotient
  7. L19
    exact hp
  8. L20
    exact hne
  9. L21
    exact ha
  10. L22
    exact hd
04Use earlier factsL23–23

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L23
    exact hb
05Separate the logical casesL24–31

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L24
    cases hquotient
  2. L25
    cases hquotient_witness
  3. L26
    cases hquotient_witness_witness
  4. L27
    cases hquotient_witness_witness_witness
  5. L28
    cases hquotient_witness_witness_witness_witness
  6. L29
    cases hquotient_witness_witness_witness_witness_right
  7. L30
    cases hquotient_witness_witness_witness_witness_right_right
  8. L31
    cases hquotient_witness_witness_witness_witness_right_right_right
06Establish hQzeroL32–41

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply mul ne zero.

  1. L32
    have hQzero : ~(x2 = 0)
  2. L33
    intro hz
  3. L34
    rewrite hquotient_witness_witness_witness_witness_right_right_right_left at hz
  4. L35
    specialize mul_ne_zero (p)
  5. L36
    specialize mul_ne_zero (x3)
  6. L37
    apply mul_ne_zero
  7. L38
    intro hpzero
  8. L39
    specialize prime_nonzero (p)
  9. L40
    apply prime_nonzero
  10. L41
    exact hp
07Use earlier factsL42–42

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L42
    exact hpzero
08Fix variables and assumptionsL43–43

Work with arbitrary variables or the premises of the current implication.

  1. L43
    intro huzero
09Use earlier factsL44–49

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L44
    specialize lte_nondivisor_nonzero (p)
  2. L45
    specialize lte_nondivisor_nonzero (x3)
  3. L46
    apply lte_nondivisor_nonzero
  4. L47
    exact hquotient_witness_witness_witness_witness_right_right_right_right
  5. L48
    exact huzero
  6. L49
    exact hz
10Construct an explicit witnessL50–52

Supply the displayed value, then prove that it has the required property.

  1. L50
    exists x
  2. L51
    exists x1
  3. L52
    exists d * x2
11Use earlier factsL53–62

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L53
    specialize lte_power_difference_valuation_step (p)
  2. L54
    specialize lte_power_difference_valuation_step (a)
  3. L55
    specialize lte_power_difference_valuation_step (b)
  4. L56
    specialize lte_power_difference_valuation_step (d)
  5. L57
    specialize lte_power_difference_valuation_step (p)
  6. L58
    specialize lte_power_difference_valuation_step (x)
  7. L59
    specialize lte_power_difference_valuation_step (x1)
  8. L60
    specialize lte_power_difference_valuation_step (x2)
  9. L61
    specialize lte_power_difference_valuation_step (e)
  10. L62
    specialize lte_power_difference_valuation_step (1)
12Use earlier factsL63–64

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L63
    specialize lte_power_difference_valuation_step (S e)
  2. L64
    apply lte_power_difference_valuation_step
13Calculate and transport equalitiesL65–65

Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.

  1. L65
    simp
14Use earlier factsL66–75

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L66
    exact hp
  2. L67
    exact hdzero
  3. L68
    exact hd
  4. L69
    exact hb
  5. L70
    exact hQzero
  6. L71
    exact hval
  7. L72
    specialize lte_valuation_from_exact_cofactor (p)
  8. L73
    specialize lte_valuation_from_exact_cofactor (1)
  9. L74
    specialize lte_valuation_from_exact_cofactor (p)
  10. L75
    specialize lte_valuation_from_exact_cofactor (x3)
15Use earlier factsL76–85

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L76
    specialize lte_valuation_from_exact_cofactor (x2)
  2. L77
    apply lte_valuation_from_exact_cofactor
  3. L78
    exact hp
  4. L79
    specialize lte_power_one_exact (p)
  5. L80
    apply lte_power_one_exact
  6. L81
    exact hquotient_witness_witness_witness_witness_right_right_right_left
  7. L82
    exact hquotient_witness_witness_witness_witness_right_right_right_right
  8. L83
    exact hquotient_witness_witness_witness_witness_left
  9. L84
    exact hquotient_witness_witness_witness_witness_right_left
  10. L85
    exact hquotient_witness_witness_witness_witness_right_right_left

Library-wide reading audit

Original defined command ledger · 85 lines
  1. 0001intro p
  2. 0002intro a
  3. 0003intro b
  4. 0004intro d
  5. 0005intro e
  6. 0006intro hp
  7. 0007intro hne
  8. 0008intro ha
  9. 0009intro hdzero
  10. 0010intro hd
  11. 0011intro hb
  12. 0012intro hval
  13. 0013have hquotient : ∃ A. ∃ B. ∃ Q. ∃ u. Pow(a,p,A) ∧ (Pow(b,p,B) ∧ (A = B + d · Q ∧ (Q = p · u ∧ ¬Dvd(p,u))))
  14. 0014specialize lte_odd_prime_power_difference_quotient (p)
  15. 0015specialize lte_odd_prime_power_difference_quotient (a)
  16. 0016specialize lte_odd_prime_power_difference_quotient (b)
  17. 0017specialize lte_odd_prime_power_difference_quotient (d)
  18. 0018apply lte_odd_prime_power_difference_quotient
  19. 0019exact hp
  20. 0020exact hne
  21. 0021exact ha
  22. 0022exact hd
  23. 0023exact hb
  24. 0024cases hquotient
  25. 0025cases hquotient_witness
  26. 0026cases hquotient_witness_witness
  27. 0027cases hquotient_witness_witness_witness
  28. 0028cases hquotient_witness_witness_witness_witness
  29. 0029cases hquotient_witness_witness_witness_witness_right
  30. 0030cases hquotient_witness_witness_witness_witness_right_right
  31. 0031cases hquotient_witness_witness_witness_witness_right_right_right
  32. 0032have hQzero : ~(x2 = 0)
  33. 0033intro hz
  34. 0034rewrite hquotient_witness_witness_witness_witness_right_right_right_left at hz
  35. 0035specialize mul_ne_zero (p)
  36. 0036specialize mul_ne_zero (x3)
  37. 0037apply mul_ne_zero
  38. 0038intro hpzero
  39. 0039specialize prime_nonzero (p)
  40. 0040apply prime_nonzero
  41. 0041exact hp
  42. 0042exact hpzero
  43. 0043intro huzero
  44. 0044specialize lte_nondivisor_nonzero (p)
  45. 0045specialize lte_nondivisor_nonzero (x3)
  46. 0046apply lte_nondivisor_nonzero
  47. 0047exact hquotient_witness_witness_witness_witness_right_right_right_right
  48. 0048exact huzero
  49. 0049exact hz
  50. 0050exists x
  51. 0051exists x1
  52. 0052exists d * x2
  53. 0053specialize lte_power_difference_valuation_step (p)
  54. 0054specialize lte_power_difference_valuation_step (a)
  55. 0055specialize lte_power_difference_valuation_step (b)
  56. 0056specialize lte_power_difference_valuation_step (d)
  57. 0057specialize lte_power_difference_valuation_step (p)
  58. 0058specialize lte_power_difference_valuation_step (x)
  59. 0059specialize lte_power_difference_valuation_step (x1)
  60. 0060specialize lte_power_difference_valuation_step (x2)
  61. 0061specialize lte_power_difference_valuation_step (e)
  62. 0062specialize lte_power_difference_valuation_step (1)
  63. 0063specialize lte_power_difference_valuation_step (S e)
  64. 0064apply lte_power_difference_valuation_step
  65. 0065simp
  66. 0066exact hp
  67. 0067exact hdzero
  68. 0068exact hd
  69. 0069exact hb
  70. 0070exact hQzero
  71. 0071exact hval
  72. 0072specialize lte_valuation_from_exact_cofactor (p)
  73. 0073specialize lte_valuation_from_exact_cofactor (1)
  74. 0074specialize lte_valuation_from_exact_cofactor (p)
  75. 0075specialize lte_valuation_from_exact_cofactor (x3)
  76. 0076specialize lte_valuation_from_exact_cofactor (x2)
  77. 0077apply lte_valuation_from_exact_cofactor
  78. 0078exact hp
  79. 0079specialize lte_power_one_exact (p)
  80. 0080apply lte_power_one_exact
  81. 0081exact hquotient_witness_witness_witness_witness_right_right_right_left
  82. 0082exact hquotient_witness_witness_witness_witness_right_right_right_right
  83. 0083exact hquotient_witness_witness_witness_witness_left
  84. 0084exact hquotient_witness_witness_witness_witness_right_left
  85. 0085exact hquotient_witness_witness_witness_witness_right_right_left