SK0026

prime_support_all_valuations_implies_common_divisor

Dividing every actual prime valuation implies being a common divisor of the actual finite exponent prefix.

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)PrimeValuationsDivisible(n,k) → ∀ x. ∀ y. Lt(x,l)BetaAt(eb,ec,x,y)Dvd(k,y)

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

Definition DAG

Actual proof prerequisites

Original expanded first-order statement
forall n pb pc eb ec vb vc l k. (((~((n) = 0)) /\ (((forall pfp_i_pvs_all_supportdistinct pfp_j_pvs_all_supportdistinct pfp_a_pvs_all_supportdistinct. (exists pfp_gap_pvs_all_supportdistinctfirst. pfp_gap_pvs_all_supportdistinctfirst + S (pfp_i_pvs_all_supportdistinct) = (l)) -> (exists pfp_gap_pvs_all_supportdistinctsecond. pfp_gap_pvs_all_supportdistinctsecond + S (pfp_j_pvs_all_supportdistinct) = (l)) -> (((exists ff_h_pfp_pvs_all_supportdistinctleft. ff_h_pfp_pvs_all_supportdistinctleft + S (pfp_a_pvs_all_supportdistinct) = S ((S (pfp_i_pvs_all_supportdistinct)) * pc)) /\ exists ff_q_pfp_pvs_all_supportdistinctleft. pb = ff_q_pfp_pvs_all_supportdistinctleft * S ((S (pfp_i_pvs_all_supportdistinct)) * pc) + (pfp_a_pvs_all_supportdistinct))) -> (((exists ff_h_pfp_pvs_all_supportdistinctright. ff_h_pfp_pvs_all_supportdistinctright + S (pfp_a_pvs_all_supportdistinct) = S ((S (pfp_j_pvs_all_supportdistinct)) * pc)) /\ exists ff_q_pfp_pvs_all_supportdistinctright. pb = ff_q_pfp_pvs_all_supportdistinctright * S ((S (pfp_j_pvs_all_supportdistinct)) * pc) + (pfp_a_pvs_all_supportdistinct))) -> pfp_i_pvs_all_supportdistinct = pfp_j_pvs_all_supportdistinct) /\ (((forall pvs_index_all_supportentries. (exists pvs_gap_all_supportentriesindex. pvs_gap_all_supportentriesindex + S (pvs_index_all_supportentries) = (l)) -> exists pvs_prime_all_supportentries pvs_exponent_all_supportentries pvs_power_all_supportentries. (((((exists ff_h_pvs_all_supportentriesprime. ff_h_pvs_all_supportentriesprime + S (pvs_prime_all_supportentries) = S ((S (pvs_index_all_supportentries)) * pc)) /\ exists ff_q_pvs_all_supportentriesprime. pb = ff_q_pvs_all_supportentriesprime * S ((S (pvs_index_all_supportentries)) * pc) + (pvs_prime_all_supportentries))) /\ (((((exists ff_h_pvs_all_supportentriesexponent. ff_h_pvs_all_supportentriesexponent + S (pvs_exponent_all_supportentries) = S ((S (pvs_index_all_supportentries)) * ec)) /\ exists ff_q_pvs_all_supportentriesexponent. eb = ff_q_pvs_all_supportentriesexponent * S ((S (pvs_index_all_supportentries)) * ec) + (pvs_exponent_all_supportentries))) /\ (((((exists ff_h_pvs_all_supportentriespower. ff_h_pvs_all_supportentriespower + S (pvs_power_all_supportentries) = S ((S (pvs_index_all_supportentries)) * vc)) /\ exists ff_q_pvs_all_supportentriespower. vb = ff_q_pvs_all_supportentriespower * S ((S (pvs_index_all_supportentries)) * vc) + (pvs_power_all_supportentries))) /\ (((~((pvs_prime_all_supportentries) = 1) /\ forall pvs_left_all_supportentriesdomain pvs_right_all_supportentriesdomain. (pvs_prime_all_supportentries) = pvs_left_all_supportentriesdomain * pvs_right_all_supportentriesdomain -> pvs_left_all_supportentriesdomain = 1 \/ pvs_right_all_supportentriesdomain = 1) /\ (((~(pvs_exponent_all_supportentries = 0)) /\ (((((exists bpd_gap_pvs_all_supportentriesvaluation_selected_bound. bpd_gap_pvs_all_supportentriesvaluation_selected_bound + (pvs_exponent_all_supportentries) = (n)) /\ (exists bpvi_result_pvs_all_supportentriesvaluation_selected. ((exists bpvi_b_pvs_all_supportentriesvaluation_selected_power bpvi_c_pvs_all_supportentriesvaluation_selected_power. ((forall bpvi_i_pvs_all_supportentriesvaluation_selected_power. (exists bpvi_repeat_gap_pvs_all_supportentriesvaluation_selected_power. bpvi_repeat_gap_pvs_all_supportentriesvaluation_selected_power + S bpvi_i_pvs_all_supportentriesvaluation_selected_power = pvs_exponent_all_supportentries) -> (((exists bpvi_h_pvs_all_supportentriesvaluation_selected_power_repeat. bpvi_h_pvs_all_supportentriesvaluation_selected_power_repeat + S (pvs_prime_all_supportentries) = S ((S (bpvi_i_pvs_all_supportentriesvaluation_selected_power)) * bpvi_c_pvs_all_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_all_supportentriesvaluation_selected_power_repeat. bpvi_b_pvs_all_supportentriesvaluation_selected_power = bpvi_q_pvs_all_supportentriesvaluation_selected_power_repeat * S ((S (bpvi_i_pvs_all_supportentriesvaluation_selected_power)) * bpvi_c_pvs_all_supportentriesvaluation_selected_power) + (pvs_prime_all_supportentries)))) /\ (exists bpvi_u_pvs_all_supportentriesvaluation_selected_power bpvi_v_pvs_all_supportentriesvaluation_selected_power. ((((exists bpvi_h_pvs_all_supportentriesvaluation_selected_power_start. bpvi_h_pvs_all_supportentriesvaluation_selected_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_all_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_all_supportentriesvaluation_selected_power_start. bpvi_u_pvs_all_supportentriesvaluation_selected_power = bpvi_q_pvs_all_supportentriesvaluation_selected_power_start * S ((S (0)) * bpvi_v_pvs_all_supportentriesvaluation_selected_power) + (1))) /\ ((((exists bpvi_h_pvs_all_supportentriesvaluation_selected_power_terminal. bpvi_h_pvs_all_supportentriesvaluation_selected_power_terminal + S (bpvi_result_pvs_all_supportentriesvaluation_selected) = S ((S (pvs_exponent_all_supportentries)) * bpvi_v_pvs_all_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_all_supportentriesvaluation_selected_power_terminal. bpvi_u_pvs_all_supportentriesvaluation_selected_power = bpvi_q_pvs_all_supportentriesvaluation_selected_power_terminal * S ((S (pvs_exponent_all_supportentries)) * bpvi_v_pvs_all_supportentriesvaluation_selected_power) + (bpvi_result_pvs_all_supportentriesvaluation_selected))) /\ forall bpvi_j_pvs_all_supportentriesvaluation_selected_power. (exists bpvi_product_gap_pvs_all_supportentriesvaluation_selected_power. bpvi_product_gap_pvs_all_supportentriesvaluation_selected_power + S bpvi_j_pvs_all_supportentriesvaluation_selected_power = pvs_exponent_all_supportentries) -> exists bpvi_factor_pvs_all_supportentriesvaluation_selected_power bpvi_partial_pvs_all_supportentriesvaluation_selected_power bpvi_successor_pvs_all_supportentriesvaluation_selected_power. ((((exists bpvi_h_pvs_all_supportentriesvaluation_selected_power_factor. bpvi_h_pvs_all_supportentriesvaluation_selected_power_factor + S (bpvi_factor_pvs_all_supportentriesvaluation_selected_power) = S ((S (bpvi_j_pvs_all_supportentriesvaluation_selected_power)) * bpvi_c_pvs_all_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_all_supportentriesvaluation_selected_power_factor. bpvi_b_pvs_all_supportentriesvaluation_selected_power = bpvi_q_pvs_all_supportentriesvaluation_selected_power_factor * S ((S (bpvi_j_pvs_all_supportentriesvaluation_selected_power)) * bpvi_c_pvs_all_supportentriesvaluation_selected_power) + (bpvi_factor_pvs_all_supportentriesvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_all_supportentriesvaluation_selected_power_partial. bpvi_h_pvs_all_supportentriesvaluation_selected_power_partial + S (bpvi_partial_pvs_all_supportentriesvaluation_selected_power) = S ((S (bpvi_j_pvs_all_supportentriesvaluation_selected_power)) * bpvi_v_pvs_all_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_all_supportentriesvaluation_selected_power_partial. bpvi_u_pvs_all_supportentriesvaluation_selected_power = bpvi_q_pvs_all_supportentriesvaluation_selected_power_partial * S ((S (bpvi_j_pvs_all_supportentriesvaluation_selected_power)) * bpvi_v_pvs_all_supportentriesvaluation_selected_power) + (bpvi_partial_pvs_all_supportentriesvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_all_supportentriesvaluation_selected_power_successor. bpvi_h_pvs_all_supportentriesvaluation_selected_power_successor + S (bpvi_successor_pvs_all_supportentriesvaluation_selected_power) = S ((S (S bpvi_j_pvs_all_supportentriesvaluation_selected_power)) * bpvi_v_pvs_all_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_all_supportentriesvaluation_selected_power_successor. bpvi_u_pvs_all_supportentriesvaluation_selected_power = bpvi_q_pvs_all_supportentriesvaluation_selected_power_successor * S ((S (S bpvi_j_pvs_all_supportentriesvaluation_selected_power)) * bpvi_v_pvs_all_supportentriesvaluation_selected_power) + (bpvi_successor_pvs_all_supportentriesvaluation_selected_power))) /\ bpvi_successor_pvs_all_supportentriesvaluation_selected_power = bpvi_partial_pvs_all_supportentriesvaluation_selected_power * bpvi_factor_pvs_all_supportentriesvaluation_selected_power)))))))) /\ exists bpvi_divisor_factor_pvs_all_supportentriesvaluation_selected. n = bpvi_result_pvs_all_supportentriesvaluation_selected * bpvi_divisor_factor_pvs_all_supportentriesvaluation_selected))) /\ forall bpd_candidate_pvs_all_supportentriesvaluation. (exists bpd_gap_pvs_all_supportentriesvaluation_candidate_bound. bpd_gap_pvs_all_supportentriesvaluation_candidate_bound + (bpd_candidate_pvs_all_supportentriesvaluation) = (n)) -> (exists bpvi_result_pvs_all_supportentriesvaluation_candidate. ((exists bpvi_b_pvs_all_supportentriesvaluation_candidate_power bpvi_c_pvs_all_supportentriesvaluation_candidate_power. ((forall bpvi_i_pvs_all_supportentriesvaluation_candidate_power. (exists bpvi_repeat_gap_pvs_all_supportentriesvaluation_candidate_power. bpvi_repeat_gap_pvs_all_supportentriesvaluation_candidate_power + S bpvi_i_pvs_all_supportentriesvaluation_candidate_power = bpd_candidate_pvs_all_supportentriesvaluation) -> (((exists bpvi_h_pvs_all_supportentriesvaluation_candidate_power_repeat. bpvi_h_pvs_all_supportentriesvaluation_candidate_power_repeat + S (pvs_prime_all_supportentries) = S ((S (bpvi_i_pvs_all_supportentriesvaluation_candidate_power)) * bpvi_c_pvs_all_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_supportentriesvaluation_candidate_power_repeat. bpvi_b_pvs_all_supportentriesvaluation_candidate_power = bpvi_q_pvs_all_supportentriesvaluation_candidate_power_repeat * S ((S (bpvi_i_pvs_all_supportentriesvaluation_candidate_power)) * bpvi_c_pvs_all_supportentriesvaluation_candidate_power) + (pvs_prime_all_supportentries)))) /\ (exists bpvi_u_pvs_all_supportentriesvaluation_candidate_power bpvi_v_pvs_all_supportentriesvaluation_candidate_power. ((((exists bpvi_h_pvs_all_supportentriesvaluation_candidate_power_start. bpvi_h_pvs_all_supportentriesvaluation_candidate_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_all_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_supportentriesvaluation_candidate_power_start. bpvi_u_pvs_all_supportentriesvaluation_candidate_power = bpvi_q_pvs_all_supportentriesvaluation_candidate_power_start * S ((S (0)) * bpvi_v_pvs_all_supportentriesvaluation_candidate_power) + (1))) /\ ((((exists bpvi_h_pvs_all_supportentriesvaluation_candidate_power_terminal. bpvi_h_pvs_all_supportentriesvaluation_candidate_power_terminal + S (bpvi_result_pvs_all_supportentriesvaluation_candidate) = S ((S (bpd_candidate_pvs_all_supportentriesvaluation)) * bpvi_v_pvs_all_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_supportentriesvaluation_candidate_power_terminal. bpvi_u_pvs_all_supportentriesvaluation_candidate_power = bpvi_q_pvs_all_supportentriesvaluation_candidate_power_terminal * S ((S (bpd_candidate_pvs_all_supportentriesvaluation)) * bpvi_v_pvs_all_supportentriesvaluation_candidate_power) + (bpvi_result_pvs_all_supportentriesvaluation_candidate))) /\ forall bpvi_j_pvs_all_supportentriesvaluation_candidate_power. (exists bpvi_product_gap_pvs_all_supportentriesvaluation_candidate_power. bpvi_product_gap_pvs_all_supportentriesvaluation_candidate_power + S bpvi_j_pvs_all_supportentriesvaluation_candidate_power = bpd_candidate_pvs_all_supportentriesvaluation) -> exists bpvi_factor_pvs_all_supportentriesvaluation_candidate_power bpvi_partial_pvs_all_supportentriesvaluation_candidate_power bpvi_successor_pvs_all_supportentriesvaluation_candidate_power. ((((exists bpvi_h_pvs_all_supportentriesvaluation_candidate_power_factor. bpvi_h_pvs_all_supportentriesvaluation_candidate_power_factor + S (bpvi_factor_pvs_all_supportentriesvaluation_candidate_power) = S ((S (bpvi_j_pvs_all_supportentriesvaluation_candidate_power)) * bpvi_c_pvs_all_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_supportentriesvaluation_candidate_power_factor. bpvi_b_pvs_all_supportentriesvaluation_candidate_power = bpvi_q_pvs_all_supportentriesvaluation_candidate_power_factor * S ((S (bpvi_j_pvs_all_supportentriesvaluation_candidate_power)) * bpvi_c_pvs_all_supportentriesvaluation_candidate_power) + (bpvi_factor_pvs_all_supportentriesvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_all_supportentriesvaluation_candidate_power_partial. bpvi_h_pvs_all_supportentriesvaluation_candidate_power_partial + S (bpvi_partial_pvs_all_supportentriesvaluation_candidate_power) = S ((S (bpvi_j_pvs_all_supportentriesvaluation_candidate_power)) * bpvi_v_pvs_all_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_supportentriesvaluation_candidate_power_partial. bpvi_u_pvs_all_supportentriesvaluation_candidate_power = bpvi_q_pvs_all_supportentriesvaluation_candidate_power_partial * S ((S (bpvi_j_pvs_all_supportentriesvaluation_candidate_power)) * bpvi_v_pvs_all_supportentriesvaluation_candidate_power) + (bpvi_partial_pvs_all_supportentriesvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_all_supportentriesvaluation_candidate_power_successor. bpvi_h_pvs_all_supportentriesvaluation_candidate_power_successor + S (bpvi_successor_pvs_all_supportentriesvaluation_candidate_power) = S ((S (S bpvi_j_pvs_all_supportentriesvaluation_candidate_power)) * bpvi_v_pvs_all_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_supportentriesvaluation_candidate_power_successor. bpvi_u_pvs_all_supportentriesvaluation_candidate_power = bpvi_q_pvs_all_supportentriesvaluation_candidate_power_successor * S ((S (S bpvi_j_pvs_all_supportentriesvaluation_candidate_power)) * bpvi_v_pvs_all_supportentriesvaluation_candidate_power) + (bpvi_successor_pvs_all_supportentriesvaluation_candidate_power))) /\ bpvi_successor_pvs_all_supportentriesvaluation_candidate_power = bpvi_partial_pvs_all_supportentriesvaluation_candidate_power * bpvi_factor_pvs_all_supportentriesvaluation_candidate_power)))))))) /\ exists bpvi_divisor_factor_pvs_all_supportentriesvaluation_candidate. n = bpvi_result_pvs_all_supportentriesvaluation_candidate * bpvi_divisor_factor_pvs_all_supportentriesvaluation_candidate)) -> (exists bpd_gap_pvs_all_supportentriesvaluation_maximal. bpd_gap_pvs_all_supportentriesvaluation_maximal + (bpd_candidate_pvs_all_supportentriesvaluation) = (pvs_exponent_all_supportentries))) /\ (exists pa_b_pvs_all_supportentriesvalue pa_c_pvs_all_supportentriesvalue. ((forall pa_i_pvs_all_supportentriesvalue_repeat. (exists pa_lt_pvs_all_supportentriesvalue_repeat_bound. pa_lt_pvs_all_supportentriesvalue_repeat_bound + S pa_i_pvs_all_supportentriesvalue_repeat = pvs_exponent_all_supportentries) -> (((exists pa_h_pvs_all_supportentriesvalue_repeat_decoded. pa_h_pvs_all_supportentriesvalue_repeat_decoded + S (pvs_prime_all_supportentries) = S ((S (pa_i_pvs_all_supportentriesvalue_repeat)) * pa_c_pvs_all_supportentriesvalue)) /\ exists pa_q_pvs_all_supportentriesvalue_repeat_decoded. pa_b_pvs_all_supportentriesvalue = pa_q_pvs_all_supportentriesvalue_repeat_decoded * S ((S (pa_i_pvs_all_supportentriesvalue_repeat)) * pa_c_pvs_all_supportentriesvalue) + (pvs_prime_all_supportentries)))) /\ (exists pa_u_pvs_all_supportentriesvalue_product pa_v_pvs_all_supportentriesvalue_product. ((((exists pa_h_pvs_all_supportentriesvalue_product_start. pa_h_pvs_all_supportentriesvalue_product_start + S (1) = S ((S (0)) * pa_v_pvs_all_supportentriesvalue_product)) /\ exists pa_q_pvs_all_supportentriesvalue_product_start. pa_u_pvs_all_supportentriesvalue_product = pa_q_pvs_all_supportentriesvalue_product_start * S ((S (0)) * pa_v_pvs_all_supportentriesvalue_product) + (1))) /\ ((((exists pa_h_pvs_all_supportentriesvalue_product_terminal. pa_h_pvs_all_supportentriesvalue_product_terminal + S (pvs_power_all_supportentries) = S ((S (pvs_exponent_all_supportentries)) * pa_v_pvs_all_supportentriesvalue_product)) /\ exists pa_q_pvs_all_supportentriesvalue_product_terminal. pa_u_pvs_all_supportentriesvalue_product = pa_q_pvs_all_supportentriesvalue_product_terminal * S ((S (pvs_exponent_all_supportentries)) * pa_v_pvs_all_supportentriesvalue_product) + (pvs_power_all_supportentries))) /\ forall pa_i_pvs_all_supportentriesvalue_product. (exists pa_lt_pvs_all_supportentriesvalue_product_bound. pa_lt_pvs_all_supportentriesvalue_product_bound + S pa_i_pvs_all_supportentriesvalue_product = pvs_exponent_all_supportentries) -> exists pa_p_pvs_all_supportentriesvalue_product pa_r_pvs_all_supportentriesvalue_product pa_s_pvs_all_supportentriesvalue_product. ((((exists pa_h_pvs_all_supportentriesvalue_product_factor. pa_h_pvs_all_supportentriesvalue_product_factor + S (pa_p_pvs_all_supportentriesvalue_product) = S ((S (pa_i_pvs_all_supportentriesvalue_product)) * pa_c_pvs_all_supportentriesvalue)) /\ exists pa_q_pvs_all_supportentriesvalue_product_factor. pa_b_pvs_all_supportentriesvalue = pa_q_pvs_all_supportentriesvalue_product_factor * S ((S (pa_i_pvs_all_supportentriesvalue_product)) * pa_c_pvs_all_supportentriesvalue) + (pa_p_pvs_all_supportentriesvalue_product))) /\ ((((exists pa_h_pvs_all_supportentriesvalue_product_partial. pa_h_pvs_all_supportentriesvalue_product_partial + S (pa_r_pvs_all_supportentriesvalue_product) = S ((S (pa_i_pvs_all_supportentriesvalue_product)) * pa_v_pvs_all_supportentriesvalue_product)) /\ exists pa_q_pvs_all_supportentriesvalue_product_partial. pa_u_pvs_all_supportentriesvalue_product = pa_q_pvs_all_supportentriesvalue_product_partial * S ((S (pa_i_pvs_all_supportentriesvalue_product)) * pa_v_pvs_all_supportentriesvalue_product) + (pa_r_pvs_all_supportentriesvalue_product))) /\ ((((exists pa_h_pvs_all_supportentriesvalue_product_successor. pa_h_pvs_all_supportentriesvalue_product_successor + S (pa_s_pvs_all_supportentriesvalue_product) = S ((S (S pa_i_pvs_all_supportentriesvalue_product)) * pa_v_pvs_all_supportentriesvalue_product)) /\ exists pa_q_pvs_all_supportentriesvalue_product_successor. pa_u_pvs_all_supportentriesvalue_product = pa_q_pvs_all_supportentriesvalue_product_successor * S ((S (S pa_i_pvs_all_supportentriesvalue_product)) * pa_v_pvs_all_supportentriesvalue_product) + (pa_s_pvs_all_supportentriesvalue_product))) /\ pa_s_pvs_all_supportentriesvalue_product = pa_r_pvs_all_supportentriesvalue_product * pa_p_pvs_all_supportentriesvalue_product))))))))))))))))))))) /\ (((forall pvs_divisor_all_supportcover. (~((pvs_divisor_all_supportcover) = 1) /\ forall pvs_left_all_supportcoverprime pvs_right_all_supportcoverprime. (pvs_divisor_all_supportcover) = pvs_left_all_supportcoverprime * pvs_right_all_supportcoverprime -> pvs_left_all_supportcoverprime = 1 \/ pvs_right_all_supportcoverprime = 1) -> (exists pvs_factor_all_supportcoverdivides. (n) = (pvs_divisor_all_supportcover) * pvs_factor_all_supportcoverdivides) -> exists pvs_position_all_supportcover. (exists pvs_gap_all_supportcoverbound. pvs_gap_all_supportcoverbound + S (pvs_position_all_supportcover) = (l)) /\ (((exists ff_h_pvs_all_supportcoverentry. ff_h_pvs_all_supportcoverentry + S (pvs_divisor_all_supportcover) = S ((S (pvs_position_all_supportcover)) * pc)) /\ exists ff_q_pvs_all_supportcoverentry. pb = ff_q_pvs_all_supportcoverentry * S ((S (pvs_position_all_supportcover)) * pc) + (pvs_divisor_all_supportcover)))) /\ (exists ff_u_pvs_all_supportproduct ff_v_pvs_all_supportproduct. ((((exists ff_h_pvs_all_supportproduct_start. ff_h_pvs_all_supportproduct_start + S (1) = S ((S (0)) * ff_v_pvs_all_supportproduct)) /\ exists ff_q_pvs_all_supportproduct_start. ff_u_pvs_all_supportproduct = ff_q_pvs_all_supportproduct_start * S ((S (0)) * ff_v_pvs_all_supportproduct) + (1))) /\ ((((exists ff_h_pvs_all_supportproduct_terminal. ff_h_pvs_all_supportproduct_terminal + S (n) = S ((S (l)) * ff_v_pvs_all_supportproduct)) /\ exists ff_q_pvs_all_supportproduct_terminal. ff_u_pvs_all_supportproduct = ff_q_pvs_all_supportproduct_terminal * S ((S (l)) * ff_v_pvs_all_supportproduct) + (n))) /\ forall ff_i_pvs_all_supportproduct. (exists ff_lt_pvs_all_supportproduct_bound. ff_lt_pvs_all_supportproduct_bound + S ff_i_pvs_all_supportproduct = l) -> exists ff_p_pvs_all_supportproduct ff_r_pvs_all_supportproduct ff_s_pvs_all_supportproduct. ((((exists ff_h_pvs_all_supportproduct_factor. ff_h_pvs_all_supportproduct_factor + S (ff_p_pvs_all_supportproduct) = S ((S (ff_i_pvs_all_supportproduct)) * vc)) /\ exists ff_q_pvs_all_supportproduct_factor. vb = ff_q_pvs_all_supportproduct_factor * S ((S (ff_i_pvs_all_supportproduct)) * vc) + (ff_p_pvs_all_supportproduct))) /\ ((((exists ff_h_pvs_all_supportproduct_partial. ff_h_pvs_all_supportproduct_partial + S (ff_r_pvs_all_supportproduct) = S ((S (ff_i_pvs_all_supportproduct)) * ff_v_pvs_all_supportproduct)) /\ exists ff_q_pvs_all_supportproduct_partial. ff_u_pvs_all_supportproduct = ff_q_pvs_all_supportproduct_partial * S ((S (ff_i_pvs_all_supportproduct)) * ff_v_pvs_all_supportproduct) + (ff_r_pvs_all_supportproduct))) /\ ((((exists ff_h_pvs_all_supportproduct_successor. ff_h_pvs_all_supportproduct_successor + S (ff_s_pvs_all_supportproduct) = S ((S (S ff_i_pvs_all_supportproduct)) * ff_v_pvs_all_supportproduct)) /\ exists ff_q_pvs_all_supportproduct_successor. ff_u_pvs_all_supportproduct = ff_q_pvs_all_supportproduct_successor * S ((S (S ff_i_pvs_all_supportproduct)) * ff_v_pvs_all_supportproduct) + (ff_s_pvs_all_supportproduct))) /\ ff_s_pvs_all_supportproduct = ff_r_pvs_all_supportproduct * ff_p_pvs_all_supportproduct)))))))))))))) -> (forall ppf_prime_all_valuation_hypothesis ppf_exponent_all_valuation_hypothesis. (~((ppf_prime_all_valuation_hypothesis) = 1) /\ forall pvs_left_all_valuation_hypothesisdomain pvs_right_all_valuation_hypothesisdomain. (ppf_prime_all_valuation_hypothesis) = pvs_left_all_valuation_hypothesisdomain * pvs_right_all_valuation_hypothesisdomain -> pvs_left_all_valuation_hypothesisdomain = 1 \/ pvs_right_all_valuation_hypothesisdomain = 1) -> (((exists bpd_gap_pvs_all_valuation_hypothesisvaluation_selected_bound. bpd_gap_pvs_all_valuation_hypothesisvaluation_selected_bound + (ppf_exponent_all_valuation_hypothesis) = (n)) /\ (exists bpvi_result_pvs_all_valuation_hypothesisvaluation_selected. ((exists bpvi_b_pvs_all_valuation_hypothesisvaluation_selected_power bpvi_c_pvs_all_valuation_hypothesisvaluation_selected_power. ((forall bpvi_i_pvs_all_valuation_hypothesisvaluation_selected_power. (exists bpvi_repeat_gap_pvs_all_valuation_hypothesisvaluation_selected_power. bpvi_repeat_gap_pvs_all_valuation_hypothesisvaluation_selected_power + S bpvi_i_pvs_all_valuation_hypothesisvaluation_selected_power = ppf_exponent_all_valuation_hypothesis) -> (((exists bpvi_h_pvs_all_valuation_hypothesisvaluation_selected_power_repeat. bpvi_h_pvs_all_valuation_hypothesisvaluation_selected_power_repeat + S (ppf_prime_all_valuation_hypothesis) = S ((S (bpvi_i_pvs_all_valuation_hypothesisvaluation_selected_power)) * bpvi_c_pvs_all_valuation_hypothesisvaluation_selected_power)) /\ exists bpvi_q_pvs_all_valuation_hypothesisvaluation_selected_power_repeat. bpvi_b_pvs_all_valuation_hypothesisvaluation_selected_power = bpvi_q_pvs_all_valuation_hypothesisvaluation_selected_power_repeat * S ((S (bpvi_i_pvs_all_valuation_hypothesisvaluation_selected_power)) * bpvi_c_pvs_all_valuation_hypothesisvaluation_selected_power) + (ppf_prime_all_valuation_hypothesis)))) /\ (exists bpvi_u_pvs_all_valuation_hypothesisvaluation_selected_power bpvi_v_pvs_all_valuation_hypothesisvaluation_selected_power. ((((exists bpvi_h_pvs_all_valuation_hypothesisvaluation_selected_power_start. bpvi_h_pvs_all_valuation_hypothesisvaluation_selected_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_selected_power)) /\ exists bpvi_q_pvs_all_valuation_hypothesisvaluation_selected_power_start. bpvi_u_pvs_all_valuation_hypothesisvaluation_selected_power = bpvi_q_pvs_all_valuation_hypothesisvaluation_selected_power_start * S ((S (0)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_selected_power) + (1))) /\ ((((exists bpvi_h_pvs_all_valuation_hypothesisvaluation_selected_power_terminal. bpvi_h_pvs_all_valuation_hypothesisvaluation_selected_power_terminal + S (bpvi_result_pvs_all_valuation_hypothesisvaluation_selected) = S ((S (ppf_exponent_all_valuation_hypothesis)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_selected_power)) /\ exists bpvi_q_pvs_all_valuation_hypothesisvaluation_selected_power_terminal. bpvi_u_pvs_all_valuation_hypothesisvaluation_selected_power = bpvi_q_pvs_all_valuation_hypothesisvaluation_selected_power_terminal * S ((S (ppf_exponent_all_valuation_hypothesis)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_selected_power) + (bpvi_result_pvs_all_valuation_hypothesisvaluation_selected))) /\ forall bpvi_j_pvs_all_valuation_hypothesisvaluation_selected_power. (exists bpvi_product_gap_pvs_all_valuation_hypothesisvaluation_selected_power. bpvi_product_gap_pvs_all_valuation_hypothesisvaluation_selected_power + S bpvi_j_pvs_all_valuation_hypothesisvaluation_selected_power = ppf_exponent_all_valuation_hypothesis) -> exists bpvi_factor_pvs_all_valuation_hypothesisvaluation_selected_power bpvi_partial_pvs_all_valuation_hypothesisvaluation_selected_power bpvi_successor_pvs_all_valuation_hypothesisvaluation_selected_power. ((((exists bpvi_h_pvs_all_valuation_hypothesisvaluation_selected_power_factor. bpvi_h_pvs_all_valuation_hypothesisvaluation_selected_power_factor + S (bpvi_factor_pvs_all_valuation_hypothesisvaluation_selected_power) = S ((S (bpvi_j_pvs_all_valuation_hypothesisvaluation_selected_power)) * bpvi_c_pvs_all_valuation_hypothesisvaluation_selected_power)) /\ exists bpvi_q_pvs_all_valuation_hypothesisvaluation_selected_power_factor. bpvi_b_pvs_all_valuation_hypothesisvaluation_selected_power = bpvi_q_pvs_all_valuation_hypothesisvaluation_selected_power_factor * S ((S (bpvi_j_pvs_all_valuation_hypothesisvaluation_selected_power)) * bpvi_c_pvs_all_valuation_hypothesisvaluation_selected_power) + (bpvi_factor_pvs_all_valuation_hypothesisvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_all_valuation_hypothesisvaluation_selected_power_partial. bpvi_h_pvs_all_valuation_hypothesisvaluation_selected_power_partial + S (bpvi_partial_pvs_all_valuation_hypothesisvaluation_selected_power) = S ((S (bpvi_j_pvs_all_valuation_hypothesisvaluation_selected_power)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_selected_power)) /\ exists bpvi_q_pvs_all_valuation_hypothesisvaluation_selected_power_partial. bpvi_u_pvs_all_valuation_hypothesisvaluation_selected_power = bpvi_q_pvs_all_valuation_hypothesisvaluation_selected_power_partial * S ((S (bpvi_j_pvs_all_valuation_hypothesisvaluation_selected_power)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_selected_power) + (bpvi_partial_pvs_all_valuation_hypothesisvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_all_valuation_hypothesisvaluation_selected_power_successor. bpvi_h_pvs_all_valuation_hypothesisvaluation_selected_power_successor + S (bpvi_successor_pvs_all_valuation_hypothesisvaluation_selected_power) = S ((S (S bpvi_j_pvs_all_valuation_hypothesisvaluation_selected_power)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_selected_power)) /\ exists bpvi_q_pvs_all_valuation_hypothesisvaluation_selected_power_successor. bpvi_u_pvs_all_valuation_hypothesisvaluation_selected_power = bpvi_q_pvs_all_valuation_hypothesisvaluation_selected_power_successor * S ((S (S bpvi_j_pvs_all_valuation_hypothesisvaluation_selected_power)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_selected_power) + (bpvi_successor_pvs_all_valuation_hypothesisvaluation_selected_power))) /\ bpvi_successor_pvs_all_valuation_hypothesisvaluation_selected_power = bpvi_partial_pvs_all_valuation_hypothesisvaluation_selected_power * bpvi_factor_pvs_all_valuation_hypothesisvaluation_selected_power)))))))) /\ exists bpvi_divisor_factor_pvs_all_valuation_hypothesisvaluation_selected. n = bpvi_result_pvs_all_valuation_hypothesisvaluation_selected * bpvi_divisor_factor_pvs_all_valuation_hypothesisvaluation_selected))) /\ forall bpd_candidate_pvs_all_valuation_hypothesisvaluation. (exists bpd_gap_pvs_all_valuation_hypothesisvaluation_candidate_bound. bpd_gap_pvs_all_valuation_hypothesisvaluation_candidate_bound + (bpd_candidate_pvs_all_valuation_hypothesisvaluation) = (n)) -> (exists bpvi_result_pvs_all_valuation_hypothesisvaluation_candidate. ((exists bpvi_b_pvs_all_valuation_hypothesisvaluation_candidate_power bpvi_c_pvs_all_valuation_hypothesisvaluation_candidate_power. ((forall bpvi_i_pvs_all_valuation_hypothesisvaluation_candidate_power. (exists bpvi_repeat_gap_pvs_all_valuation_hypothesisvaluation_candidate_power. bpvi_repeat_gap_pvs_all_valuation_hypothesisvaluation_candidate_power + S bpvi_i_pvs_all_valuation_hypothesisvaluation_candidate_power = bpd_candidate_pvs_all_valuation_hypothesisvaluation) -> (((exists bpvi_h_pvs_all_valuation_hypothesisvaluation_candidate_power_repeat. bpvi_h_pvs_all_valuation_hypothesisvaluation_candidate_power_repeat + S (ppf_prime_all_valuation_hypothesis) = S ((S (bpvi_i_pvs_all_valuation_hypothesisvaluation_candidate_power)) * bpvi_c_pvs_all_valuation_hypothesisvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_valuation_hypothesisvaluation_candidate_power_repeat. bpvi_b_pvs_all_valuation_hypothesisvaluation_candidate_power = bpvi_q_pvs_all_valuation_hypothesisvaluation_candidate_power_repeat * S ((S (bpvi_i_pvs_all_valuation_hypothesisvaluation_candidate_power)) * bpvi_c_pvs_all_valuation_hypothesisvaluation_candidate_power) + (ppf_prime_all_valuation_hypothesis)))) /\ (exists bpvi_u_pvs_all_valuation_hypothesisvaluation_candidate_power bpvi_v_pvs_all_valuation_hypothesisvaluation_candidate_power. ((((exists bpvi_h_pvs_all_valuation_hypothesisvaluation_candidate_power_start. bpvi_h_pvs_all_valuation_hypothesisvaluation_candidate_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_valuation_hypothesisvaluation_candidate_power_start. bpvi_u_pvs_all_valuation_hypothesisvaluation_candidate_power = bpvi_q_pvs_all_valuation_hypothesisvaluation_candidate_power_start * S ((S (0)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_candidate_power) + (1))) /\ ((((exists bpvi_h_pvs_all_valuation_hypothesisvaluation_candidate_power_terminal. bpvi_h_pvs_all_valuation_hypothesisvaluation_candidate_power_terminal + S (bpvi_result_pvs_all_valuation_hypothesisvaluation_candidate) = S ((S (bpd_candidate_pvs_all_valuation_hypothesisvaluation)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_valuation_hypothesisvaluation_candidate_power_terminal. bpvi_u_pvs_all_valuation_hypothesisvaluation_candidate_power = bpvi_q_pvs_all_valuation_hypothesisvaluation_candidate_power_terminal * S ((S (bpd_candidate_pvs_all_valuation_hypothesisvaluation)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_candidate_power) + (bpvi_result_pvs_all_valuation_hypothesisvaluation_candidate))) /\ forall bpvi_j_pvs_all_valuation_hypothesisvaluation_candidate_power. (exists bpvi_product_gap_pvs_all_valuation_hypothesisvaluation_candidate_power. bpvi_product_gap_pvs_all_valuation_hypothesisvaluation_candidate_power + S bpvi_j_pvs_all_valuation_hypothesisvaluation_candidate_power = bpd_candidate_pvs_all_valuation_hypothesisvaluation) -> exists bpvi_factor_pvs_all_valuation_hypothesisvaluation_candidate_power bpvi_partial_pvs_all_valuation_hypothesisvaluation_candidate_power bpvi_successor_pvs_all_valuation_hypothesisvaluation_candidate_power. ((((exists bpvi_h_pvs_all_valuation_hypothesisvaluation_candidate_power_factor. bpvi_h_pvs_all_valuation_hypothesisvaluation_candidate_power_factor + S (bpvi_factor_pvs_all_valuation_hypothesisvaluation_candidate_power) = S ((S (bpvi_j_pvs_all_valuation_hypothesisvaluation_candidate_power)) * bpvi_c_pvs_all_valuation_hypothesisvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_valuation_hypothesisvaluation_candidate_power_factor. bpvi_b_pvs_all_valuation_hypothesisvaluation_candidate_power = bpvi_q_pvs_all_valuation_hypothesisvaluation_candidate_power_factor * S ((S (bpvi_j_pvs_all_valuation_hypothesisvaluation_candidate_power)) * bpvi_c_pvs_all_valuation_hypothesisvaluation_candidate_power) + (bpvi_factor_pvs_all_valuation_hypothesisvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_all_valuation_hypothesisvaluation_candidate_power_partial. bpvi_h_pvs_all_valuation_hypothesisvaluation_candidate_power_partial + S (bpvi_partial_pvs_all_valuation_hypothesisvaluation_candidate_power) = S ((S (bpvi_j_pvs_all_valuation_hypothesisvaluation_candidate_power)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_valuation_hypothesisvaluation_candidate_power_partial. bpvi_u_pvs_all_valuation_hypothesisvaluation_candidate_power = bpvi_q_pvs_all_valuation_hypothesisvaluation_candidate_power_partial * S ((S (bpvi_j_pvs_all_valuation_hypothesisvaluation_candidate_power)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_candidate_power) + (bpvi_partial_pvs_all_valuation_hypothesisvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_all_valuation_hypothesisvaluation_candidate_power_successor. bpvi_h_pvs_all_valuation_hypothesisvaluation_candidate_power_successor + S (bpvi_successor_pvs_all_valuation_hypothesisvaluation_candidate_power) = S ((S (S bpvi_j_pvs_all_valuation_hypothesisvaluation_candidate_power)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_candidate_power)) /\ exists bpvi_q_pvs_all_valuation_hypothesisvaluation_candidate_power_successor. bpvi_u_pvs_all_valuation_hypothesisvaluation_candidate_power = bpvi_q_pvs_all_valuation_hypothesisvaluation_candidate_power_successor * S ((S (S bpvi_j_pvs_all_valuation_hypothesisvaluation_candidate_power)) * bpvi_v_pvs_all_valuation_hypothesisvaluation_candidate_power) + (bpvi_successor_pvs_all_valuation_hypothesisvaluation_candidate_power))) /\ bpvi_successor_pvs_all_valuation_hypothesisvaluation_candidate_power = bpvi_partial_pvs_all_valuation_hypothesisvaluation_candidate_power * bpvi_factor_pvs_all_valuation_hypothesisvaluation_candidate_power)))))))) /\ exists bpvi_divisor_factor_pvs_all_valuation_hypothesisvaluation_candidate. n = bpvi_result_pvs_all_valuation_hypothesisvaluation_candidate * bpvi_divisor_factor_pvs_all_valuation_hypothesisvaluation_candidate)) -> (exists bpd_gap_pvs_all_valuation_hypothesisvaluation_maximal. bpd_gap_pvs_all_valuation_hypothesisvaluation_maximal + (bpd_candidate_pvs_all_valuation_hypothesisvaluation) = (ppf_exponent_all_valuation_hypothesis))) -> (exists pvs_factor_all_valuation_hypothesisdivides. (ppf_exponent_all_valuation_hypothesis) = (k) * pvs_factor_all_valuation_hypothesisdivides)) -> (forall ppf_index_all_common_exponents ppf_entry_all_common_exponents. (exists pvs_gap_all_common_exponentsbound. pvs_gap_all_common_exponentsbound + S (ppf_index_all_common_exponents) = (l)) -> (((exists ff_h_pvs_all_common_exponentsentry. ff_h_pvs_all_common_exponentsentry + S (ppf_entry_all_common_exponents) = S ((S (ppf_index_all_common_exponents)) * ec)) /\ exists ff_q_pvs_all_common_exponentsentry. eb = ff_q_pvs_all_common_exponentsentry * S ((S (ppf_index_all_common_exponents)) * ec) + (ppf_entry_all_common_exponents))) -> (exists pvs_factor_all_common_exponentsdivisor. (ppf_entry_all_common_exponents) = (k) * pvs_factor_all_common_exponentsdivisor))

Complete tactic proof in conservative notation

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

41 script commands · 7 reading checkpoints · 1 local claims

This is a reading aid, not a new proof or a proof-tree certificate. Checkpoint groups are consecutive commands, not inferred branch boundaries. Every step links to the preserved script.

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

Named ingredients (1)
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 hall
  2. L12
    intro i
  3. L13
    intro e
  4. L14
    intro hi
  5. L15
    intro hat
03Separate the logical casesL16–19

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

  1. L16
    cases hsupport
  2. L17
    cases hsupport_right
  3. L18
    cases hsupport_right_right
  4. L19
    cases hsupport_right_right_right
04Establish hexL20–29

Establish this local claim before using it. It is not an additional assumption.

  1. L20
    have hex : ∃ p. Prime(p) ∧ BoundedPowerValuation(p,n,n,e)Definitions: Prime(p)BoundedPowerValuation(p,n,n,e)Original native command in the exact edition
  2. L21
    specialize prime_exponent_entry_has_prime_valuation (n)
  3. L22
    specialize prime_exponent_entry_has_prime_valuation (pb)
  4. L23
    specialize prime_exponent_entry_has_prime_valuation (pc)
  5. L24
    specialize prime_exponent_entry_has_prime_valuation (eb)
  6. L25
    specialize prime_exponent_entry_has_prime_valuation (ec)
  7. L26
    specialize prime_exponent_entry_has_prime_valuation (vb)
  8. L27
    specialize prime_exponent_entry_has_prime_valuation (vc)
  9. L28
    specialize prime_exponent_entry_has_prime_valuation (l)
  10. L29
    specialize prime_exponent_entry_has_prime_valuation (i)
05Use earlier factsL30–34

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

  1. L30
    specialize prime_exponent_entry_has_prime_valuation (e)
  2. L31
    apply prime_exponent_entry_has_prime_valuation
  3. L32
    exact hsupport_right_right_left
  4. L33
    exact hi
  5. L34
    exact hat
06Separate the logical casesL35–36

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

  1. L35
    cases hex
  2. L36
    cases hex_witness
07Use earlier factsL37–41

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

  1. L37
    specialize hall (x)
  2. L38
    specialize hall (e)
  3. L39
    apply hall
  4. L40
    exact hex_witness_left
  5. L41
    exact hex_witness_right

Library-wide reading audit

Original defined command ledger · 41 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 hall
  12. 0012intro i
  13. 0013intro e
  14. 0014intro hi
  15. 0015intro hat
  16. 0016cases hsupport
  17. 0017cases hsupport_right
  18. 0018cases hsupport_right_right
  19. 0019cases hsupport_right_right_right
  20. 0020have hex : ∃ p. Prime(p)BoundedPowerValuation(p,n,n,e)
  21. 0021specialize prime_exponent_entry_has_prime_valuation (n)
  22. 0022specialize prime_exponent_entry_has_prime_valuation (pb)
  23. 0023specialize prime_exponent_entry_has_prime_valuation (pc)
  24. 0024specialize prime_exponent_entry_has_prime_valuation (eb)
  25. 0025specialize prime_exponent_entry_has_prime_valuation (ec)
  26. 0026specialize prime_exponent_entry_has_prime_valuation (vb)
  27. 0027specialize prime_exponent_entry_has_prime_valuation (vc)
  28. 0028specialize prime_exponent_entry_has_prime_valuation (l)
  29. 0029specialize prime_exponent_entry_has_prime_valuation (i)
  30. 0030specialize prime_exponent_entry_has_prime_valuation (e)
  31. 0031apply prime_exponent_entry_has_prime_valuation
  32. 0032exact hsupport_right_right_left
  33. 0033exact hi
  34. 0034exact hat
  35. 0035cases hex
  36. 0036cases hex_witness
  37. 0037specialize hall (x)
  38. 0038specialize hall (e)
  39. 0039apply hall
  40. 0040exact hex_witness_left
  41. 0041exact hex_witness_right