SK0028

prime_support_perfect_power_iff_degree_divides

The positive perfect-power degrees are exactly the divisors of the actual finite exponent gcd; the reverse direction constructs a real root.

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. ∀ g. ∀ k. PrimeValuationSupport(n,pb,pc,eb,ec,vb,vc,l)PrimeExponentPrefixGCD(eb,ec,l,g) → ¬k = 0 → ((∃ x. Pow(x,k,n)) → Dvd(k,g)) ∧ (Dvd(k,g) → ∃ x. Pow(x,k,n))

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 g k. (((~((n) = 0)) /\ (((forall pfp_i_pvs_power_iff_supportdistinct pfp_j_pvs_power_iff_supportdistinct pfp_a_pvs_power_iff_supportdistinct. (exists pfp_gap_pvs_power_iff_supportdistinctfirst. pfp_gap_pvs_power_iff_supportdistinctfirst + S (pfp_i_pvs_power_iff_supportdistinct) = (l)) -> (exists pfp_gap_pvs_power_iff_supportdistinctsecond. pfp_gap_pvs_power_iff_supportdistinctsecond + S (pfp_j_pvs_power_iff_supportdistinct) = (l)) -> (((exists ff_h_pfp_pvs_power_iff_supportdistinctleft. ff_h_pfp_pvs_power_iff_supportdistinctleft + S (pfp_a_pvs_power_iff_supportdistinct) = S ((S (pfp_i_pvs_power_iff_supportdistinct)) * pc)) /\ exists ff_q_pfp_pvs_power_iff_supportdistinctleft. pb = ff_q_pfp_pvs_power_iff_supportdistinctleft * S ((S (pfp_i_pvs_power_iff_supportdistinct)) * pc) + (pfp_a_pvs_power_iff_supportdistinct))) -> (((exists ff_h_pfp_pvs_power_iff_supportdistinctright. ff_h_pfp_pvs_power_iff_supportdistinctright + S (pfp_a_pvs_power_iff_supportdistinct) = S ((S (pfp_j_pvs_power_iff_supportdistinct)) * pc)) /\ exists ff_q_pfp_pvs_power_iff_supportdistinctright. pb = ff_q_pfp_pvs_power_iff_supportdistinctright * S ((S (pfp_j_pvs_power_iff_supportdistinct)) * pc) + (pfp_a_pvs_power_iff_supportdistinct))) -> pfp_i_pvs_power_iff_supportdistinct = pfp_j_pvs_power_iff_supportdistinct) /\ (((forall pvs_index_power_iff_supportentries. (exists pvs_gap_power_iff_supportentriesindex. pvs_gap_power_iff_supportentriesindex + S (pvs_index_power_iff_supportentries) = (l)) -> exists pvs_prime_power_iff_supportentries pvs_exponent_power_iff_supportentries pvs_power_power_iff_supportentries. (((((exists ff_h_pvs_power_iff_supportentriesprime. ff_h_pvs_power_iff_supportentriesprime + S (pvs_prime_power_iff_supportentries) = S ((S (pvs_index_power_iff_supportentries)) * pc)) /\ exists ff_q_pvs_power_iff_supportentriesprime. pb = ff_q_pvs_power_iff_supportentriesprime * S ((S (pvs_index_power_iff_supportentries)) * pc) + (pvs_prime_power_iff_supportentries))) /\ (((((exists ff_h_pvs_power_iff_supportentriesexponent. ff_h_pvs_power_iff_supportentriesexponent + S (pvs_exponent_power_iff_supportentries) = S ((S (pvs_index_power_iff_supportentries)) * ec)) /\ exists ff_q_pvs_power_iff_supportentriesexponent. eb = ff_q_pvs_power_iff_supportentriesexponent * S ((S (pvs_index_power_iff_supportentries)) * ec) + (pvs_exponent_power_iff_supportentries))) /\ (((((exists ff_h_pvs_power_iff_supportentriespower. ff_h_pvs_power_iff_supportentriespower + S (pvs_power_power_iff_supportentries) = S ((S (pvs_index_power_iff_supportentries)) * vc)) /\ exists ff_q_pvs_power_iff_supportentriespower. vb = ff_q_pvs_power_iff_supportentriespower * S ((S (pvs_index_power_iff_supportentries)) * vc) + (pvs_power_power_iff_supportentries))) /\ (((~((pvs_prime_power_iff_supportentries) = 1) /\ forall pvs_left_power_iff_supportentriesdomain pvs_right_power_iff_supportentriesdomain. (pvs_prime_power_iff_supportentries) = pvs_left_power_iff_supportentriesdomain * pvs_right_power_iff_supportentriesdomain -> pvs_left_power_iff_supportentriesdomain = 1 \/ pvs_right_power_iff_supportentriesdomain = 1) /\ (((~(pvs_exponent_power_iff_supportentries = 0)) /\ (((((exists bpd_gap_pvs_power_iff_supportentriesvaluation_selected_bound. bpd_gap_pvs_power_iff_supportentriesvaluation_selected_bound + (pvs_exponent_power_iff_supportentries) = (n)) /\ (exists bpvi_result_pvs_power_iff_supportentriesvaluation_selected. ((exists bpvi_b_pvs_power_iff_supportentriesvaluation_selected_power bpvi_c_pvs_power_iff_supportentriesvaluation_selected_power. ((forall bpvi_i_pvs_power_iff_supportentriesvaluation_selected_power. (exists bpvi_repeat_gap_pvs_power_iff_supportentriesvaluation_selected_power. bpvi_repeat_gap_pvs_power_iff_supportentriesvaluation_selected_power + S bpvi_i_pvs_power_iff_supportentriesvaluation_selected_power = pvs_exponent_power_iff_supportentries) -> (((exists bpvi_h_pvs_power_iff_supportentriesvaluation_selected_power_repeat. bpvi_h_pvs_power_iff_supportentriesvaluation_selected_power_repeat + S (pvs_prime_power_iff_supportentries) = S ((S (bpvi_i_pvs_power_iff_supportentriesvaluation_selected_power)) * bpvi_c_pvs_power_iff_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_power_iff_supportentriesvaluation_selected_power_repeat. bpvi_b_pvs_power_iff_supportentriesvaluation_selected_power = bpvi_q_pvs_power_iff_supportentriesvaluation_selected_power_repeat * S ((S (bpvi_i_pvs_power_iff_supportentriesvaluation_selected_power)) * bpvi_c_pvs_power_iff_supportentriesvaluation_selected_power) + (pvs_prime_power_iff_supportentries)))) /\ (exists bpvi_u_pvs_power_iff_supportentriesvaluation_selected_power bpvi_v_pvs_power_iff_supportentriesvaluation_selected_power. ((((exists bpvi_h_pvs_power_iff_supportentriesvaluation_selected_power_start. bpvi_h_pvs_power_iff_supportentriesvaluation_selected_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_power_iff_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_power_iff_supportentriesvaluation_selected_power_start. bpvi_u_pvs_power_iff_supportentriesvaluation_selected_power = bpvi_q_pvs_power_iff_supportentriesvaluation_selected_power_start * S ((S (0)) * bpvi_v_pvs_power_iff_supportentriesvaluation_selected_power) + (1))) /\ ((((exists bpvi_h_pvs_power_iff_supportentriesvaluation_selected_power_terminal. bpvi_h_pvs_power_iff_supportentriesvaluation_selected_power_terminal + S (bpvi_result_pvs_power_iff_supportentriesvaluation_selected) = S ((S (pvs_exponent_power_iff_supportentries)) * bpvi_v_pvs_power_iff_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_power_iff_supportentriesvaluation_selected_power_terminal. bpvi_u_pvs_power_iff_supportentriesvaluation_selected_power = bpvi_q_pvs_power_iff_supportentriesvaluation_selected_power_terminal * S ((S (pvs_exponent_power_iff_supportentries)) * bpvi_v_pvs_power_iff_supportentriesvaluation_selected_power) + (bpvi_result_pvs_power_iff_supportentriesvaluation_selected))) /\ forall bpvi_j_pvs_power_iff_supportentriesvaluation_selected_power. (exists bpvi_product_gap_pvs_power_iff_supportentriesvaluation_selected_power. bpvi_product_gap_pvs_power_iff_supportentriesvaluation_selected_power + S bpvi_j_pvs_power_iff_supportentriesvaluation_selected_power = pvs_exponent_power_iff_supportentries) -> exists bpvi_factor_pvs_power_iff_supportentriesvaluation_selected_power bpvi_partial_pvs_power_iff_supportentriesvaluation_selected_power bpvi_successor_pvs_power_iff_supportentriesvaluation_selected_power. ((((exists bpvi_h_pvs_power_iff_supportentriesvaluation_selected_power_factor. bpvi_h_pvs_power_iff_supportentriesvaluation_selected_power_factor + S (bpvi_factor_pvs_power_iff_supportentriesvaluation_selected_power) = S ((S (bpvi_j_pvs_power_iff_supportentriesvaluation_selected_power)) * bpvi_c_pvs_power_iff_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_power_iff_supportentriesvaluation_selected_power_factor. bpvi_b_pvs_power_iff_supportentriesvaluation_selected_power = bpvi_q_pvs_power_iff_supportentriesvaluation_selected_power_factor * S ((S (bpvi_j_pvs_power_iff_supportentriesvaluation_selected_power)) * bpvi_c_pvs_power_iff_supportentriesvaluation_selected_power) + (bpvi_factor_pvs_power_iff_supportentriesvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_power_iff_supportentriesvaluation_selected_power_partial. bpvi_h_pvs_power_iff_supportentriesvaluation_selected_power_partial + S (bpvi_partial_pvs_power_iff_supportentriesvaluation_selected_power) = S ((S (bpvi_j_pvs_power_iff_supportentriesvaluation_selected_power)) * bpvi_v_pvs_power_iff_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_power_iff_supportentriesvaluation_selected_power_partial. bpvi_u_pvs_power_iff_supportentriesvaluation_selected_power = bpvi_q_pvs_power_iff_supportentriesvaluation_selected_power_partial * S ((S (bpvi_j_pvs_power_iff_supportentriesvaluation_selected_power)) * bpvi_v_pvs_power_iff_supportentriesvaluation_selected_power) + (bpvi_partial_pvs_power_iff_supportentriesvaluation_selected_power))) /\ ((((exists bpvi_h_pvs_power_iff_supportentriesvaluation_selected_power_successor. bpvi_h_pvs_power_iff_supportentriesvaluation_selected_power_successor + S (bpvi_successor_pvs_power_iff_supportentriesvaluation_selected_power) = S ((S (S bpvi_j_pvs_power_iff_supportentriesvaluation_selected_power)) * bpvi_v_pvs_power_iff_supportentriesvaluation_selected_power)) /\ exists bpvi_q_pvs_power_iff_supportentriesvaluation_selected_power_successor. bpvi_u_pvs_power_iff_supportentriesvaluation_selected_power = bpvi_q_pvs_power_iff_supportentriesvaluation_selected_power_successor * S ((S (S bpvi_j_pvs_power_iff_supportentriesvaluation_selected_power)) * bpvi_v_pvs_power_iff_supportentriesvaluation_selected_power) + (bpvi_successor_pvs_power_iff_supportentriesvaluation_selected_power))) /\ bpvi_successor_pvs_power_iff_supportentriesvaluation_selected_power = bpvi_partial_pvs_power_iff_supportentriesvaluation_selected_power * bpvi_factor_pvs_power_iff_supportentriesvaluation_selected_power)))))))) /\ exists bpvi_divisor_factor_pvs_power_iff_supportentriesvaluation_selected. n = bpvi_result_pvs_power_iff_supportentriesvaluation_selected * bpvi_divisor_factor_pvs_power_iff_supportentriesvaluation_selected))) /\ forall bpd_candidate_pvs_power_iff_supportentriesvaluation. (exists bpd_gap_pvs_power_iff_supportentriesvaluation_candidate_bound. bpd_gap_pvs_power_iff_supportentriesvaluation_candidate_bound + (bpd_candidate_pvs_power_iff_supportentriesvaluation) = (n)) -> (exists bpvi_result_pvs_power_iff_supportentriesvaluation_candidate. ((exists bpvi_b_pvs_power_iff_supportentriesvaluation_candidate_power bpvi_c_pvs_power_iff_supportentriesvaluation_candidate_power. ((forall bpvi_i_pvs_power_iff_supportentriesvaluation_candidate_power. (exists bpvi_repeat_gap_pvs_power_iff_supportentriesvaluation_candidate_power. bpvi_repeat_gap_pvs_power_iff_supportentriesvaluation_candidate_power + S bpvi_i_pvs_power_iff_supportentriesvaluation_candidate_power = bpd_candidate_pvs_power_iff_supportentriesvaluation) -> (((exists bpvi_h_pvs_power_iff_supportentriesvaluation_candidate_power_repeat. bpvi_h_pvs_power_iff_supportentriesvaluation_candidate_power_repeat + S (pvs_prime_power_iff_supportentries) = S ((S (bpvi_i_pvs_power_iff_supportentriesvaluation_candidate_power)) * bpvi_c_pvs_power_iff_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_power_iff_supportentriesvaluation_candidate_power_repeat. bpvi_b_pvs_power_iff_supportentriesvaluation_candidate_power = bpvi_q_pvs_power_iff_supportentriesvaluation_candidate_power_repeat * S ((S (bpvi_i_pvs_power_iff_supportentriesvaluation_candidate_power)) * bpvi_c_pvs_power_iff_supportentriesvaluation_candidate_power) + (pvs_prime_power_iff_supportentries)))) /\ (exists bpvi_u_pvs_power_iff_supportentriesvaluation_candidate_power bpvi_v_pvs_power_iff_supportentriesvaluation_candidate_power. ((((exists bpvi_h_pvs_power_iff_supportentriesvaluation_candidate_power_start. bpvi_h_pvs_power_iff_supportentriesvaluation_candidate_power_start + S (1) = S ((S (0)) * bpvi_v_pvs_power_iff_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_power_iff_supportentriesvaluation_candidate_power_start. bpvi_u_pvs_power_iff_supportentriesvaluation_candidate_power = bpvi_q_pvs_power_iff_supportentriesvaluation_candidate_power_start * S ((S (0)) * bpvi_v_pvs_power_iff_supportentriesvaluation_candidate_power) + (1))) /\ ((((exists bpvi_h_pvs_power_iff_supportentriesvaluation_candidate_power_terminal. bpvi_h_pvs_power_iff_supportentriesvaluation_candidate_power_terminal + S (bpvi_result_pvs_power_iff_supportentriesvaluation_candidate) = S ((S (bpd_candidate_pvs_power_iff_supportentriesvaluation)) * bpvi_v_pvs_power_iff_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_power_iff_supportentriesvaluation_candidate_power_terminal. bpvi_u_pvs_power_iff_supportentriesvaluation_candidate_power = bpvi_q_pvs_power_iff_supportentriesvaluation_candidate_power_terminal * S ((S (bpd_candidate_pvs_power_iff_supportentriesvaluation)) * bpvi_v_pvs_power_iff_supportentriesvaluation_candidate_power) + (bpvi_result_pvs_power_iff_supportentriesvaluation_candidate))) /\ forall bpvi_j_pvs_power_iff_supportentriesvaluation_candidate_power. (exists bpvi_product_gap_pvs_power_iff_supportentriesvaluation_candidate_power. bpvi_product_gap_pvs_power_iff_supportentriesvaluation_candidate_power + S bpvi_j_pvs_power_iff_supportentriesvaluation_candidate_power = bpd_candidate_pvs_power_iff_supportentriesvaluation) -> exists bpvi_factor_pvs_power_iff_supportentriesvaluation_candidate_power bpvi_partial_pvs_power_iff_supportentriesvaluation_candidate_power bpvi_successor_pvs_power_iff_supportentriesvaluation_candidate_power. ((((exists bpvi_h_pvs_power_iff_supportentriesvaluation_candidate_power_factor. bpvi_h_pvs_power_iff_supportentriesvaluation_candidate_power_factor + S (bpvi_factor_pvs_power_iff_supportentriesvaluation_candidate_power) = S ((S (bpvi_j_pvs_power_iff_supportentriesvaluation_candidate_power)) * bpvi_c_pvs_power_iff_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_power_iff_supportentriesvaluation_candidate_power_factor. bpvi_b_pvs_power_iff_supportentriesvaluation_candidate_power = bpvi_q_pvs_power_iff_supportentriesvaluation_candidate_power_factor * S ((S (bpvi_j_pvs_power_iff_supportentriesvaluation_candidate_power)) * bpvi_c_pvs_power_iff_supportentriesvaluation_candidate_power) + (bpvi_factor_pvs_power_iff_supportentriesvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_power_iff_supportentriesvaluation_candidate_power_partial. bpvi_h_pvs_power_iff_supportentriesvaluation_candidate_power_partial + S (bpvi_partial_pvs_power_iff_supportentriesvaluation_candidate_power) = S ((S (bpvi_j_pvs_power_iff_supportentriesvaluation_candidate_power)) * bpvi_v_pvs_power_iff_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_power_iff_supportentriesvaluation_candidate_power_partial. bpvi_u_pvs_power_iff_supportentriesvaluation_candidate_power = bpvi_q_pvs_power_iff_supportentriesvaluation_candidate_power_partial * S ((S (bpvi_j_pvs_power_iff_supportentriesvaluation_candidate_power)) * bpvi_v_pvs_power_iff_supportentriesvaluation_candidate_power) + (bpvi_partial_pvs_power_iff_supportentriesvaluation_candidate_power))) /\ ((((exists bpvi_h_pvs_power_iff_supportentriesvaluation_candidate_power_successor. bpvi_h_pvs_power_iff_supportentriesvaluation_candidate_power_successor + S (bpvi_successor_pvs_power_iff_supportentriesvaluation_candidate_power) = S ((S (S bpvi_j_pvs_power_iff_supportentriesvaluation_candidate_power)) * bpvi_v_pvs_power_iff_supportentriesvaluation_candidate_power)) /\ exists bpvi_q_pvs_power_iff_supportentriesvaluation_candidate_power_successor. bpvi_u_pvs_power_iff_supportentriesvaluation_candidate_power = bpvi_q_pvs_power_iff_supportentriesvaluation_candidate_power_successor * S ((S (S bpvi_j_pvs_power_iff_supportentriesvaluation_candidate_power)) * bpvi_v_pvs_power_iff_supportentriesvaluation_candidate_power) + (bpvi_successor_pvs_power_iff_supportentriesvaluation_candidate_power))) /\ bpvi_successor_pvs_power_iff_supportentriesvaluation_candidate_power = bpvi_partial_pvs_power_iff_supportentriesvaluation_candidate_power * bpvi_factor_pvs_power_iff_supportentriesvaluation_candidate_power)))))))) /\ exists bpvi_divisor_factor_pvs_power_iff_supportentriesvaluation_candidate. n = bpvi_result_pvs_power_iff_supportentriesvaluation_candidate * bpvi_divisor_factor_pvs_power_iff_supportentriesvaluation_candidate)) -> (exists bpd_gap_pvs_power_iff_supportentriesvaluation_maximal. bpd_gap_pvs_power_iff_supportentriesvaluation_maximal + (bpd_candidate_pvs_power_iff_supportentriesvaluation) = (pvs_exponent_power_iff_supportentries))) /\ (exists pa_b_pvs_power_iff_supportentriesvalue pa_c_pvs_power_iff_supportentriesvalue. ((forall pa_i_pvs_power_iff_supportentriesvalue_repeat. (exists pa_lt_pvs_power_iff_supportentriesvalue_repeat_bound. pa_lt_pvs_power_iff_supportentriesvalue_repeat_bound + S pa_i_pvs_power_iff_supportentriesvalue_repeat = pvs_exponent_power_iff_supportentries) -> (((exists pa_h_pvs_power_iff_supportentriesvalue_repeat_decoded. pa_h_pvs_power_iff_supportentriesvalue_repeat_decoded + S (pvs_prime_power_iff_supportentries) = S ((S (pa_i_pvs_power_iff_supportentriesvalue_repeat)) * pa_c_pvs_power_iff_supportentriesvalue)) /\ exists pa_q_pvs_power_iff_supportentriesvalue_repeat_decoded. pa_b_pvs_power_iff_supportentriesvalue = pa_q_pvs_power_iff_supportentriesvalue_repeat_decoded * S ((S (pa_i_pvs_power_iff_supportentriesvalue_repeat)) * pa_c_pvs_power_iff_supportentriesvalue) + (pvs_prime_power_iff_supportentries)))) /\ (exists pa_u_pvs_power_iff_supportentriesvalue_product pa_v_pvs_power_iff_supportentriesvalue_product. ((((exists pa_h_pvs_power_iff_supportentriesvalue_product_start. pa_h_pvs_power_iff_supportentriesvalue_product_start + S (1) = S ((S (0)) * pa_v_pvs_power_iff_supportentriesvalue_product)) /\ exists pa_q_pvs_power_iff_supportentriesvalue_product_start. pa_u_pvs_power_iff_supportentriesvalue_product = pa_q_pvs_power_iff_supportentriesvalue_product_start * S ((S (0)) * pa_v_pvs_power_iff_supportentriesvalue_product) + (1))) /\ ((((exists pa_h_pvs_power_iff_supportentriesvalue_product_terminal. pa_h_pvs_power_iff_supportentriesvalue_product_terminal + S (pvs_power_power_iff_supportentries) = S ((S (pvs_exponent_power_iff_supportentries)) * pa_v_pvs_power_iff_supportentriesvalue_product)) /\ exists pa_q_pvs_power_iff_supportentriesvalue_product_terminal. pa_u_pvs_power_iff_supportentriesvalue_product = pa_q_pvs_power_iff_supportentriesvalue_product_terminal * S ((S (pvs_exponent_power_iff_supportentries)) * pa_v_pvs_power_iff_supportentriesvalue_product) + (pvs_power_power_iff_supportentries))) /\ forall pa_i_pvs_power_iff_supportentriesvalue_product. (exists pa_lt_pvs_power_iff_supportentriesvalue_product_bound. pa_lt_pvs_power_iff_supportentriesvalue_product_bound + S pa_i_pvs_power_iff_supportentriesvalue_product = pvs_exponent_power_iff_supportentries) -> exists pa_p_pvs_power_iff_supportentriesvalue_product pa_r_pvs_power_iff_supportentriesvalue_product pa_s_pvs_power_iff_supportentriesvalue_product. ((((exists pa_h_pvs_power_iff_supportentriesvalue_product_factor. pa_h_pvs_power_iff_supportentriesvalue_product_factor + S (pa_p_pvs_power_iff_supportentriesvalue_product) = S ((S (pa_i_pvs_power_iff_supportentriesvalue_product)) * pa_c_pvs_power_iff_supportentriesvalue)) /\ exists pa_q_pvs_power_iff_supportentriesvalue_product_factor. pa_b_pvs_power_iff_supportentriesvalue = pa_q_pvs_power_iff_supportentriesvalue_product_factor * S ((S (pa_i_pvs_power_iff_supportentriesvalue_product)) * pa_c_pvs_power_iff_supportentriesvalue) + (pa_p_pvs_power_iff_supportentriesvalue_product))) /\ ((((exists pa_h_pvs_power_iff_supportentriesvalue_product_partial. pa_h_pvs_power_iff_supportentriesvalue_product_partial + S (pa_r_pvs_power_iff_supportentriesvalue_product) = S ((S (pa_i_pvs_power_iff_supportentriesvalue_product)) * pa_v_pvs_power_iff_supportentriesvalue_product)) /\ exists pa_q_pvs_power_iff_supportentriesvalue_product_partial. pa_u_pvs_power_iff_supportentriesvalue_product = pa_q_pvs_power_iff_supportentriesvalue_product_partial * S ((S (pa_i_pvs_power_iff_supportentriesvalue_product)) * pa_v_pvs_power_iff_supportentriesvalue_product) + (pa_r_pvs_power_iff_supportentriesvalue_product))) /\ ((((exists pa_h_pvs_power_iff_supportentriesvalue_product_successor. pa_h_pvs_power_iff_supportentriesvalue_product_successor + S (pa_s_pvs_power_iff_supportentriesvalue_product) = S ((S (S pa_i_pvs_power_iff_supportentriesvalue_product)) * pa_v_pvs_power_iff_supportentriesvalue_product)) /\ exists pa_q_pvs_power_iff_supportentriesvalue_product_successor. pa_u_pvs_power_iff_supportentriesvalue_product = pa_q_pvs_power_iff_supportentriesvalue_product_successor * S ((S (S pa_i_pvs_power_iff_supportentriesvalue_product)) * pa_v_pvs_power_iff_supportentriesvalue_product) + (pa_s_pvs_power_iff_supportentriesvalue_product))) /\ pa_s_pvs_power_iff_supportentriesvalue_product = pa_r_pvs_power_iff_supportentriesvalue_product * pa_p_pvs_power_iff_supportentriesvalue_product))))))))))))))))))))) /\ (((forall pvs_divisor_power_iff_supportcover. (~((pvs_divisor_power_iff_supportcover) = 1) /\ forall pvs_left_power_iff_supportcoverprime pvs_right_power_iff_supportcoverprime. (pvs_divisor_power_iff_supportcover) = pvs_left_power_iff_supportcoverprime * pvs_right_power_iff_supportcoverprime -> pvs_left_power_iff_supportcoverprime = 1 \/ pvs_right_power_iff_supportcoverprime = 1) -> (exists pvs_factor_power_iff_supportcoverdivides. (n) = (pvs_divisor_power_iff_supportcover) * pvs_factor_power_iff_supportcoverdivides) -> exists pvs_position_power_iff_supportcover. (exists pvs_gap_power_iff_supportcoverbound. pvs_gap_power_iff_supportcoverbound + S (pvs_position_power_iff_supportcover) = (l)) /\ (((exists ff_h_pvs_power_iff_supportcoverentry. ff_h_pvs_power_iff_supportcoverentry + S (pvs_divisor_power_iff_supportcover) = S ((S (pvs_position_power_iff_supportcover)) * pc)) /\ exists ff_q_pvs_power_iff_supportcoverentry. pb = ff_q_pvs_power_iff_supportcoverentry * S ((S (pvs_position_power_iff_supportcover)) * pc) + (pvs_divisor_power_iff_supportcover)))) /\ (exists ff_u_pvs_power_iff_supportproduct ff_v_pvs_power_iff_supportproduct. ((((exists ff_h_pvs_power_iff_supportproduct_start. ff_h_pvs_power_iff_supportproduct_start + S (1) = S ((S (0)) * ff_v_pvs_power_iff_supportproduct)) /\ exists ff_q_pvs_power_iff_supportproduct_start. ff_u_pvs_power_iff_supportproduct = ff_q_pvs_power_iff_supportproduct_start * S ((S (0)) * ff_v_pvs_power_iff_supportproduct) + (1))) /\ ((((exists ff_h_pvs_power_iff_supportproduct_terminal. ff_h_pvs_power_iff_supportproduct_terminal + S (n) = S ((S (l)) * ff_v_pvs_power_iff_supportproduct)) /\ exists ff_q_pvs_power_iff_supportproduct_terminal. ff_u_pvs_power_iff_supportproduct = ff_q_pvs_power_iff_supportproduct_terminal * S ((S (l)) * ff_v_pvs_power_iff_supportproduct) + (n))) /\ forall ff_i_pvs_power_iff_supportproduct. (exists ff_lt_pvs_power_iff_supportproduct_bound. ff_lt_pvs_power_iff_supportproduct_bound + S ff_i_pvs_power_iff_supportproduct = l) -> exists ff_p_pvs_power_iff_supportproduct ff_r_pvs_power_iff_supportproduct ff_s_pvs_power_iff_supportproduct. ((((exists ff_h_pvs_power_iff_supportproduct_factor. ff_h_pvs_power_iff_supportproduct_factor + S (ff_p_pvs_power_iff_supportproduct) = S ((S (ff_i_pvs_power_iff_supportproduct)) * vc)) /\ exists ff_q_pvs_power_iff_supportproduct_factor. vb = ff_q_pvs_power_iff_supportproduct_factor * S ((S (ff_i_pvs_power_iff_supportproduct)) * vc) + (ff_p_pvs_power_iff_supportproduct))) /\ ((((exists ff_h_pvs_power_iff_supportproduct_partial. ff_h_pvs_power_iff_supportproduct_partial + S (ff_r_pvs_power_iff_supportproduct) = S ((S (ff_i_pvs_power_iff_supportproduct)) * ff_v_pvs_power_iff_supportproduct)) /\ exists ff_q_pvs_power_iff_supportproduct_partial. ff_u_pvs_power_iff_supportproduct = ff_q_pvs_power_iff_supportproduct_partial * S ((S (ff_i_pvs_power_iff_supportproduct)) * ff_v_pvs_power_iff_supportproduct) + (ff_r_pvs_power_iff_supportproduct))) /\ ((((exists ff_h_pvs_power_iff_supportproduct_successor. ff_h_pvs_power_iff_supportproduct_successor + S (ff_s_pvs_power_iff_supportproduct) = S ((S (S ff_i_pvs_power_iff_supportproduct)) * ff_v_pvs_power_iff_supportproduct)) /\ exists ff_q_pvs_power_iff_supportproduct_successor. ff_u_pvs_power_iff_supportproduct = ff_q_pvs_power_iff_supportproduct_successor * S ((S (S ff_i_pvs_power_iff_supportproduct)) * ff_v_pvs_power_iff_supportproduct) + (ff_s_pvs_power_iff_supportproduct))) /\ ff_s_pvs_power_iff_supportproduct = ff_r_pvs_power_iff_supportproduct * ff_p_pvs_power_iff_supportproduct)))))))))))))) -> (((forall ppf_index_power_iff_gcdcommon ppf_entry_power_iff_gcdcommon. (exists pvs_gap_power_iff_gcdcommonbound. pvs_gap_power_iff_gcdcommonbound + S (ppf_index_power_iff_gcdcommon) = (l)) -> (((exists ff_h_pvs_power_iff_gcdcommonentry. ff_h_pvs_power_iff_gcdcommonentry + S (ppf_entry_power_iff_gcdcommon) = S ((S (ppf_index_power_iff_gcdcommon)) * ec)) /\ exists ff_q_pvs_power_iff_gcdcommonentry. eb = ff_q_pvs_power_iff_gcdcommonentry * S ((S (ppf_index_power_iff_gcdcommon)) * ec) + (ppf_entry_power_iff_gcdcommon))) -> (exists pvs_factor_power_iff_gcdcommondivisor. (ppf_entry_power_iff_gcdcommon) = (g) * pvs_factor_power_iff_gcdcommondivisor)) /\ (forall ppf_common_power_iff_gcd. (forall ppf_index_power_iff_gcdother ppf_entry_power_iff_gcdother. (exists pvs_gap_power_iff_gcdotherbound. pvs_gap_power_iff_gcdotherbound + S (ppf_index_power_iff_gcdother) = (l)) -> (((exists ff_h_pvs_power_iff_gcdotherentry. ff_h_pvs_power_iff_gcdotherentry + S (ppf_entry_power_iff_gcdother) = S ((S (ppf_index_power_iff_gcdother)) * ec)) /\ exists ff_q_pvs_power_iff_gcdotherentry. eb = ff_q_pvs_power_iff_gcdotherentry * S ((S (ppf_index_power_iff_gcdother)) * ec) + (ppf_entry_power_iff_gcdother))) -> (exists pvs_factor_power_iff_gcdotherdivisor. (ppf_entry_power_iff_gcdother) = (ppf_common_power_iff_gcd) * pvs_factor_power_iff_gcdotherdivisor)) -> (exists pvs_factor_power_iff_gcdgreatest. (g) = (ppf_common_power_iff_gcd) * pvs_factor_power_iff_gcdgreatest)))) -> ~(k = 0) -> ((exists r. (exists pa_b_pvs_power_iff_forward pa_c_pvs_power_iff_forward. ((forall pa_i_pvs_power_iff_forward_repeat. (exists pa_lt_pvs_power_iff_forward_repeat_bound. pa_lt_pvs_power_iff_forward_repeat_bound + S pa_i_pvs_power_iff_forward_repeat = k) -> (((exists pa_h_pvs_power_iff_forward_repeat_decoded. pa_h_pvs_power_iff_forward_repeat_decoded + S (r) = S ((S (pa_i_pvs_power_iff_forward_repeat)) * pa_c_pvs_power_iff_forward)) /\ exists pa_q_pvs_power_iff_forward_repeat_decoded. pa_b_pvs_power_iff_forward = pa_q_pvs_power_iff_forward_repeat_decoded * S ((S (pa_i_pvs_power_iff_forward_repeat)) * pa_c_pvs_power_iff_forward) + (r)))) /\ (exists pa_u_pvs_power_iff_forward_product pa_v_pvs_power_iff_forward_product. ((((exists pa_h_pvs_power_iff_forward_product_start. pa_h_pvs_power_iff_forward_product_start + S (1) = S ((S (0)) * pa_v_pvs_power_iff_forward_product)) /\ exists pa_q_pvs_power_iff_forward_product_start. pa_u_pvs_power_iff_forward_product = pa_q_pvs_power_iff_forward_product_start * S ((S (0)) * pa_v_pvs_power_iff_forward_product) + (1))) /\ ((((exists pa_h_pvs_power_iff_forward_product_terminal. pa_h_pvs_power_iff_forward_product_terminal + S (n) = S ((S (k)) * pa_v_pvs_power_iff_forward_product)) /\ exists pa_q_pvs_power_iff_forward_product_terminal. pa_u_pvs_power_iff_forward_product = pa_q_pvs_power_iff_forward_product_terminal * S ((S (k)) * pa_v_pvs_power_iff_forward_product) + (n))) /\ forall pa_i_pvs_power_iff_forward_product. (exists pa_lt_pvs_power_iff_forward_product_bound. pa_lt_pvs_power_iff_forward_product_bound + S pa_i_pvs_power_iff_forward_product = k) -> exists pa_p_pvs_power_iff_forward_product pa_r_pvs_power_iff_forward_product pa_s_pvs_power_iff_forward_product. ((((exists pa_h_pvs_power_iff_forward_product_factor. pa_h_pvs_power_iff_forward_product_factor + S (pa_p_pvs_power_iff_forward_product) = S ((S (pa_i_pvs_power_iff_forward_product)) * pa_c_pvs_power_iff_forward)) /\ exists pa_q_pvs_power_iff_forward_product_factor. pa_b_pvs_power_iff_forward = pa_q_pvs_power_iff_forward_product_factor * S ((S (pa_i_pvs_power_iff_forward_product)) * pa_c_pvs_power_iff_forward) + (pa_p_pvs_power_iff_forward_product))) /\ ((((exists pa_h_pvs_power_iff_forward_product_partial. pa_h_pvs_power_iff_forward_product_partial + S (pa_r_pvs_power_iff_forward_product) = S ((S (pa_i_pvs_power_iff_forward_product)) * pa_v_pvs_power_iff_forward_product)) /\ exists pa_q_pvs_power_iff_forward_product_partial. pa_u_pvs_power_iff_forward_product = pa_q_pvs_power_iff_forward_product_partial * S ((S (pa_i_pvs_power_iff_forward_product)) * pa_v_pvs_power_iff_forward_product) + (pa_r_pvs_power_iff_forward_product))) /\ ((((exists pa_h_pvs_power_iff_forward_product_successor. pa_h_pvs_power_iff_forward_product_successor + S (pa_s_pvs_power_iff_forward_product) = S ((S (S pa_i_pvs_power_iff_forward_product)) * pa_v_pvs_power_iff_forward_product)) /\ exists pa_q_pvs_power_iff_forward_product_successor. pa_u_pvs_power_iff_forward_product = pa_q_pvs_power_iff_forward_product_successor * S ((S (S pa_i_pvs_power_iff_forward_product)) * pa_v_pvs_power_iff_forward_product) + (pa_s_pvs_power_iff_forward_product))) /\ pa_s_pvs_power_iff_forward_product = pa_r_pvs_power_iff_forward_product * pa_p_pvs_power_iff_forward_product))))))))) -> (exists pvs_factor_power_iff_divisor_first. (g) = (k) * pvs_factor_power_iff_divisor_first)) /\ ((exists pvs_factor_power_iff_divisor_second. (g) = (k) * pvs_factor_power_iff_divisor_second) -> exists r. (exists pa_b_pvs_power_iff_reverse pa_c_pvs_power_iff_reverse. ((forall pa_i_pvs_power_iff_reverse_repeat. (exists pa_lt_pvs_power_iff_reverse_repeat_bound. pa_lt_pvs_power_iff_reverse_repeat_bound + S pa_i_pvs_power_iff_reverse_repeat = k) -> (((exists pa_h_pvs_power_iff_reverse_repeat_decoded. pa_h_pvs_power_iff_reverse_repeat_decoded + S (r) = S ((S (pa_i_pvs_power_iff_reverse_repeat)) * pa_c_pvs_power_iff_reverse)) /\ exists pa_q_pvs_power_iff_reverse_repeat_decoded. pa_b_pvs_power_iff_reverse = pa_q_pvs_power_iff_reverse_repeat_decoded * S ((S (pa_i_pvs_power_iff_reverse_repeat)) * pa_c_pvs_power_iff_reverse) + (r)))) /\ (exists pa_u_pvs_power_iff_reverse_product pa_v_pvs_power_iff_reverse_product. ((((exists pa_h_pvs_power_iff_reverse_product_start. pa_h_pvs_power_iff_reverse_product_start + S (1) = S ((S (0)) * pa_v_pvs_power_iff_reverse_product)) /\ exists pa_q_pvs_power_iff_reverse_product_start. pa_u_pvs_power_iff_reverse_product = pa_q_pvs_power_iff_reverse_product_start * S ((S (0)) * pa_v_pvs_power_iff_reverse_product) + (1))) /\ ((((exists pa_h_pvs_power_iff_reverse_product_terminal. pa_h_pvs_power_iff_reverse_product_terminal + S (n) = S ((S (k)) * pa_v_pvs_power_iff_reverse_product)) /\ exists pa_q_pvs_power_iff_reverse_product_terminal. pa_u_pvs_power_iff_reverse_product = pa_q_pvs_power_iff_reverse_product_terminal * S ((S (k)) * pa_v_pvs_power_iff_reverse_product) + (n))) /\ forall pa_i_pvs_power_iff_reverse_product. (exists pa_lt_pvs_power_iff_reverse_product_bound. pa_lt_pvs_power_iff_reverse_product_bound + S pa_i_pvs_power_iff_reverse_product = k) -> exists pa_p_pvs_power_iff_reverse_product pa_r_pvs_power_iff_reverse_product pa_s_pvs_power_iff_reverse_product. ((((exists pa_h_pvs_power_iff_reverse_product_factor. pa_h_pvs_power_iff_reverse_product_factor + S (pa_p_pvs_power_iff_reverse_product) = S ((S (pa_i_pvs_power_iff_reverse_product)) * pa_c_pvs_power_iff_reverse)) /\ exists pa_q_pvs_power_iff_reverse_product_factor. pa_b_pvs_power_iff_reverse = pa_q_pvs_power_iff_reverse_product_factor * S ((S (pa_i_pvs_power_iff_reverse_product)) * pa_c_pvs_power_iff_reverse) + (pa_p_pvs_power_iff_reverse_product))) /\ ((((exists pa_h_pvs_power_iff_reverse_product_partial. pa_h_pvs_power_iff_reverse_product_partial + S (pa_r_pvs_power_iff_reverse_product) = S ((S (pa_i_pvs_power_iff_reverse_product)) * pa_v_pvs_power_iff_reverse_product)) /\ exists pa_q_pvs_power_iff_reverse_product_partial. pa_u_pvs_power_iff_reverse_product = pa_q_pvs_power_iff_reverse_product_partial * S ((S (pa_i_pvs_power_iff_reverse_product)) * pa_v_pvs_power_iff_reverse_product) + (pa_r_pvs_power_iff_reverse_product))) /\ ((((exists pa_h_pvs_power_iff_reverse_product_successor. pa_h_pvs_power_iff_reverse_product_successor + S (pa_s_pvs_power_iff_reverse_product) = S ((S (S pa_i_pvs_power_iff_reverse_product)) * pa_v_pvs_power_iff_reverse_product)) /\ exists pa_q_pvs_power_iff_reverse_product_successor. pa_u_pvs_power_iff_reverse_product = pa_q_pvs_power_iff_reverse_product_successor * S ((S (S pa_i_pvs_power_iff_reverse_product)) * pa_v_pvs_power_iff_reverse_product) + (pa_s_pvs_power_iff_reverse_product))) /\ pa_s_pvs_power_iff_reverse_product = pa_r_pvs_power_iff_reverse_product * pa_p_pvs_power_iff_reverse_product)))))))))

Complete tactic proof in conservative notation

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

48 script commands · 10 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 (3)
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 g
  10. L10
    intro k
02Fix variables and assumptionsL11–13

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

  1. L11
    intro hsupport
  2. L12
    intro hgcd
  3. L13
    intro hk
03Establish hcriterionL14–23

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

  1. L14
    have hcriterion : (Dvd(k,g) → PrimeValuationsDivisible(n,k)) ∧ (PrimeValuationsDivisible(n,k) → Dvd(k,g))Definitions: Dvd(k,g)PrimeValuationsDivisible(n,k)Original native command in the exact edition
  2. L15
    specialize prime_support_exponent_gcd_divisor_criterion (n)
  3. L16
    specialize prime_support_exponent_gcd_divisor_criterion (pb)
  4. L17
    specialize prime_support_exponent_gcd_divisor_criterion (pc)
  5. L18
    specialize prime_support_exponent_gcd_divisor_criterion (eb)
  6. L19
    specialize prime_support_exponent_gcd_divisor_criterion (ec)
  7. L20
    specialize prime_support_exponent_gcd_divisor_criterion (vb)
  8. L21
    specialize prime_support_exponent_gcd_divisor_criterion (vc)
  9. L22
    specialize prime_support_exponent_gcd_divisor_criterion (l)
  10. L23
    specialize prime_support_exponent_gcd_divisor_criterion (g)
04Use earlier factsL24–27

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

  1. L24
    specialize prime_support_exponent_gcd_divisor_criterion (k)
  2. L25
    apply prime_support_exponent_gcd_divisor_criterion
  3. L26
    exact hsupport
  4. L27
    exact hgcd
05Separate the logical casesL28–30

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

  1. L28
    cases hcriterion
  2. L29
    cases hsupport
  3. L30
    split
06Fix variables and assumptionsL31–31

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

  1. L31
    intro hroot
07Separate the logical casesL32–32

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

  1. L32
    cases hroot
08Use earlier factsL33–40

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

  1. L33
    apply hcriterion_right
  2. L34
    specialize positive_power_prime_valuations_divisible (n)
  3. L35
    specialize positive_power_prime_valuations_divisible (k)
  4. L36
    specialize positive_power_prime_valuations_divisible (x)
  5. L37
    apply positive_power_prime_valuations_divisible
  6. L38
    exact hsupport_left
  7. L39
    exact hk
  8. L40
    exact hroot_witness
09Fix variables and assumptionsL41–41

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

  1. L41
    intro hdiv
10Use earlier factsL42–48

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

  1. L42
    specialize prime_valuation_divisible_power_root_exists (n)
  2. L43
    specialize prime_valuation_divisible_power_root_exists (k)
  3. L44
    apply prime_valuation_divisible_power_root_exists
  4. L45
    exact hsupport_left
  5. L46
    exact hk
  6. L47
    apply hcriterion_left
  7. L48
    exact hdiv

Library-wide reading audit

Original defined command ledger · 48 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 g
  10. 0010intro k
  11. 0011intro hsupport
  12. 0012intro hgcd
  13. 0013intro hk
  14. 0014have hcriterion : (Dvd(k,g)PrimeValuationsDivisible(n,k)) ∧ (PrimeValuationsDivisible(n,k)Dvd(k,g))
  15. 0015specialize prime_support_exponent_gcd_divisor_criterion (n)
  16. 0016specialize prime_support_exponent_gcd_divisor_criterion (pb)
  17. 0017specialize prime_support_exponent_gcd_divisor_criterion (pc)
  18. 0018specialize prime_support_exponent_gcd_divisor_criterion (eb)
  19. 0019specialize prime_support_exponent_gcd_divisor_criterion (ec)
  20. 0020specialize prime_support_exponent_gcd_divisor_criterion (vb)
  21. 0021specialize prime_support_exponent_gcd_divisor_criterion (vc)
  22. 0022specialize prime_support_exponent_gcd_divisor_criterion (l)
  23. 0023specialize prime_support_exponent_gcd_divisor_criterion (g)
  24. 0024specialize prime_support_exponent_gcd_divisor_criterion (k)
  25. 0025apply prime_support_exponent_gcd_divisor_criterion
  26. 0026exact hsupport
  27. 0027exact hgcd
  28. 0028cases hcriterion
  29. 0029cases hsupport
  30. 0030split
  31. 0031intro hroot
  32. 0032cases hroot
  33. 0033apply hcriterion_right
  34. 0034specialize positive_power_prime_valuations_divisible (n)
  35. 0035specialize positive_power_prime_valuations_divisible (k)
  36. 0036specialize positive_power_prime_valuations_divisible (x)
  37. 0037apply positive_power_prime_valuations_divisible
  38. 0038exact hsupport_left
  39. 0039exact hk
  40. 0040exact hroot_witness
  41. 0041intro hdiv
  42. 0042specialize prime_valuation_divisible_power_root_exists (n)
  43. 0043specialize prime_valuation_divisible_power_root_exists (k)
  44. 0044apply prime_valuation_divisible_power_root_exists
  45. 0045exact hsupport_left
  46. 0046exact hk
  47. 0047apply hcriterion_left
  48. 0048exact hdiv