SK0025

prime_support_common_divisor_implies_all_valuations

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

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.

For n>1 the exponent gcd and a real beta table classify and witness all positive root degrees. The unit n=1 has a separate uniform certificate for every positive degree. Zero is excluded. NaturalSquarefreeDecomposition is deliberately distinct from the unrelated polynomial definition.

Exact theorem in conservative defined notation

∀ n. ∀ pb. ∀ pc. ∀ eb. ∀ ec. ∀ vb. ∀ vc. ∀ l. ∀ k. PrimeValuationSupport(n,pb,pc,eb,ec,vb,vc,l) → (∀ x. ∀ y. Lt(x,l)BetaAt(eb,ec,x,y)Dvd(k,y)) → PrimeValuationsDivisible(n,k)

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

Definition DAG

Actual proof prerequisites

eq_decidable · checked external prerequisitepower_valuation_nonzero_exponent_divides_base · checked external prerequisitebeta_at_unique · checked external prerequisitepower_valuation_functional · checked external prerequisite
Original expanded first-order 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))

Complete tactic proof in conservative notation

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

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.

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

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 : ∃ i. Lt(i,l) ∧ BetaAt(pb,pc,i,p)Definitions: Lt(i,l)BetaAt(pb,pc,i,p)Original native command in the exact edition
  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: BetaAt(pb,pc,x,q)BetaAt(eb,ec,x,f)BetaAt(vb,vc,x,v)Prime(q)BoundedPowerValuation(q,n,n,f)Pow(q,f,v)Original native command in the exact edition
  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 defined 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 : ∃ i. Lt(i,l)BetaAt(pb,pc,i,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 : ∃ 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))))))
  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