SK0025

prime_support_common_divisor_implies_all_valuations

Alpha v34 independently verified · alpha_closed; checked-use authorized; not Stable

Dividing all listed positive valuations implies dividing every prime valuation, using actual support coverage and zero valuation for absent primes.

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 pb pc eb ec vb vc l k. (((~((n) = 0)) /\ (((forall pfp_i_pvs_common_supportdistinct pfp_j_pvs_common_supportdistinct pfp_a_pvs_common_supportdistinct. (exists pfp_gap_pvs_common_supportdistinctfirst. pfp_gap_pvs_common_supportdistinctfirst + S (pfp_i_pvs_common_supportdistinct) = (l)) -> (exists pfp_gap_pvs_common_supportdistinctsecond. pfp_gap_pvs_common_supportdistinctsecond + S (pfp_j_pvs_common_supportdistinct) = (l)) -> (((exists ff_h_pfp_pvs_common_supportdistinctleft. ff_h_pfp_pvs_common_supportdistinctleft + S (pfp_a_pvs_common_supportdistinct) = S ((S (pfp_i_pvs_common_supportdistinct)) * pc)) /\ exists ff_q_pfp_pvs_common_supportdistinctleft. pb = ff_q_pfp_pvs_common_supportdistinctleft * S ((S (pfp_i_pvs_common_supportdistinct)) * pc) + (pfp_a_pvs_common_supportdistinct))) -> (((exists ff_h_pfp_pvs_common_supportdistinctright. ff_h_pfp_pvs_common_supportdistinctright + S (pfp_a_pvs_common_supportdistinct) = S ((S (pfp_j_pvs_common_supportdistinct)) * pc)) /\ exists ff_q_pfp_pvs_common_supportdistinctright. pb = ff_q_pfp_pvs_common_supportdistinctright * S ((S (pfp_j_pvs_common_supportdistinct)) * pc) + (pfp_a_pvs_common_supportdistinct))) -> pfp_i_pvs_common_supportdistinct = pfp_j_pvs_common_supportdistinct) /\ (((forall pvs_index_common_supportentries. (exists pvs_gap_common_supportentriesindex. pvs_gap_common_supportentriesindex + S (pvs_index_common_supportentries) = (l)) -> exists pvs_prime_common_supportentries pvs_exponent_common_supportentries pvs_power_common_supportentries. (((((exists ff_h_pvs_common_supportentriesprime. ff_h_pvs_common_supportentriesprime + S (pvs_prime_common_supportentries) = S ((S (pvs_index_common_supportentries)) * pc)) /\ exists ff_q_pvs_common_supportentriesprime. pb = ff_q_pvs_common_supportentriesprime * S ((S (pvs_index_common_supportentries)) * pc) + (pvs_prime_common_supportentries))) /\ (((((exists ff_h_pvs_common_supportentriesexponent. ff_h_pvs_common_supportentriesexponent + S (pvs_exponent_common_supportentries) = S ((S (pvs_index_common_supportentries)) * ec)) /\ exists ff_q_pvs_common_supportentriesexponent. eb = ff_q_pvs_common_supportentriesexponent * S ((S (pvs_index_common_supportentries)) * ec) + (pvs_exponent_common_supportentries))) /\ (((((exists ff_h_pvs_common_supportentriespower. ff_h_pvs_common_supportentriespower + S (pvs_power_common_supportentries) = S ((S (pvs_index_common_supportentries)) * vc)) /\ exists ff_q_pvs_common_supportentriespower. vb = ff_q_pvs_common_supportentriespower * S ((S (pvs_index_common_supportentries)) * vc) + (pvs_power_common_supportentries))) /\ (((~((pvs_prime_common_supportentries) = 1) /\ forall pvs_left_common_supportentriesdomain pvs_right_common_supportentriesdomain. (pvs_prime_common_supportentries) = pvs_left_common_supportentriesdomain * pvs_right_common_supportentriesdomain -> pvs_left_common_supportentriesdomain = 1 \/ pvs_right_common_supportentriesdomain = 1) /\ (((~(pvs_exponent_common_supportentries = 0)) /\ (((((exists bpd_gap_pvs_common_supportentriesvaluation_selected_bound. bpd_gap_pvs_common_supportentriesvaluation_selected_bound + (pvs_exponent_common_supportentries) = (n)) /\ (exists bpvi_result_pvs_common_supportentriesvaluation_selected. ((exists bpvi_b_pvs_common_supportentriesvaluation_selected_power bpvi_c_pvs_common_supportentriesvaluation_selected_power. ((forall bpvi_i_pvs_common_supportentriesvaluation_selected_power. (exists bpvi_repeat_gap_pvs_common_supportentriesvaluation_selected_power. bpvi_repeat_gap_pvs_common_supportentriesvaluation_selected_power + S bpvi_i_pvs_common_supportentriesvaluation_selected_power = pvs_exponent_common_supportentries) -> (((exists bpvi_h_pvs_common_supportentriesvaluation_selected_power_repeat. bpvi_h_pvs_common_supportentriesvaluation_selected_power_repeat + S (pvs_prime_common_supportentries) = S ((S (bpvi_i_pvs_common_supportentriesvaluation_selected_power)) * bpvi_c_pvs_common_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_common_supportentriesvaluation_selected_power_repeat. bpvi_b_pvs_common_supportentriesvaluation_selected_power = bpvi_q_pvs_common_supportentriesvaluation_selected_power_repeat * S ((S (bpvi_i_pvs_common_supportentriesvaluation_selected_power)) * bpvi_c_pvs_common_supportentriesvaluation_selected_power) + (pvs_prime_common_supportentries)))) /\ (exists bpvi_u_pvs_common_supportentriesvaluation_selected_power bpvi_v_pvs_common_supportentriesvaluation_selected_power. ((((exists bpvi_h_pvs_common_supportentriesvaluation_selected_power_start. bpvi_h_pvs_common_supportentriesvaluation_selected_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_common_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_common_supportentriesvaluation_selected_power_start. bpvi_u_pvs_common_supportentriesvaluation_selected_power = bpvi_q_pvs_common_supportentriesvaluation_selected_power_start * S ((S (0)) * bpvi_v_pvs_common_supportentriesvaluation_selected_power) + (1))) /\ ((((exists bpvi_h_pvs_common_supportentriesvaluation_selected_power_terminal. bpvi_h_pvs_common_supportentriesvaluation_selected_power_terminal + S (bpvi_result_pvs_common_supportentriesvaluation_selected) = S ((S (pvs_exponent_common_supportentries)) * bpvi_v_pvs_common_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_common_supportentriesvaluation_selected_power_terminal. bpvi_u_pvs_common_supportentriesvaluation_selected_power = bpvi_q_pvs_common_supportentriesvaluation_selected_power_terminal * S ((S (pvs_exponent_common_supportentries)) * bpvi_v_pvs_common_supportentriesvaluation_selected_power) + (bpvi_result_pvs_common_supportentriesvaluation_selected))) /\ forall bpvi_j_pvs_common_supportentriesvaluation_selected_power. (exists bpvi_product_gap_pvs_common_supportentriesvaluation_selected_power. bpvi_product_gap_pvs_common_supportentriesvaluation_selected_power + S bpvi_j_pvs_common_supportentriesvaluation_selected_power = pvs_exponent_common_supportentries) -> exists bpvi_factor_pvs_common_supportentriesvaluation_selected_power bpvi_partial_pvs_common_supportentriesvaluation_selected_power bpvi_successor_pvs_common_supportentriesvaluation_selected_power. ((((exists bpvi_h_pvs_common_supportentriesvaluation_selected_power_factor. bpvi_h_pvs_common_supportentriesvaluation_selected_power_factor + S (bpvi_factor_pvs_common_supportentriesvaluation_selected_power) = S ((S (bpvi_j_pvs_common_supportentriesvaluation_selected_power)) * bpvi_c_pvs_common_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_common_supportentriesvaluation_selected_power_factor. bpvi_b_pvs_common_supportentriesvaluation_selected_power = bpvi_q_pvs_common_supportentriesvaluation_selected_power_factor * S ((S (bpvi_j_pvs_common_supportentriesvaluation_selected_power)) * bpvi_c_pvs_common_supportentriesvaluation_selected_power) + (bpvi_factor_pvs_common_supportentriesvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_common_supportentriesvaluation_selected_power_partial. bpvi_h_pvs_common_supportentriesvaluation_selected_power_partial + S (bpvi_partial_pvs_common_supportentriesvaluation_selected_power) = S ((S (bpvi_j_pvs_common_supportentriesvaluation_selected_power)) * bpvi_v_pvs_common_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_common_supportentriesvaluation_selected_power_partial. bpvi_u_pvs_common_supportentriesvaluation_selected_power = bpvi_q_pvs_common_supportentriesvaluation_selected_power_partial * S ((S (bpvi_j_pvs_common_supportentriesvaluation_selected_power)) * bpvi_v_pvs_common_supportentriesvaluation_selected_power) + (bpvi_partial_pvs_common_supportentriesvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_common_supportentriesvaluation_selected_power_successor. bpvi_h_pvs_common_supportentriesvaluation_selected_power_successor + S (bpvi_successor_pvs_common_supportentriesvaluation_selected_power) = S ((S (S bpvi_j_pvs_common_supportentriesvaluation_selected_power)) * bpvi_v_pvs_common_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_common_supportentriesvaluation_selected_power_successor. bpvi_u_pvs_common_supportentriesvaluation_selected_power = bpvi_q_pvs_common_supportentriesvaluation_selected_power_successor * S ((S (S bpvi_j_pvs_common_supportentriesvaluation_selected_power)) * bpvi_v_pvs_common_supportentriesvaluation_selected_power) + (bpvi_successor_pvs_common_supportentriesvaluation_selected_power))) /\ bpvi_successor_pvs_common_supportentriesvaluation_selected_power = bpvi_partial_pvs_common_supportentriesvaluation_selected_power * bpvi_factor_pvs_common_supportentriesvaluation_selected_power)))))))) /\ exists bpvi_divisor_factor_pvs_common_supportentriesvaluation_selected. n = bpvi_result_pvs_common_supportentriesvaluation_selected * bpvi_divisor_factor_pvs_common_supportentriesvaluation_selected))) /\ forall bpd_candidate_pvs_common_supportentriesvaluation. (exists bpd_gap_pvs_common_supportentriesvaluation_candidate_bound. bpd_gap_pvs_common_supportentriesvaluation_candidate_bound + (bpd_candidate_pvs_common_supportentriesvaluation) = (n)) -> (exists bpvi_result_pvs_common_supportentriesvaluation_candidate. ((exists bpvi_b_pvs_common_supportentriesvaluation_candidate_power bpvi_c_pvs_common_supportentriesvaluation_candidate_power. ((forall bpvi_i_pvs_common_supportentriesvaluation_candidate_power. (exists bpvi_repeat_gap_pvs_common_supportentriesvaluation_candidate_power. bpvi_repeat_gap_pvs_common_supportentriesvaluation_candidate_power + S bpvi_i_pvs_common_supportentriesvaluation_candidate_power = bpd_candidate_pvs_common_supportentriesvaluation) -> (((exists bpvi_h_pvs_common_supportentriesvaluation_candidate_power_repeat. bpvi_h_pvs_common_supportentriesvaluation_candidate_power_repeat + S (pvs_prime_common_supportentries) = S ((S (bpvi_i_pvs_common_supportentriesvaluation_candidate_power)) * bpvi_c_pvs_common_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_common_supportentriesvaluation_candidate_power_repeat. bpvi_b_pvs_common_supportentriesvaluation_candidate_power = bpvi_q_pvs_common_supportentriesvaluation_candidate_power_repeat * S ((S (bpvi_i_pvs_common_supportentriesvaluation_candidate_power)) * bpvi_c_pvs_common_supportentriesvaluation_candidate_power) + (pvs_prime_common_supportentries)))) /\ (exists bpvi_u_pvs_common_supportentriesvaluation_candidate_power bpvi_v_pvs_common_supportentriesvaluation_candidate_power. ((((exists bpvi_h_pvs_common_supportentriesvaluation_candidate_power_start. bpvi_h_pvs_common_supportentriesvaluation_candidate_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_common_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_common_supportentriesvaluation_candidate_power_start. bpvi_u_pvs_common_supportentriesvaluation_candidate_power = bpvi_q_pvs_common_supportentriesvaluation_candidate_power_start * S ((S (0)) * bpvi_v_pvs_common_supportentriesvaluation_candidate_power) + (1))) /\ ((((exists bpvi_h_pvs_common_supportentriesvaluation_candidate_power_terminal. bpvi_h_pvs_common_supportentriesvaluation_candidate_power_terminal + S (bpvi_result_pvs_common_supportentriesvaluation_candidate) = S ((S (bpd_candidate_pvs_common_supportentriesvaluation)) * bpvi_v_pvs_common_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_common_supportentriesvaluation_candidate_power_terminal. bpvi_u_pvs_common_supportentriesvaluation_candidate_power = bpvi_q_pvs_common_supportentriesvaluation_candidate_power_terminal * S ((S (bpd_candidate_pvs_common_supportentriesvaluation)) * bpvi_v_pvs_common_supportentriesvaluation_candidate_power) + (bpvi_result_pvs_common_supportentriesvaluation_candidate))) /\ forall bpvi_j_pvs_common_supportentriesvaluation_candidate_power. (exists bpvi_product_gap_pvs_common_supportentriesvaluation_candidate_power. bpvi_product_gap_pvs_common_supportentriesvaluation_candidate_power + S bpvi_j_pvs_common_supportentriesvaluation_candidate_power = bpd_candidate_pvs_common_supportentriesvaluation) -> exists bpvi_factor_pvs_common_supportentriesvaluation_candidate_power bpvi_partial_pvs_common_supportentriesvaluation_candidate_power bpvi_successor_pvs_common_supportentriesvaluation_candidate_power. ((((exists bpvi_h_pvs_common_supportentriesvaluation_candidate_power_factor. bpvi_h_pvs_common_supportentriesvaluation_candidate_power_factor + S (bpvi_factor_pvs_common_supportentriesvaluation_candidate_power) = S ((S (bpvi_j_pvs_common_supportentriesvaluation_candidate_power)) * bpvi_c_pvs_common_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_common_supportentriesvaluation_candidate_power_factor. bpvi_b_pvs_common_supportentriesvaluation_candidate_power = bpvi_q_pvs_common_supportentriesvaluation_candidate_power_factor * S ((S (bpvi_j_pvs_common_supportentriesvaluation_candidate_power)) * bpvi_c_pvs_common_supportentriesvaluation_candidate_power) + (bpvi_factor_pvs_common_supportentriesvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_common_supportentriesvaluation_candidate_power_partial. bpvi_h_pvs_common_supportentriesvaluation_candidate_power_partial + S (bpvi_partial_pvs_common_supportentriesvaluation_candidate_power) = S ((S (bpvi_j_pvs_common_supportentriesvaluation_candidate_power)) * bpvi_v_pvs_common_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_common_supportentriesvaluation_candidate_power_partial. bpvi_u_pvs_common_supportentriesvaluation_candidate_power = bpvi_q_pvs_common_supportentriesvaluation_candidate_power_partial * S ((S (bpvi_j_pvs_common_supportentriesvaluation_candidate_power)) * bpvi_v_pvs_common_supportentriesvaluation_candidate_power) + (bpvi_partial_pvs_common_supportentriesvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_common_supportentriesvaluation_candidate_power_successor. bpvi_h_pvs_common_supportentriesvaluation_candidate_power_successor + S (bpvi_successor_pvs_common_supportentriesvaluation_candidate_power) = S ((S (S bpvi_j_pvs_common_supportentriesvaluation_candidate_power)) * bpvi_v_pvs_common_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_common_supportentriesvaluation_candidate_power_successor. bpvi_u_pvs_common_supportentriesvaluation_candidate_power = bpvi_q_pvs_common_supportentriesvaluation_candidate_power_successor * S ((S (S bpvi_j_pvs_common_supportentriesvaluation_candidate_power)) * bpvi_v_pvs_common_supportentriesvaluation_candidate_power) + (bpvi_successor_pvs_common_supportentriesvaluation_candidate_power))) /\ bpvi_successor_pvs_common_supportentriesvaluation_candidate_power = bpvi_partial_pvs_common_supportentriesvaluation_candidate_power * bpvi_factor_pvs_common_supportentriesvaluation_candidate_power)))))))) /\ exists bpvi_divisor_factor_pvs_common_supportentriesvaluation_candidate. n = bpvi_result_pvs_common_supportentriesvaluation_candidate * bpvi_divisor_factor_pvs_common_supportentriesvaluation_candidate)) -> (exists bpd_gap_pvs_common_supportentriesvaluation_maximal. bpd_gap_pvs_common_supportentriesvaluation_maximal + (bpd_candidate_pvs_common_supportentriesvaluation) = (pvs_exponent_common_supportentries))) /\ (exists pa_b_pvs_common_supportentriesvalue pa_c_pvs_common_supportentriesvalue. ((forall pa_i_pvs_common_supportentriesvalue_repeat. (exists pa_lt_pvs_common_supportentriesvalue_repeat_bound. pa_lt_pvs_common_supportentriesvalue_repeat_bound + S pa_i_pvs_common_supportentriesvalue_repeat = pvs_exponent_common_supportentries) -> (((exists pa_h_pvs_common_supportentriesvalue_repeat_decoded. pa_h_pvs_common_supportentriesvalue_repeat_decoded + S (pvs_prime_common_supportentries) = S ((S (pa_i_pvs_common_supportentriesvalue_repeat)) * pa_c_pvs_common_supportentriesvalue)) /\ exists pa_q_pvs_common_supportentriesvalue_repeat_decoded. pa_b_pvs_common_supportentriesvalue = pa_q_pvs_common_supportentriesvalue_repeat_decoded * S ((S (pa_i_pvs_common_supportentriesvalue_repeat)) * pa_c_pvs_common_supportentriesvalue) + (pvs_prime_common_supportentries)))) /\ (exists pa_u_pvs_common_supportentriesvalue_product pa_v_pvs_common_supportentriesvalue_product. ((((exists pa_h_pvs_common_supportentriesvalue_product_start. pa_h_pvs_common_supportentriesvalue_product_start + S (1) = S ((S (0)) * pa_v_pvs_common_supportentriesvalue_product)) /\ exists pa_q_pvs_common_supportentriesvalue_product_start. pa_u_pvs_common_supportentriesvalue_product = pa_q_pvs_common_supportentriesvalue_product_start * S ((S (0)) * pa_v_pvs_common_supportentriesvalue_product) + (1))) /\ ((((exists pa_h_pvs_common_supportentriesvalue_product_terminal. pa_h_pvs_common_supportentriesvalue_product_terminal + S (pvs_power_common_supportentries) = S ((S (pvs_exponent_common_supportentries)) * pa_v_pvs_common_supportentriesvalue_product)) /\ exists pa_q_pvs_common_supportentriesvalue_product_terminal. pa_u_pvs_common_supportentriesvalue_product = pa_q_pvs_common_supportentriesvalue_product_terminal * S ((S (pvs_exponent_common_supportentries)) * pa_v_pvs_common_supportentriesvalue_product) + (pvs_power_common_supportentries))) /\ forall pa_i_pvs_common_supportentriesvalue_product. (exists pa_lt_pvs_common_supportentriesvalue_product_bound. pa_lt_pvs_common_supportentriesvalue_product_bound + S pa_i_pvs_common_supportentriesvalue_product = pvs_exponent_common_supportentries) -> exists pa_p_pvs_common_supportentriesvalue_product pa_r_pvs_common_supportentriesvalue_product pa_s_pvs_common_supportentriesvalue_product. ((((exists pa_h_pvs_common_supportentriesvalue_product_factor. pa_h_pvs_common_supportentriesvalue_product_factor + S (pa_p_pvs_common_supportentriesvalue_product) = S ((S (pa_i_pvs_common_supportentriesvalue_product)) * pa_c_pvs_common_supportentriesvalue)) /\ exists pa_q_pvs_common_supportentriesvalue_product_factor. pa_b_pvs_common_supportentriesvalue = pa_q_pvs_common_supportentriesvalue_product_factor * S ((S (pa_i_pvs_common_supportentriesvalue_product)) * pa_c_pvs_common_supportentriesvalue) + (pa_p_pvs_common_supportentriesvalue_product))) /\ ((((exists pa_h_pvs_common_supportentriesvalue_product_partial. pa_h_pvs_common_supportentriesvalue_product_partial + S (pa_r_pvs_common_supportentriesvalue_product) = S ((S (pa_i_pvs_common_supportentriesvalue_product)) * pa_v_pvs_common_supportentriesvalue_product)) /\ exists pa_q_pvs_common_supportentriesvalue_product_partial. pa_u_pvs_common_supportentriesvalue_product = pa_q_pvs_common_supportentriesvalue_product_partial * S ((S (pa_i_pvs_common_supportentriesvalue_product)) * pa_v_pvs_common_supportentriesvalue_product) + (pa_r_pvs_common_supportentriesvalue_product))) /\ ((((exists pa_h_pvs_common_supportentriesvalue_product_successor. pa_h_pvs_common_supportentriesvalue_product_successor + S (pa_s_pvs_common_supportentriesvalue_product) = S ((S (S pa_i_pvs_common_supportentriesvalue_product)) * pa_v_pvs_common_supportentriesvalue_product)) /\ exists pa_q_pvs_common_supportentriesvalue_product_successor. pa_u_pvs_common_supportentriesvalue_product = pa_q_pvs_common_supportentriesvalue_product_successor * S ((S (S pa_i_pvs_common_supportentriesvalue_product)) * pa_v_pvs_common_supportentriesvalue_product) + (pa_s_pvs_common_supportentriesvalue_product))) /\ pa_s_pvs_common_supportentriesvalue_product = pa_r_pvs_common_supportentriesvalue_product * pa_p_pvs_common_supportentriesvalue_product))))))))))))))))))))) /\ (((forall pvs_divisor_common_supportcover. (~((pvs_divisor_common_supportcover) = 1) /\ forall pvs_left_common_supportcoverprime pvs_right_common_supportcoverprime. (pvs_divisor_common_supportcover) = pvs_left_common_supportcoverprime * pvs_right_common_supportcoverprime -> pvs_left_common_supportcoverprime = 1 \/ pvs_right_common_supportcoverprime = 1) -> (exists pvs_factor_common_supportcoverdivides. (n) = (pvs_divisor_common_supportcover) * pvs_factor_common_supportcoverdivides) -> exists pvs_position_common_supportcover. (exists pvs_gap_common_supportcoverbound. pvs_gap_common_supportcoverbound + S (pvs_position_common_supportcover) = (l)) /\ (((exists ff_h_pvs_common_supportcoverentry. ff_h_pvs_common_supportcoverentry + S (pvs_divisor_common_supportcover) = S ((S (pvs_position_common_supportcover)) * pc)) /\ exists ff_q_pvs_common_supportcoverentry. pb = ff_q_pvs_common_supportcoverentry * S ((S (pvs_position_common_supportcover)) * pc) + (pvs_divisor_common_supportcover)))) /\ (exists ff_u_pvs_common_supportproduct ff_v_pvs_common_supportproduct. ((((exists ff_h_pvs_common_supportproduct_start. ff_h_pvs_common_supportproduct_start + S (1) = S ((S (0)) * ff_v_pvs_common_supportproduct)) /\ exists ff_q_pvs_common_supportproduct_start. ff_u_pvs_common_supportproduct = ff_q_pvs_common_supportproduct_start * S ((S (0)) * ff_v_pvs_common_supportproduct) + (1))) /\ ((((exists ff_h_pvs_common_supportproduct_terminal. ff_h_pvs_common_supportproduct_terminal + S (n) = S ((S (l)) * ff_v_pvs_common_supportproduct)) /\ exists ff_q_pvs_common_supportproduct_terminal. ff_u_pvs_common_supportproduct = ff_q_pvs_common_supportproduct_terminal * S ((S (l)) * ff_v_pvs_common_supportproduct) + (n))) /\ forall ff_i_pvs_common_supportproduct. (exists ff_lt_pvs_common_supportproduct_bound. ff_lt_pvs_common_supportproduct_bound + S ff_i_pvs_common_supportproduct = l) -> exists ff_p_pvs_common_supportproduct ff_r_pvs_common_supportproduct ff_s_pvs_common_supportproduct. ((((exists ff_h_pvs_common_supportproduct_factor. ff_h_pvs_common_supportproduct_factor + S (ff_p_pvs_common_supportproduct) = S ((S (ff_i_pvs_common_supportproduct)) * vc)) /\ exists ff_q_pvs_common_supportproduct_factor. vb = ff_q_pvs_common_supportproduct_factor * S ((S (ff_i_pvs_common_supportproduct)) * vc) + (ff_p_pvs_common_supportproduct))) /\ ((((exists ff_h_pvs_common_supportproduct_partial. ff_h_pvs_common_supportproduct_partial + S (ff_r_pvs_common_supportproduct) = S ((S (ff_i_pvs_common_supportproduct)) * ff_v_pvs_common_supportproduct)) /\ exists ff_q_pvs_common_supportproduct_partial. ff_u_pvs_common_supportproduct = ff_q_pvs_common_supportproduct_partial * S ((S (ff_i_pvs_common_supportproduct)) * ff_v_pvs_common_supportproduct) + (ff_r_pvs_common_supportproduct))) /\ ((((exists ff_h_pvs_common_supportproduct_successor. ff_h_pvs_common_supportproduct_successor + S (ff_s_pvs_common_supportproduct) = S ((S (S ff_i_pvs_common_supportproduct)) * ff_v_pvs_common_supportproduct)) /\ exists ff_q_pvs_common_supportproduct_successor. ff_u_pvs_common_supportproduct = ff_q_pvs_common_supportproduct_successor * S ((S (S ff_i_pvs_common_supportproduct)) * ff_v_pvs_common_supportproduct) + (ff_s_pvs_common_supportproduct))) /\ ff_s_pvs_common_supportproduct = ff_r_pvs_common_supportproduct * ff_p_pvs_common_supportproduct)))))))))))))) -> (forall ppf_index_common_exponents ppf_entry_common_exponents. (exists pvs_gap_common_exponentsbound. pvs_gap_common_exponentsbound + S (ppf_index_common_exponents) = (l)) -> (((exists ff_h_pvs_common_exponentsentry. ff_h_pvs_common_exponentsentry + S (ppf_entry_common_exponents) = S ((S (ppf_index_common_exponents)) * ec)) /\ exists ff_q_pvs_common_exponentsentry. eb = ff_q_pvs_common_exponentsentry * S ((S (ppf_index_common_exponents)) * ec) + (ppf_entry_common_exponents))) -> (exists pvs_factor_common_exponentsdivisor. (ppf_entry_common_exponents) = (k) * pvs_factor_common_exponentsdivisor)) -> (forall ppf_prime_common_all_primes ppf_exponent_common_all_primes. (~((ppf_prime_common_all_primes) = 1) /\ forall pvs_left_common_all_primesdomain pvs_right_common_all_primesdomain. (ppf_prime_common_all_primes) = pvs_left_common_all_primesdomain * pvs_right_common_all_primesdomain -> pvs_left_common_all_primesdomain = 1 \/ pvs_right_common_all_primesdomain = 1) -> (((exists bpd_gap_pvs_common_all_primesvaluation_selected_bound. bpd_gap_pvs_common_all_primesvaluation_selected_bound + (ppf_exponent_common_all_primes) = (n)) /\ (exists bpvi_result_pvs_common_all_primesvaluation_selected. ((exists bpvi_b_pvs_common_all_primesvaluation_selected_power bpvi_c_pvs_common_all_primesvaluation_selected_power. ((forall bpvi_i_pvs_common_all_primesvaluation_selected_power. (exists bpvi_repeat_gap_pvs_common_all_primesvaluation_selected_power. bpvi_repeat_gap_pvs_common_all_primesvaluation_selected_power + S bpvi_i_pvs_common_all_primesvaluation_selected_power = ppf_exponent_common_all_primes) -> (((exists bpvi_h_pvs_common_all_primesvaluation_selected_power_repeat. bpvi_h_pvs_common_all_primesvaluation_selected_power_repeat + S (ppf_prime_common_all_primes) = S ((S (bpvi_i_pvs_common_all_primesvaluation_selected_power)) * bpvi_c_pvs_common_all_primesvaluation_selected_power)) /\ exists bpvi_q_pvs_common_all_primesvaluation_selected_power_repeat. bpvi_b_pvs_common_all_primesvaluation_selected_power = bpvi_q_pvs_common_all_primesvaluation_selected_power_repeat * S ((S (bpvi_i_pvs_common_all_primesvaluation_selected_power)) * bpvi_c_pvs_common_all_primesvaluation_selected_power) + (ppf_prime_common_all_primes)))) /\ (exists bpvi_u_pvs_common_all_primesvaluation_selected_power bpvi_v_pvs_common_all_primesvaluation_selected_power. ((((exists bpvi_h_pvs_common_all_primesvaluation_selected_power_start. bpvi_h_pvs_common_all_primesvaluation_selected_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_common_all_primesvaluation_selected_power)) /\ exists bpvi_q_pvs_common_all_primesvaluation_selected_power_start. bpvi_u_pvs_common_all_primesvaluation_selected_power = bpvi_q_pvs_common_all_primesvaluation_selected_power_start * S ((S (0)) * bpvi_v_pvs_common_all_primesvaluation_selected_power) + (1))) /\ ((((exists bpvi_h_pvs_common_all_primesvaluation_selected_power_terminal. bpvi_h_pvs_common_all_primesvaluation_selected_power_terminal + S (bpvi_result_pvs_common_all_primesvaluation_selected) = S ((S (ppf_exponent_common_all_primes)) * bpvi_v_pvs_common_all_primesvaluation_selected_power)) /\ exists bpvi_q_pvs_common_all_primesvaluation_selected_power_terminal. bpvi_u_pvs_common_all_primesvaluation_selected_power = bpvi_q_pvs_common_all_primesvaluation_selected_power_terminal * S ((S (ppf_exponent_common_all_primes)) * bpvi_v_pvs_common_all_primesvaluation_selected_power) + (bpvi_result_pvs_common_all_primesvaluation_selected))) /\ forall bpvi_j_pvs_common_all_primesvaluation_selected_power. (exists bpvi_product_gap_pvs_common_all_primesvaluation_selected_power. bpvi_product_gap_pvs_common_all_primesvaluation_selected_power + S bpvi_j_pvs_common_all_primesvaluation_selected_power = ppf_exponent_common_all_primes) -> exists bpvi_factor_pvs_common_all_primesvaluation_selected_power bpvi_partial_pvs_common_all_primesvaluation_selected_power bpvi_successor_pvs_common_all_primesvaluation_selected_power. ((((exists bpvi_h_pvs_common_all_primesvaluation_selected_power_factor. bpvi_h_pvs_common_all_primesvaluation_selected_power_factor + S (bpvi_factor_pvs_common_all_primesvaluation_selected_power) = S ((S (bpvi_j_pvs_common_all_primesvaluation_selected_power)) * bpvi_c_pvs_common_all_primesvaluation_selected_power)) /\ exists bpvi_q_pvs_common_all_primesvaluation_selected_power_factor. bpvi_b_pvs_common_all_primesvaluation_selected_power = bpvi_q_pvs_common_all_primesvaluation_selected_power_factor * S ((S (bpvi_j_pvs_common_all_primesvaluation_selected_power)) * bpvi_c_pvs_common_all_primesvaluation_selected_power) + (bpvi_factor_pvs_common_all_primesvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_common_all_primesvaluation_selected_power_partial. bpvi_h_pvs_common_all_primesvaluation_selected_power_partial + S (bpvi_partial_pvs_common_all_primesvaluation_selected_power) = S ((S (bpvi_j_pvs_common_all_primesvaluation_selected_power)) * bpvi_v_pvs_common_all_primesvaluation_selected_power)) /\ exists bpvi_q_pvs_common_all_primesvaluation_selected_power_partial. bpvi_u_pvs_common_all_primesvaluation_selected_power = bpvi_q_pvs_common_all_primesvaluation_selected_power_partial * S ((S (bpvi_j_pvs_common_all_primesvaluation_selected_power)) * bpvi_v_pvs_common_all_primesvaluation_selected_power) + (bpvi_partial_pvs_common_all_primesvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_common_all_primesvaluation_selected_power_successor. bpvi_h_pvs_common_all_primesvaluation_selected_power_successor + S (bpvi_successor_pvs_common_all_primesvaluation_selected_power) = S ((S (S bpvi_j_pvs_common_all_primesvaluation_selected_power)) * bpvi_v_pvs_common_all_primesvaluation_selected_power)) /\ exists bpvi_q_pvs_common_all_primesvaluation_selected_power_successor. bpvi_u_pvs_common_all_primesvaluation_selected_power = bpvi_q_pvs_common_all_primesvaluation_selected_power_successor * S ((S (S bpvi_j_pvs_common_all_primesvaluation_selected_power)) * bpvi_v_pvs_common_all_primesvaluation_selected_power) + (bpvi_successor_pvs_common_all_primesvaluation_selected_power))) /\ bpvi_successor_pvs_common_all_primesvaluation_selected_power = bpvi_partial_pvs_common_all_primesvaluation_selected_power * bpvi_factor_pvs_common_all_primesvaluation_selected_power)))))))) /\ exists bpvi_divisor_factor_pvs_common_all_primesvaluation_selected. n = bpvi_result_pvs_common_all_primesvaluation_selected * bpvi_divisor_factor_pvs_common_all_primesvaluation_selected))) /\ forall bpd_candidate_pvs_common_all_primesvaluation. (exists bpd_gap_pvs_common_all_primesvaluation_candidate_bound. bpd_gap_pvs_common_all_primesvaluation_candidate_bound + (bpd_candidate_pvs_common_all_primesvaluation) = (n)) -> (exists bpvi_result_pvs_common_all_primesvaluation_candidate. ((exists bpvi_b_pvs_common_all_primesvaluation_candidate_power bpvi_c_pvs_common_all_primesvaluation_candidate_power. ((forall bpvi_i_pvs_common_all_primesvaluation_candidate_power. (exists bpvi_repeat_gap_pvs_common_all_primesvaluation_candidate_power. bpvi_repeat_gap_pvs_common_all_primesvaluation_candidate_power + S bpvi_i_pvs_common_all_primesvaluation_candidate_power = bpd_candidate_pvs_common_all_primesvaluation) -> (((exists bpvi_h_pvs_common_all_primesvaluation_candidate_power_repeat. bpvi_h_pvs_common_all_primesvaluation_candidate_power_repeat + S (ppf_prime_common_all_primes) = S ((S (bpvi_i_pvs_common_all_primesvaluation_candidate_power)) * bpvi_c_pvs_common_all_primesvaluation_candidate_power)) /\ exists bpvi_q_pvs_common_all_primesvaluation_candidate_power_repeat. bpvi_b_pvs_common_all_primesvaluation_candidate_power = bpvi_q_pvs_common_all_primesvaluation_candidate_power_repeat * S ((S (bpvi_i_pvs_common_all_primesvaluation_candidate_power)) * bpvi_c_pvs_common_all_primesvaluation_candidate_power) + (ppf_prime_common_all_primes)))) /\ (exists bpvi_u_pvs_common_all_primesvaluation_candidate_power bpvi_v_pvs_common_all_primesvaluation_candidate_power. ((((exists bpvi_h_pvs_common_all_primesvaluation_candidate_power_start. bpvi_h_pvs_common_all_primesvaluation_candidate_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_common_all_primesvaluation_candidate_power)) /\ exists bpvi_q_pvs_common_all_primesvaluation_candidate_power_start. bpvi_u_pvs_common_all_primesvaluation_candidate_power = bpvi_q_pvs_common_all_primesvaluation_candidate_power_start * S ((S (0)) * bpvi_v_pvs_common_all_primesvaluation_candidate_power) + (1))) /\ ((((exists bpvi_h_pvs_common_all_primesvaluation_candidate_power_terminal. bpvi_h_pvs_common_all_primesvaluation_candidate_power_terminal + S (bpvi_result_pvs_common_all_primesvaluation_candidate) = S ((S (bpd_candidate_pvs_common_all_primesvaluation)) * bpvi_v_pvs_common_all_primesvaluation_candidate_power)) /\ exists bpvi_q_pvs_common_all_primesvaluation_candidate_power_terminal. bpvi_u_pvs_common_all_primesvaluation_candidate_power = bpvi_q_pvs_common_all_primesvaluation_candidate_power_terminal * S ((S (bpd_candidate_pvs_common_all_primesvaluation)) * bpvi_v_pvs_common_all_primesvaluation_candidate_power) + (bpvi_result_pvs_common_all_primesvaluation_candidate))) /\ forall bpvi_j_pvs_common_all_primesvaluation_candidate_power. (exists bpvi_product_gap_pvs_common_all_primesvaluation_candidate_power. bpvi_product_gap_pvs_common_all_primesvaluation_candidate_power + S bpvi_j_pvs_common_all_primesvaluation_candidate_power = bpd_candidate_pvs_common_all_primesvaluation) -> exists bpvi_factor_pvs_common_all_primesvaluation_candidate_power bpvi_partial_pvs_common_all_primesvaluation_candidate_power bpvi_successor_pvs_common_all_primesvaluation_candidate_power. ((((exists bpvi_h_pvs_common_all_primesvaluation_candidate_power_factor. bpvi_h_pvs_common_all_primesvaluation_candidate_power_factor + S (bpvi_factor_pvs_common_all_primesvaluation_candidate_power) = S ((S (bpvi_j_pvs_common_all_primesvaluation_candidate_power)) * bpvi_c_pvs_common_all_primesvaluation_candidate_power)) /\ exists bpvi_q_pvs_common_all_primesvaluation_candidate_power_factor. bpvi_b_pvs_common_all_primesvaluation_candidate_power = bpvi_q_pvs_common_all_primesvaluation_candidate_power_factor * S ((S (bpvi_j_pvs_common_all_primesvaluation_candidate_power)) * bpvi_c_pvs_common_all_primesvaluation_candidate_power) + (bpvi_factor_pvs_common_all_primesvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_common_all_primesvaluation_candidate_power_partial. bpvi_h_pvs_common_all_primesvaluation_candidate_power_partial + S (bpvi_partial_pvs_common_all_primesvaluation_candidate_power) = S ((S (bpvi_j_pvs_common_all_primesvaluation_candidate_power)) * bpvi_v_pvs_common_all_primesvaluation_candidate_power)) /\ exists bpvi_q_pvs_common_all_primesvaluation_candidate_power_partial. bpvi_u_pvs_common_all_primesvaluation_candidate_power = bpvi_q_pvs_common_all_primesvaluation_candidate_power_partial * S ((S (bpvi_j_pvs_common_all_primesvaluation_candidate_power)) * bpvi_v_pvs_common_all_primesvaluation_candidate_power) + (bpvi_partial_pvs_common_all_primesvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_common_all_primesvaluation_candidate_power_successor. bpvi_h_pvs_common_all_primesvaluation_candidate_power_successor + S (bpvi_successor_pvs_common_all_primesvaluation_candidate_power) = S ((S (S bpvi_j_pvs_common_all_primesvaluation_candidate_power)) * bpvi_v_pvs_common_all_primesvaluation_candidate_power)) /\ exists bpvi_q_pvs_common_all_primesvaluation_candidate_power_successor. bpvi_u_pvs_common_all_primesvaluation_candidate_power = bpvi_q_pvs_common_all_primesvaluation_candidate_power_successor * S ((S (S bpvi_j_pvs_common_all_primesvaluation_candidate_power)) * bpvi_v_pvs_common_all_primesvaluation_candidate_power) + (bpvi_successor_pvs_common_all_primesvaluation_candidate_power))) /\ bpvi_successor_pvs_common_all_primesvaluation_candidate_power = bpvi_partial_pvs_common_all_primesvaluation_candidate_power * bpvi_factor_pvs_common_all_primesvaluation_candidate_power)))))))) /\ exists bpvi_divisor_factor_pvs_common_all_primesvaluation_candidate. n = bpvi_result_pvs_common_all_primesvaluation_candidate * bpvi_divisor_factor_pvs_common_all_primesvaluation_candidate)) -> (exists bpd_gap_pvs_common_all_primesvaluation_maximal. bpd_gap_pvs_common_all_primesvaluation_maximal + (bpd_candidate_pvs_common_all_primesvaluation) = (ppf_exponent_common_all_primes))) -> (exists pvs_factor_common_all_primesdivides. (ppf_exponent_common_all_primes) = (k) * pvs_factor_common_all_primesdivides))

Constructive proof overview

Generated structural guide

Dividing all listed positive valuations implies dividing every prime valuation, using actual support coverage and zero valuation for absent primes.

The unchanged tactic script uses 4 declared prerequisites and contains 80 exact native proof lines.

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

Proof neighborhood

Direct dependencies

eq_decidable Stable theorem; checked-use authorized power_valuation_nonzero_exponent_divides_base Alpha theorem; checked-use authorized beta_at_unique Stable theorem; checked-use authorized power_valuation_functional Alpha theorem; checked-use authorized

Direct 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

80 script commands · 16 reading checkpoints · 5 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.

Long local formulas use this family’s existing definitions. Each new abbreviation was expanded back to the identical native formula, including its free-variable context. The original edition is preserved below.

01Fix variables and assumptionsL1–10

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

  1. L1
    intro n
  2. L2
    intro pb
  3. L3
    intro pc
  4. L4
    intro eb
  5. L5
    intro ec
  6. L6
    intro vb
  7. L7
    intro vc
  8. L8
    intro l
  9. L9
    intro k
  10. L10
    intro hsupport
02Fix variables and assumptionsL11–15

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

  1. L11
    intro hcommon
  2. L12
    intro p
  3. L13
    intro e
  4. L14
    intro hp
  5. L15
    intro hval
03Establish hcaseL16–19

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply eq decidable.

  1. L16
    have hcase : e = 0 \/ ~(e = 0)
  2. L17
    specialize eq_decidable (e)
  3. L18
    specialize eq_decidable (0)
  4. L19
    apply eq_decidable
04Separate the logical casesL20–20

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

  1. L20
    cases hcase
05Construct an explicit witnessL21–21

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

  1. L21
    exists 0
06Calculate and transport equalitiesL22–23

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

  1. L22
    rewrite hcase_left
  2. L23
    symm
07Use earlier factsL24–24

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

  1. L24
    apply PA5
08Separate the logical casesL25–28

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

  1. L25
    cases hsupport
  2. L26
    cases hsupport_right
  3. L27
    cases hsupport_right_right
  4. L28
    cases hsupport_right_right_right
09Establish hmemberL29–38

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply hsupport right right right left.

  1. L29
    have hmember : exists i. (exists pvs_gap_all_valuation_member_bound. pvs_gap_all_valuation_member_bound + S (i) = (l)) /\ (((exists ff_h_pvs_all_valuation_member_at. ff_h_pvs_all_valuation_member_at + S (p) = S ((S (i)) * pc)) /\ exists ff_q_pvs_all_valuation_member_at. pb = ff_q_pvs_all_valuation_member_at * S ((S (i)) * pc) + (p)))
  2. L30
    specialize hsupport_right_right_right_left (p)
  3. L31
    apply hsupport_right_right_right_left
  4. L32
    exact hp
  5. L33
    specialize power_valuation_nonzero_exponent_divides_base (p)
  6. L34
    specialize power_valuation_nonzero_exponent_divides_base (n)
  7. L35
    specialize power_valuation_nonzero_exponent_divides_base (e)
  8. L36
    apply power_valuation_nonzero_exponent_divides_base
  9. L37
    exact hval
  10. L38
    exact hcase_right
10Separate the logical casesL39–40

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

  1. L39
    cases hmember
  2. L40
    cases hmember_witness
11Establish hrowL41–44

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply hsupport right right left.

  1. L41
    have hrow : ∃ q. ∃ f. ∃ v. BetaAt(pb,pc,x,q) ∧ (BetaAt(eb,ec,x,f) ∧ (BetaAt(vb,vc,x,v) ∧ (Prime(q) ∧ (¬f = 0 ∧ (BoundedPowerValuation(q,n,n,f) ∧ Pow(q,f,v))))))Definitions: PrimeBetaAtPowBoundedPowerValuation
  2. L42
    specialize hsupport_right_right_left (x)
  3. L43
    apply hsupport_right_right_left
  4. L44
    exact hmember_witness_left
12Separate the logical casesL45–53

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

  1. L45
    cases hrow
  2. L46
    cases hrow_witness
  3. L47
    cases hrow_witness_witness
  4. L48
    cases hrow_witness_witness_witness
  5. L49
    cases hrow_witness_witness_witness_right
  6. L50
    cases hrow_witness_witness_witness_right_right
  7. L51
    cases hrow_witness_witness_witness_right_right_right
  8. L52
    cases hrow_witness_witness_witness_right_right_right_right
  9. L53
    cases hrow_witness_witness_witness_right_right_right_right_right
13Establish hprimeeqL54–63

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply beta at unique.

  1. L54
    have hprimeeq : p = x1
  2. L55
    specialize beta_at_unique (pb)
  3. L56
    specialize beta_at_unique (pc)
  4. L57
    specialize beta_at_unique (x)
  5. L58
    specialize beta_at_unique (p)
  6. L59
    specialize beta_at_unique (x1)
  7. L60
    apply beta_at_unique
  8. L61
    exact hmember_witness_right
  9. L62
    exact hrow_witness_witness_witness_left
  10. L63
    rewrite hprimeeq at hval
14Calculate and transport equalitiesL64–66

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

  1. L64
    rewrite hprimeeq at hval
  2. L65
    rewrite hprimeeq at hval
  3. L66
    rewrite hprimeeq at hval
15Establish hexpeqL67–76

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply power valuation functional.

  1. L67
    have hexpeq : e = x2
  2. L68
    specialize power_valuation_functional (x1)
  3. L69
    specialize power_valuation_functional (n)
  4. L70
    specialize power_valuation_functional (e)
  5. L71
    specialize power_valuation_functional (x2)
  6. L72
    apply power_valuation_functional
  7. L73
    exact hval
  8. L74
    exact hrow_witness_witness_witness_right_right_right_right_right_left
  9. L75
    rewrite hexpeq
  10. L76
    specialize hcommon (x)
16Use earlier factsL77–80

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

  1. L77
    specialize hcommon (x2)
  2. L78
    apply hcommon
  3. L79
    exact hmember_witness_left
  4. L80
    exact hrow_witness_witness_witness_right_left

Library-wide reading audit

Original exact command ledger · 80 lines
  1. 0001intro n
  2. 0002intro pb
  3. 0003intro pc
  4. 0004intro eb
  5. 0005intro ec
  6. 0006intro vb
  7. 0007intro vc
  8. 0008intro l
  9. 0009intro k
  10. 0010intro hsupport
  11. 0011intro hcommon
  12. 0012intro p
  13. 0013intro e
  14. 0014intro hp
  15. 0015intro hval
  16. 0016have hcase : e = 0 \/ ~(e = 0)
  17. 0017specialize eq_decidable (e)
  18. 0018specialize eq_decidable (0)
  19. 0019apply eq_decidable
  20. 0020cases hcase
  21. 0021exists 0
  22. 0022rewrite hcase_left
  23. 0023symm
  24. 0024apply PA5
  25. 0025cases hsupport
  26. 0026cases hsupport_right
  27. 0027cases hsupport_right_right
  28. 0028cases hsupport_right_right_right
  29. 0029have hmember : exists i. (exists pvs_gap_all_valuation_member_bound. pvs_gap_all_valuation_member_bound + S (i) = (l)) /\ (((exists ff_h_pvs_all_valuation_member_at. ff_h_pvs_all_valuation_member_at + S (p) = S ((S (i)) * pc)) /\ exists ff_q_pvs_all_valuation_member_at. pb = ff_q_pvs_all_valuation_member_at * S ((S (i)) * pc) + (p)))
  30. 0030specialize hsupport_right_right_right_left (p)
  31. 0031apply hsupport_right_right_right_left
  32. 0032exact hp
  33. 0033specialize power_valuation_nonzero_exponent_divides_base (p)
  34. 0034specialize power_valuation_nonzero_exponent_divides_base (n)
  35. 0035specialize power_valuation_nonzero_exponent_divides_base (e)
  36. 0036apply power_valuation_nonzero_exponent_divides_base
  37. 0037exact hval
  38. 0038exact hcase_right
  39. 0039cases hmember
  40. 0040cases hmember_witness
  41. 0041have hrow : exists q f v. (((((exists ff_h_pvs_all_valuation_rowprime. ff_h_pvs_all_valuation_rowprime + S (q) = S ((S (x)) * pc)) /\ exists ff_q_pvs_all_valuation_rowprime. pb = ff_q_pvs_all_valuation_rowprime * S ((S (x)) * pc) + (q))) /\ (((((exists ff_h_pvs_all_valuation_rowexponent. ff_h_pvs_all_valuation_rowexponent + S (f) = S ((S (x)) * ec)) /\ exists ff_q_pvs_all_valuation_rowexponent. eb = ff_q_pvs_all_valuation_rowexponent * S ((S (x)) * ec) + (f))) /\ (((((exists ff_h_pvs_all_valuation_rowpower. ff_h_pvs_all_valuation_rowpower + S (v) = S ((S (x)) * vc)) /\ exists ff_q_pvs_all_valuation_rowpower. vb = ff_q_pvs_all_valuation_rowpower * S ((S (x)) * vc) + (v))) /\ (((~((q) = 1) /\ forall pvs_left_all_valuation_rowdomain pvs_right_all_valuation_rowdomain. (q) = pvs_left_all_valuation_rowdomain * pvs_right_all_valuation_rowdomain -> pvs_left_all_valuation_rowdomain = 1 \/ pvs_right_all_valuation_rowdomain = 1) /\ (((~(f = 0)) /\ (((((exists bpd_gap_pvs_all_valuation_rowvaluation_selected_bound. bpd_gap_pvs_all_valuation_rowvaluation_selected_bound + (f) = (n)) /\ (exists bpvi_result_pvs_all_valuation_rowvaluation_selected. ((exists bpvi_b_pvs_all_valuation_rowvaluation_selected_power bpvi_c_pvs_all_valuation_rowvaluation_selected_power. ((forall bpvi_i_pvs_all_valuation_rowvaluation_selected_power. (exists bpvi_repeat_gap_pvs_all_valuation_rowvaluation_selected_power. bpvi_repeat_gap_pvs_all_valuation_rowvaluation_selected_power + S bpvi_i_pvs_all_valuation_rowvaluation_selected_power = f) -> (((exists bpvi_h_pvs_all_valuation_rowvaluation_selected_power_repeat. bpvi_h_pvs_all_valuation_rowvaluation_selected_power_repeat + S (q) = S ((S (bpvi_i_pvs_all_valuation_rowvaluation_selected_power)) * bpvi_c_pvs_all_valuation_rowvaluation_selected_power)) /\ exists bpvi_q_pvs_all_valuation_rowvaluation_selected_power_repeat. bpvi_b_pvs_all_valuation_rowvaluation_selected_power = bpvi_q_pvs_all_valuation_rowvaluation_selected_power_repeat * S ((S (bpvi_i_pvs_all_valuation_rowvaluation_selected_power)) * bpvi_c_pvs_all_valuation_rowvaluation_selected_power) + (q)))) /\ (exists bpvi_u_pvs_all_valuation_rowvaluation_selected_power bpvi_v_pvs_all_valuation_rowvaluation_selected_power. ((((exists bpvi_h_pvs_all_valuation_rowvaluation_selected_power_start. bpvi_h_pvs_all_valuation_rowvaluation_selected_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_all_valuation_rowvaluation_selected_power)) /\ exists bpvi_q_pvs_all_valuation_rowvaluation_selected_power_start. bpvi_u_pvs_all_valuation_rowvaluation_selected_power = bpvi_q_pvs_all_valuation_rowvaluation_selected_power_start * S ((S (0)) * bpvi_v_pvs_all_valuation_rowvaluation_selected_power) + (1))) /\ ((((exists bpvi_h_pvs_all_valuation_rowvaluation_selected_power_terminal. bpvi_h_pvs_all_valuation_rowvaluation_selected_power_terminal + S (bpvi_result_pvs_all_valuation_rowvaluation_selected) = S ((S (f)) * bpvi_v_pvs_all_valuation_rowvaluation_selected_power)) /\ exists bpvi_q_pvs_all_valuation_rowvaluation_selected_power_terminal. bpvi_u_pvs_all_valuation_rowvaluation_selected_power = bpvi_q_pvs_all_valuation_rowvaluation_selected_power_terminal * S ((S (f)) * bpvi_v_pvs_all_valuation_rowvaluation_selected_power) + (bpvi_result_pvs_all_valuation_rowvaluation_selected))) /\ forall bpvi_j_pvs_all_valuation_rowvaluation_selected_power. (exists bpvi_product_gap_pvs_all_valuation_rowvaluation_selected_power. bpvi_product_gap_pvs_all_valuation_rowvaluation_selected_power + S bpvi_j_pvs_all_valuation_rowvaluation_selected_power = f) -> exists bpvi_factor_pvs_all_valuation_rowvaluation_selected_power bpvi_partial_pvs_all_valuation_rowvaluation_selected_power bpvi_successor_pvs_all_valuation_rowvaluation_selected_power. ((((exists bpvi_h_pvs_all_valuation_rowvaluation_selected_power_factor. bpvi_h_pvs_all_valuation_rowvaluation_selected_power_factor + S (bpvi_factor_pvs_all_valuation_rowvaluation_selected_power) = S ((S (bpvi_j_pvs_all_valuation_rowvaluation_selected_power)) * bpvi_c_pvs_all_valuation_rowvaluation_selected_power)) /\ exists bpvi_q_pvs_all_valuation_rowvaluation_selected_power_factor. bpvi_b_pvs_all_valuation_rowvaluation_selected_power = bpvi_q_pvs_all_valuation_rowvaluation_selected_power_factor * S ((S (bpvi_j_pvs_all_valuation_rowvaluation_selected_power)) * bpvi_c_pvs_all_valuation_rowvaluation_selected_power) + (bpvi_factor_pvs_all_valuation_rowvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_all_valuation_rowvaluation_selected_power_partial. bpvi_h_pvs_all_valuation_rowvaluation_selected_power_partial + S (bpvi_partial_pvs_all_valuation_rowvaluation_selected_power) = S ((S (bpvi_j_pvs_all_valuation_rowvaluation_selected_power)) * bpvi_v_pvs_all_valuation_rowvaluation_selected_power)) /\ exists bpvi_q_pvs_all_valuation_rowvaluation_selected_power_partial. bpvi_u_pvs_all_valuation_rowvaluation_selected_power = bpvi_q_pvs_all_valuation_rowvaluation_selected_power_partial * S ((S (bpvi_j_pvs_all_valuation_rowvaluation_selected_power)) * bpvi_v_pvs_all_valuation_rowvaluation_selected_power) + (bpvi_partial_pvs_all_valuation_rowvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_all_valuation_rowvaluation_selected_power_successor. bpvi_h_pvs_all_valuation_rowvaluation_selected_power_successor + S (bpvi_successor_pvs_all_valuation_rowvaluation_selected_power) = S ((S (S bpvi_j_pvs_all_valuation_rowvaluation_selected_power)) * bpvi_v_pvs_all_valuation_rowvaluation_selected_power)) /\ exists bpvi_q_pvs_all_valuation_rowvaluation_selected_power_successor. bpvi_u_pvs_all_valuation_rowvaluation_selected_power = bpvi_q_pvs_all_valuation_rowvaluation_selected_power_successor * S ((S (S bpvi_j_pvs_all_valuation_rowvaluation_selected_power)) * bpvi_v_pvs_all_valuation_rowvaluation_selected_power) + (bpvi_successor_pvs_all_valuation_rowvaluation_selected_power))) /\ bpvi_successor_pvs_all_valuation_rowvaluation_selected_power = bpvi_partial_pvs_all_valuation_rowvaluation_selected_power * bpvi_factor_pvs_all_valuation_rowvaluation_selected_power)))))))) /\ exists bpvi_divisor_factor_pvs_all_valuation_rowvaluation_selected. n = bpvi_result_pvs_all_valuation_rowvaluation_selected * bpvi_divisor_factor_pvs_all_valuation_rowvaluation_selected))) /\ forall bpd_candidate_pvs_all_valuation_rowvaluation. (exists bpd_gap_pvs_all_valuation_rowvaluation_candidate_bound. bpd_gap_pvs_all_valuation_rowvaluation_candidate_bound + (bpd_candidate_pvs_all_valuation_rowvaluation) = (n)) -> (exists bpvi_result_pvs_all_valuation_rowvaluation_candidate. ((exists bpvi_b_pvs_all_valuation_rowvaluation_candidate_power bpvi_c_pvs_all_valuation_rowvaluation_candidate_power. ((forall bpvi_i_pvs_all_valuation_rowvaluation_candidate_power. (exists bpvi_repeat_gap_pvs_all_valuation_rowvaluation_candidate_power. bpvi_repeat_gap_pvs_all_valuation_rowvaluation_candidate_power + S bpvi_i_pvs_all_valuation_rowvaluation_candidate_power = bpd_candidate_pvs_all_valuation_rowvaluation) -> (((exists bpvi_h_pvs_all_valuation_rowvaluation_candidate_power_repeat. bpvi_h_pvs_all_valuation_rowvaluation_candidate_power_repeat + S (q) = S ((S (bpvi_i_pvs_all_valuation_rowvaluation_candidate_power)) * bpvi_c_pvs_all_valuation_rowvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_valuation_rowvaluation_candidate_power_repeat. bpvi_b_pvs_all_valuation_rowvaluation_candidate_power = bpvi_q_pvs_all_valuation_rowvaluation_candidate_power_repeat * S ((S (bpvi_i_pvs_all_valuation_rowvaluation_candidate_power)) * bpvi_c_pvs_all_valuation_rowvaluation_candidate_power) + (q)))) /\ (exists bpvi_u_pvs_all_valuation_rowvaluation_candidate_power bpvi_v_pvs_all_valuation_rowvaluation_candidate_power. ((((exists bpvi_h_pvs_all_valuation_rowvaluation_candidate_power_start. bpvi_h_pvs_all_valuation_rowvaluation_candidate_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_all_valuation_rowvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_valuation_rowvaluation_candidate_power_start. bpvi_u_pvs_all_valuation_rowvaluation_candidate_power = bpvi_q_pvs_all_valuation_rowvaluation_candidate_power_start * S ((S (0)) * bpvi_v_pvs_all_valuation_rowvaluation_candidate_power) + (1))) /\ ((((exists bpvi_h_pvs_all_valuation_rowvaluation_candidate_power_terminal. bpvi_h_pvs_all_valuation_rowvaluation_candidate_power_terminal + S (bpvi_result_pvs_all_valuation_rowvaluation_candidate) = S ((S (bpd_candidate_pvs_all_valuation_rowvaluation)) * bpvi_v_pvs_all_valuation_rowvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_valuation_rowvaluation_candidate_power_terminal. bpvi_u_pvs_all_valuation_rowvaluation_candidate_power = bpvi_q_pvs_all_valuation_rowvaluation_candidate_power_terminal * S ((S (bpd_candidate_pvs_all_valuation_rowvaluation)) * bpvi_v_pvs_all_valuation_rowvaluation_candidate_power) + (bpvi_result_pvs_all_valuation_rowvaluation_candidate))) /\ forall bpvi_j_pvs_all_valuation_rowvaluation_candidate_power. (exists bpvi_product_gap_pvs_all_valuation_rowvaluation_candidate_power. bpvi_product_gap_pvs_all_valuation_rowvaluation_candidate_power + S bpvi_j_pvs_all_valuation_rowvaluation_candidate_power = bpd_candidate_pvs_all_valuation_rowvaluation) -> exists bpvi_factor_pvs_all_valuation_rowvaluation_candidate_power bpvi_partial_pvs_all_valuation_rowvaluation_candidate_power bpvi_successor_pvs_all_valuation_rowvaluation_candidate_power. ((((exists bpvi_h_pvs_all_valuation_rowvaluation_candidate_power_factor. bpvi_h_pvs_all_valuation_rowvaluation_candidate_power_factor + S (bpvi_factor_pvs_all_valuation_rowvaluation_candidate_power) = S ((S (bpvi_j_pvs_all_valuation_rowvaluation_candidate_power)) * bpvi_c_pvs_all_valuation_rowvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_valuation_rowvaluation_candidate_power_factor. bpvi_b_pvs_all_valuation_rowvaluation_candidate_power = bpvi_q_pvs_all_valuation_rowvaluation_candidate_power_factor * S ((S (bpvi_j_pvs_all_valuation_rowvaluation_candidate_power)) * bpvi_c_pvs_all_valuation_rowvaluation_candidate_power) + (bpvi_factor_pvs_all_valuation_rowvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_all_valuation_rowvaluation_candidate_power_partial. bpvi_h_pvs_all_valuation_rowvaluation_candidate_power_partial + S (bpvi_partial_pvs_all_valuation_rowvaluation_candidate_power) = S ((S (bpvi_j_pvs_all_valuation_rowvaluation_candidate_power)) * bpvi_v_pvs_all_valuation_rowvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_valuation_rowvaluation_candidate_power_partial. bpvi_u_pvs_all_valuation_rowvaluation_candidate_power = bpvi_q_pvs_all_valuation_rowvaluation_candidate_power_partial * S ((S (bpvi_j_pvs_all_valuation_rowvaluation_candidate_power)) * bpvi_v_pvs_all_valuation_rowvaluation_candidate_power) + (bpvi_partial_pvs_all_valuation_rowvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_all_valuation_rowvaluation_candidate_power_successor. bpvi_h_pvs_all_valuation_rowvaluation_candidate_power_successor + S (bpvi_successor_pvs_all_valuation_rowvaluation_candidate_power) = S ((S (S bpvi_j_pvs_all_valuation_rowvaluation_candidate_power)) * bpvi_v_pvs_all_valuation_rowvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_valuation_rowvaluation_candidate_power_successor. bpvi_u_pvs_all_valuation_rowvaluation_candidate_power = bpvi_q_pvs_all_valuation_rowvaluation_candidate_power_successor * S ((S (S bpvi_j_pvs_all_valuation_rowvaluation_candidate_power)) * bpvi_v_pvs_all_valuation_rowvaluation_candidate_power) + (bpvi_successor_pvs_all_valuation_rowvaluation_candidate_power))) /\ bpvi_successor_pvs_all_valuation_rowvaluation_candidate_power = bpvi_partial_pvs_all_valuation_rowvaluation_candidate_power * bpvi_factor_pvs_all_valuation_rowvaluation_candidate_power)))))))) /\ exists bpvi_divisor_factor_pvs_all_valuation_rowvaluation_candidate. n = bpvi_result_pvs_all_valuation_rowvaluation_candidate * bpvi_divisor_factor_pvs_all_valuation_rowvaluation_candidate)) -> (exists bpd_gap_pvs_all_valuation_rowvaluation_maximal. bpd_gap_pvs_all_valuation_rowvaluation_maximal + (bpd_candidate_pvs_all_valuation_rowvaluation) = (f))) /\ (exists pa_b_pvs_all_valuation_rowvalue pa_c_pvs_all_valuation_rowvalue. ((forall pa_i_pvs_all_valuation_rowvalue_repeat. (exists pa_lt_pvs_all_valuation_rowvalue_repeat_bound. pa_lt_pvs_all_valuation_rowvalue_repeat_bound + S pa_i_pvs_all_valuation_rowvalue_repeat = f) -> (((exists pa_h_pvs_all_valuation_rowvalue_repeat_decoded. pa_h_pvs_all_valuation_rowvalue_repeat_decoded + S (q) = S ((S (pa_i_pvs_all_valuation_rowvalue_repeat)) * pa_c_pvs_all_valuation_rowvalue)) /\ exists pa_q_pvs_all_valuation_rowvalue_repeat_decoded. pa_b_pvs_all_valuation_rowvalue = pa_q_pvs_all_valuation_rowvalue_repeat_decoded * S ((S (pa_i_pvs_all_valuation_rowvalue_repeat)) * pa_c_pvs_all_valuation_rowvalue) + (q)))) /\ (exists pa_u_pvs_all_valuation_rowvalue_product pa_v_pvs_all_valuation_rowvalue_product. ((((exists pa_h_pvs_all_valuation_rowvalue_product_start. pa_h_pvs_all_valuation_rowvalue_product_start + S (1) = S ((S (0)) * pa_v_pvs_all_valuation_rowvalue_product)) /\ exists pa_q_pvs_all_valuation_rowvalue_product_start. pa_u_pvs_all_valuation_rowvalue_product = pa_q_pvs_all_valuation_rowvalue_product_start * S ((S (0)) * pa_v_pvs_all_valuation_rowvalue_product) + (1))) /\ ((((exists pa_h_pvs_all_valuation_rowvalue_product_terminal. pa_h_pvs_all_valuation_rowvalue_product_terminal + S (v) = S ((S (f)) * pa_v_pvs_all_valuation_rowvalue_product)) /\ exists pa_q_pvs_all_valuation_rowvalue_product_terminal. pa_u_pvs_all_valuation_rowvalue_product = pa_q_pvs_all_valuation_rowvalue_product_terminal * S ((S (f)) * pa_v_pvs_all_valuation_rowvalue_product) + (v))) /\ forall pa_i_pvs_all_valuation_rowvalue_product. (exists pa_lt_pvs_all_valuation_rowvalue_product_bound. pa_lt_pvs_all_valuation_rowvalue_product_bound + S pa_i_pvs_all_valuation_rowvalue_product = f) -> exists pa_p_pvs_all_valuation_rowvalue_product pa_r_pvs_all_valuation_rowvalue_product pa_s_pvs_all_valuation_rowvalue_product. ((((exists pa_h_pvs_all_valuation_rowvalue_product_factor. pa_h_pvs_all_valuation_rowvalue_product_factor + S (pa_p_pvs_all_valuation_rowvalue_product) = S ((S (pa_i_pvs_all_valuation_rowvalue_product)) * pa_c_pvs_all_valuation_rowvalue)) /\ exists pa_q_pvs_all_valuation_rowvalue_product_factor. pa_b_pvs_all_valuation_rowvalue = pa_q_pvs_all_valuation_rowvalue_product_factor * S ((S (pa_i_pvs_all_valuation_rowvalue_product)) * pa_c_pvs_all_valuation_rowvalue) + (pa_p_pvs_all_valuation_rowvalue_product))) /\ ((((exists pa_h_pvs_all_valuation_rowvalue_product_partial. pa_h_pvs_all_valuation_rowvalue_product_partial + S (pa_r_pvs_all_valuation_rowvalue_product) = S ((S (pa_i_pvs_all_valuation_rowvalue_product)) * pa_v_pvs_all_valuation_rowvalue_product)) /\ exists pa_q_pvs_all_valuation_rowvalue_product_partial. pa_u_pvs_all_valuation_rowvalue_product = pa_q_pvs_all_valuation_rowvalue_product_partial * S ((S (pa_i_pvs_all_valuation_rowvalue_product)) * pa_v_pvs_all_valuation_rowvalue_product) + (pa_r_pvs_all_valuation_rowvalue_product))) /\ ((((exists pa_h_pvs_all_valuation_rowvalue_product_successor. pa_h_pvs_all_valuation_rowvalue_product_successor + S (pa_s_pvs_all_valuation_rowvalue_product) = S ((S (S pa_i_pvs_all_valuation_rowvalue_product)) * pa_v_pvs_all_valuation_rowvalue_product)) /\ exists pa_q_pvs_all_valuation_rowvalue_product_successor. pa_u_pvs_all_valuation_rowvalue_product = pa_q_pvs_all_valuation_rowvalue_product_successor * S ((S (S pa_i_pvs_all_valuation_rowvalue_product)) * pa_v_pvs_all_valuation_rowvalue_product) + (pa_s_pvs_all_valuation_rowvalue_product))) /\ pa_s_pvs_all_valuation_rowvalue_product = pa_r_pvs_all_valuation_rowvalue_product * pa_p_pvs_all_valuation_rowvalue_product))))))))))))))))))))
  42. 0042specialize hsupport_right_right_left (x)
  43. 0043apply hsupport_right_right_left
  44. 0044exact hmember_witness_left
  45. 0045cases hrow
  46. 0046cases hrow_witness
  47. 0047cases hrow_witness_witness
  48. 0048cases hrow_witness_witness_witness
  49. 0049cases hrow_witness_witness_witness_right
  50. 0050cases hrow_witness_witness_witness_right_right
  51. 0051cases hrow_witness_witness_witness_right_right_right
  52. 0052cases hrow_witness_witness_witness_right_right_right_right
  53. 0053cases hrow_witness_witness_witness_right_right_right_right_right
  54. 0054have hprimeeq : p = x1
  55. 0055specialize beta_at_unique (pb)
  56. 0056specialize beta_at_unique (pc)
  57. 0057specialize beta_at_unique (x)
  58. 0058specialize beta_at_unique (p)
  59. 0059specialize beta_at_unique (x1)
  60. 0060apply beta_at_unique
  61. 0061exact hmember_witness_right
  62. 0062exact hrow_witness_witness_witness_left
  63. 0063rewrite hprimeeq at hval
  64. 0064rewrite hprimeeq at hval
  65. 0065rewrite hprimeeq at hval
  66. 0066rewrite hprimeeq at hval
  67. 0067have hexpeq : e = x2
  68. 0068specialize power_valuation_functional (x1)
  69. 0069specialize power_valuation_functional (n)
  70. 0070specialize power_valuation_functional (e)
  71. 0071specialize power_valuation_functional (x2)
  72. 0072apply power_valuation_functional
  73. 0073exact hval
  74. 0074exact hrow_witness_witness_witness_right_right_right_right_right_left
  75. 0075rewrite hexpeq
  76. 0076specialize hcommon (x)
  77. 0077specialize hcommon (x2)
  78. 0078apply hcommon
  79. 0079exact hmember_witness_left
  80. 0080exact hrow_witness_witness_witness_right_left