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.
Statement with defined notation
∀ p. ∀ a. ∀ b. ∀ e. ∀ f. Prime(p) → ¬a = 0 → ¬b = 0 → PowerValuation(p,a,e) → PowerValuation(p,b,f) → ¬PowerDivides(p,S (e + f),a · b)Every purple notation token opens its conservative definition. Expanding the displayed statement recovers the exact first-order Peano-arithmetic formula checked by the unchanged kernel.
Definitions used by this theorem
In the theorem statement
4 occurrences
In local proof propositions
6 occurrences
Exact expanded native-PA statement
forall p a b e f. ((~(p = 1) /\ forall frm_prime_left_bpd_prime frm_prime_right_bpd_prime. p = frm_prime_left_bpd_prime * frm_prime_right_bpd_prime -> frm_prime_left_bpd_prime = 1 \/ frm_prime_right_bpd_prime = 1)) -> ~(a = 0) -> ~(b = 0) -> (((exists bpv_gap_bpd_valuation_a_exponent_bound. bpv_gap_bpd_valuation_a_exponent_bound + e = a) /\ (exists bpv_result_bpd_valuation_a_selected. ((exists ff_b_bpd_valuation_a_selected_power ff_c_bpd_valuation_a_selected_power. ((forall ff_i_bpd_valuation_a_selected_power_repeat. (exists ff_lt_bpd_valuation_a_selected_power_repeat_bound. ff_lt_bpd_valuation_a_selected_power_repeat_bound + S ff_i_bpd_valuation_a_selected_power_repeat = e) -> (((exists ff_h_bpd_valuation_a_selected_power_repeat_decoded. ff_h_bpd_valuation_a_selected_power_repeat_decoded + S (p) = S ((S (ff_i_bpd_valuation_a_selected_power_repeat)) * ff_c_bpd_valuation_a_selected_power)) /\ exists ff_q_bpd_valuation_a_selected_power_repeat_decoded. ff_b_bpd_valuation_a_selected_power = ff_q_bpd_valuation_a_selected_power_repeat_decoded * S ((S (ff_i_bpd_valuation_a_selected_power_repeat)) * ff_c_bpd_valuation_a_selected_power) + (p)))) /\ (exists ff_u_bpd_valuation_a_selected_power_product ff_v_bpd_valuation_a_selected_power_product. ((((exists ff_h_bpd_valuation_a_selected_power_product_start. ff_h_bpd_valuation_a_selected_power_product_start + S (1) = S ((S (0)) * ff_v_bpd_valuation_a_selected_power_product)) /\ exists ff_q_bpd_valuation_a_selected_power_product_start. ff_u_bpd_valuation_a_selected_power_product = ff_q_bpd_valuation_a_selected_power_product_start * S ((S (0)) * ff_v_bpd_valuation_a_selected_power_product) + (1))) /\ ((((exists ff_h_bpd_valuation_a_selected_power_product_terminal. ff_h_bpd_valuation_a_selected_power_product_terminal + S (bpv_result_bpd_valuation_a_selected) = S ((S (e)) * ff_v_bpd_valuation_a_selected_power_product)) /\ exists ff_q_bpd_valuation_a_selected_power_product_terminal. ff_u_bpd_valuation_a_selected_power_product = ff_q_bpd_valuation_a_selected_power_product_terminal * S ((S (e)) * ff_v_bpd_valuation_a_selected_power_product) + (bpv_result_bpd_valuation_a_selected))) /\ forall ff_i_bpd_valuation_a_selected_power_product. (exists ff_lt_bpd_valuation_a_selected_power_product_bound. ff_lt_bpd_valuation_a_selected_power_product_bound + S ff_i_bpd_valuation_a_selected_power_product = e) -> exists ff_p_bpd_valuation_a_selected_power_product ff_r_bpd_valuation_a_selected_power_product ff_s_bpd_valuation_a_selected_power_product. ((((exists ff_h_bpd_valuation_a_selected_power_product_factor. ff_h_bpd_valuation_a_selected_power_product_factor + S (ff_p_bpd_valuation_a_selected_power_product) = S ((S (ff_i_bpd_valuation_a_selected_power_product)) * ff_c_bpd_valuation_a_selected_power)) /\ exists ff_q_bpd_valuation_a_selected_power_product_factor. ff_b_bpd_valuation_a_selected_power = ff_q_bpd_valuation_a_selected_power_product_factor * S ((S (ff_i_bpd_valuation_a_selected_power_product)) * ff_c_bpd_valuation_a_selected_power) + (ff_p_bpd_valuation_a_selected_power_product))) /\ ((((exists ff_h_bpd_valuation_a_selected_power_product_partial. ff_h_bpd_valuation_a_selected_power_product_partial + S (ff_r_bpd_valuation_a_selected_power_product) = S ((S (ff_i_bpd_valuation_a_selected_power_product)) * ff_v_bpd_valuation_a_selected_power_product)) /\ exists ff_q_bpd_valuation_a_selected_power_product_partial. ff_u_bpd_valuation_a_selected_power_product = ff_q_bpd_valuation_a_selected_power_product_partial * S ((S (ff_i_bpd_valuation_a_selected_power_product)) * ff_v_bpd_valuation_a_selected_power_product) + (ff_r_bpd_valuation_a_selected_power_product))) /\ ((((exists ff_h_bpd_valuation_a_selected_power_product_successor. ff_h_bpd_valuation_a_selected_power_product_successor + S (ff_s_bpd_valuation_a_selected_power_product) = S ((S (S ff_i_bpd_valuation_a_selected_power_product)) * ff_v_bpd_valuation_a_selected_power_product)) /\ exists ff_q_bpd_valuation_a_selected_power_product_successor. ff_u_bpd_valuation_a_selected_power_product = ff_q_bpd_valuation_a_selected_power_product_successor * S ((S (S ff_i_bpd_valuation_a_selected_power_product)) * ff_v_bpd_valuation_a_selected_power_product) + (ff_s_bpd_valuation_a_selected_power_product))) /\ ff_s_bpd_valuation_a_selected_power_product = ff_r_bpd_valuation_a_selected_power_product * ff_p_bpd_valuation_a_selected_power_product)))))))) /\ (exists bpv_factor_bpd_valuation_a_selected_divides. a = bpv_result_bpd_valuation_a_selected * bpv_factor_bpd_valuation_a_selected_divides)))) /\ forall bpv_candidate_bpd_valuation_a. (exists bpv_gap_bpd_valuation_a_candidate_bound. bpv_gap_bpd_valuation_a_candidate_bound + bpv_candidate_bpd_valuation_a = a) -> (exists bpv_result_bpd_valuation_a_candidate. ((exists ff_b_bpd_valuation_a_candidate_power ff_c_bpd_valuation_a_candidate_power. ((forall ff_i_bpd_valuation_a_candidate_power_repeat. (exists ff_lt_bpd_valuation_a_candidate_power_repeat_bound. ff_lt_bpd_valuation_a_candidate_power_repeat_bound + S ff_i_bpd_valuation_a_candidate_power_repeat = bpv_candidate_bpd_valuation_a) -> (((exists ff_h_bpd_valuation_a_candidate_power_repeat_decoded. ff_h_bpd_valuation_a_candidate_power_repeat_decoded + S (p) = S ((S (ff_i_bpd_valuation_a_candidate_power_repeat)) * ff_c_bpd_valuation_a_candidate_power)) /\ exists ff_q_bpd_valuation_a_candidate_power_repeat_decoded. ff_b_bpd_valuation_a_candidate_power = ff_q_bpd_valuation_a_candidate_power_repeat_decoded * S ((S (ff_i_bpd_valuation_a_candidate_power_repeat)) * ff_c_bpd_valuation_a_candidate_power) + (p)))) /\ (exists ff_u_bpd_valuation_a_candidate_power_product ff_v_bpd_valuation_a_candidate_power_product. ((((exists ff_h_bpd_valuation_a_candidate_power_product_start. ff_h_bpd_valuation_a_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_bpd_valuation_a_candidate_power_product)) /\ exists ff_q_bpd_valuation_a_candidate_power_product_start. ff_u_bpd_valuation_a_candidate_power_product = ff_q_bpd_valuation_a_candidate_power_product_start * S ((S (0)) * ff_v_bpd_valuation_a_candidate_power_product) + (1))) /\ ((((exists ff_h_bpd_valuation_a_candidate_power_product_terminal. ff_h_bpd_valuation_a_candidate_power_product_terminal + S (bpv_result_bpd_valuation_a_candidate) = S ((S (bpv_candidate_bpd_valuation_a)) * ff_v_bpd_valuation_a_candidate_power_product)) /\ exists ff_q_bpd_valuation_a_candidate_power_product_terminal. ff_u_bpd_valuation_a_candidate_power_product = ff_q_bpd_valuation_a_candidate_power_product_terminal * S ((S (bpv_candidate_bpd_valuation_a)) * ff_v_bpd_valuation_a_candidate_power_product) + (bpv_result_bpd_valuation_a_candidate))) /\ forall ff_i_bpd_valuation_a_candidate_power_product. (exists ff_lt_bpd_valuation_a_candidate_power_product_bound. ff_lt_bpd_valuation_a_candidate_power_product_bound + S ff_i_bpd_valuation_a_candidate_power_product = bpv_candidate_bpd_valuation_a) -> exists ff_p_bpd_valuation_a_candidate_power_product ff_r_bpd_valuation_a_candidate_power_product ff_s_bpd_valuation_a_candidate_power_product. ((((exists ff_h_bpd_valuation_a_candidate_power_product_factor. ff_h_bpd_valuation_a_candidate_power_product_factor + S (ff_p_bpd_valuation_a_candidate_power_product) = S ((S (ff_i_bpd_valuation_a_candidate_power_product)) * ff_c_bpd_valuation_a_candidate_power)) /\ exists ff_q_bpd_valuation_a_candidate_power_product_factor. ff_b_bpd_valuation_a_candidate_power = ff_q_bpd_valuation_a_candidate_power_product_factor * S ((S (ff_i_bpd_valuation_a_candidate_power_product)) * ff_c_bpd_valuation_a_candidate_power) + (ff_p_bpd_valuation_a_candidate_power_product))) /\ ((((exists ff_h_bpd_valuation_a_candidate_power_product_partial. ff_h_bpd_valuation_a_candidate_power_product_partial + S (ff_r_bpd_valuation_a_candidate_power_product) = S ((S (ff_i_bpd_valuation_a_candidate_power_product)) * ff_v_bpd_valuation_a_candidate_power_product)) /\ exists ff_q_bpd_valuation_a_candidate_power_product_partial. ff_u_bpd_valuation_a_candidate_power_product = ff_q_bpd_valuation_a_candidate_power_product_partial * S ((S (ff_i_bpd_valuation_a_candidate_power_product)) * ff_v_bpd_valuation_a_candidate_power_product) + (ff_r_bpd_valuation_a_candidate_power_product))) /\ ((((exists ff_h_bpd_valuation_a_candidate_power_product_successor. ff_h_bpd_valuation_a_candidate_power_product_successor + S (ff_s_bpd_valuation_a_candidate_power_product) = S ((S (S ff_i_bpd_valuation_a_candidate_power_product)) * ff_v_bpd_valuation_a_candidate_power_product)) /\ exists ff_q_bpd_valuation_a_candidate_power_product_successor. ff_u_bpd_valuation_a_candidate_power_product = ff_q_bpd_valuation_a_candidate_power_product_successor * S ((S (S ff_i_bpd_valuation_a_candidate_power_product)) * ff_v_bpd_valuation_a_candidate_power_product) + (ff_s_bpd_valuation_a_candidate_power_product))) /\ ff_s_bpd_valuation_a_candidate_power_product = ff_r_bpd_valuation_a_candidate_power_product * ff_p_bpd_valuation_a_candidate_power_product)))))))) /\ (exists bpv_factor_bpd_valuation_a_candidate_divides. a = bpv_result_bpd_valuation_a_candidate * bpv_factor_bpd_valuation_a_candidate_divides))) -> (exists bpv_gap_bpd_valuation_a_maximal. bpv_gap_bpd_valuation_a_maximal + bpv_candidate_bpd_valuation_a = e)) -> (((exists bpv_gap_bpd_valuation_b_exponent_bound. bpv_gap_bpd_valuation_b_exponent_bound + f = b) /\ (exists bpv_result_bpd_valuation_b_selected. ((exists ff_b_bpd_valuation_b_selected_power ff_c_bpd_valuation_b_selected_power. ((forall ff_i_bpd_valuation_b_selected_power_repeat. (exists ff_lt_bpd_valuation_b_selected_power_repeat_bound. ff_lt_bpd_valuation_b_selected_power_repeat_bound + S ff_i_bpd_valuation_b_selected_power_repeat = f) -> (((exists ff_h_bpd_valuation_b_selected_power_repeat_decoded. ff_h_bpd_valuation_b_selected_power_repeat_decoded + S (p) = S ((S (ff_i_bpd_valuation_b_selected_power_repeat)) * ff_c_bpd_valuation_b_selected_power)) /\ exists ff_q_bpd_valuation_b_selected_power_repeat_decoded. ff_b_bpd_valuation_b_selected_power = ff_q_bpd_valuation_b_selected_power_repeat_decoded * S ((S (ff_i_bpd_valuation_b_selected_power_repeat)) * ff_c_bpd_valuation_b_selected_power) + (p)))) /\ (exists ff_u_bpd_valuation_b_selected_power_product ff_v_bpd_valuation_b_selected_power_product. ((((exists ff_h_bpd_valuation_b_selected_power_product_start. ff_h_bpd_valuation_b_selected_power_product_start + S (1) = S ((S (0)) * ff_v_bpd_valuation_b_selected_power_product)) /\ exists ff_q_bpd_valuation_b_selected_power_product_start. ff_u_bpd_valuation_b_selected_power_product = ff_q_bpd_valuation_b_selected_power_product_start * S ((S (0)) * ff_v_bpd_valuation_b_selected_power_product) + (1))) /\ ((((exists ff_h_bpd_valuation_b_selected_power_product_terminal. ff_h_bpd_valuation_b_selected_power_product_terminal + S (bpv_result_bpd_valuation_b_selected) = S ((S (f)) * ff_v_bpd_valuation_b_selected_power_product)) /\ exists ff_q_bpd_valuation_b_selected_power_product_terminal. ff_u_bpd_valuation_b_selected_power_product = ff_q_bpd_valuation_b_selected_power_product_terminal * S ((S (f)) * ff_v_bpd_valuation_b_selected_power_product) + (bpv_result_bpd_valuation_b_selected))) /\ forall ff_i_bpd_valuation_b_selected_power_product. (exists ff_lt_bpd_valuation_b_selected_power_product_bound. ff_lt_bpd_valuation_b_selected_power_product_bound + S ff_i_bpd_valuation_b_selected_power_product = f) -> exists ff_p_bpd_valuation_b_selected_power_product ff_r_bpd_valuation_b_selected_power_product ff_s_bpd_valuation_b_selected_power_product. ((((exists ff_h_bpd_valuation_b_selected_power_product_factor. ff_h_bpd_valuation_b_selected_power_product_factor + S (ff_p_bpd_valuation_b_selected_power_product) = S ((S (ff_i_bpd_valuation_b_selected_power_product)) * ff_c_bpd_valuation_b_selected_power)) /\ exists ff_q_bpd_valuation_b_selected_power_product_factor. ff_b_bpd_valuation_b_selected_power = ff_q_bpd_valuation_b_selected_power_product_factor * S ((S (ff_i_bpd_valuation_b_selected_power_product)) * ff_c_bpd_valuation_b_selected_power) + (ff_p_bpd_valuation_b_selected_power_product))) /\ ((((exists ff_h_bpd_valuation_b_selected_power_product_partial. ff_h_bpd_valuation_b_selected_power_product_partial + S (ff_r_bpd_valuation_b_selected_power_product) = S ((S (ff_i_bpd_valuation_b_selected_power_product)) * ff_v_bpd_valuation_b_selected_power_product)) /\ exists ff_q_bpd_valuation_b_selected_power_product_partial. ff_u_bpd_valuation_b_selected_power_product = ff_q_bpd_valuation_b_selected_power_product_partial * S ((S (ff_i_bpd_valuation_b_selected_power_product)) * ff_v_bpd_valuation_b_selected_power_product) + (ff_r_bpd_valuation_b_selected_power_product))) /\ ((((exists ff_h_bpd_valuation_b_selected_power_product_successor. ff_h_bpd_valuation_b_selected_power_product_successor + S (ff_s_bpd_valuation_b_selected_power_product) = S ((S (S ff_i_bpd_valuation_b_selected_power_product)) * ff_v_bpd_valuation_b_selected_power_product)) /\ exists ff_q_bpd_valuation_b_selected_power_product_successor. ff_u_bpd_valuation_b_selected_power_product = ff_q_bpd_valuation_b_selected_power_product_successor * S ((S (S ff_i_bpd_valuation_b_selected_power_product)) * ff_v_bpd_valuation_b_selected_power_product) + (ff_s_bpd_valuation_b_selected_power_product))) /\ ff_s_bpd_valuation_b_selected_power_product = ff_r_bpd_valuation_b_selected_power_product * ff_p_bpd_valuation_b_selected_power_product)))))))) /\ (exists bpv_factor_bpd_valuation_b_selected_divides. b = bpv_result_bpd_valuation_b_selected * bpv_factor_bpd_valuation_b_selected_divides)))) /\ forall bpv_candidate_bpd_valuation_b. (exists bpv_gap_bpd_valuation_b_candidate_bound. bpv_gap_bpd_valuation_b_candidate_bound + bpv_candidate_bpd_valuation_b = b) -> (exists bpv_result_bpd_valuation_b_candidate. ((exists ff_b_bpd_valuation_b_candidate_power ff_c_bpd_valuation_b_candidate_power. ((forall ff_i_bpd_valuation_b_candidate_power_repeat. (exists ff_lt_bpd_valuation_b_candidate_power_repeat_bound. ff_lt_bpd_valuation_b_candidate_power_repeat_bound + S ff_i_bpd_valuation_b_candidate_power_repeat = bpv_candidate_bpd_valuation_b) -> (((exists ff_h_bpd_valuation_b_candidate_power_repeat_decoded. ff_h_bpd_valuation_b_candidate_power_repeat_decoded + S (p) = S ((S (ff_i_bpd_valuation_b_candidate_power_repeat)) * ff_c_bpd_valuation_b_candidate_power)) /\ exists ff_q_bpd_valuation_b_candidate_power_repeat_decoded. ff_b_bpd_valuation_b_candidate_power = ff_q_bpd_valuation_b_candidate_power_repeat_decoded * S ((S (ff_i_bpd_valuation_b_candidate_power_repeat)) * ff_c_bpd_valuation_b_candidate_power) + (p)))) /\ (exists ff_u_bpd_valuation_b_candidate_power_product ff_v_bpd_valuation_b_candidate_power_product. ((((exists ff_h_bpd_valuation_b_candidate_power_product_start. ff_h_bpd_valuation_b_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_bpd_valuation_b_candidate_power_product)) /\ exists ff_q_bpd_valuation_b_candidate_power_product_start. ff_u_bpd_valuation_b_candidate_power_product = ff_q_bpd_valuation_b_candidate_power_product_start * S ((S (0)) * ff_v_bpd_valuation_b_candidate_power_product) + (1))) /\ ((((exists ff_h_bpd_valuation_b_candidate_power_product_terminal. ff_h_bpd_valuation_b_candidate_power_product_terminal + S (bpv_result_bpd_valuation_b_candidate) = S ((S (bpv_candidate_bpd_valuation_b)) * ff_v_bpd_valuation_b_candidate_power_product)) /\ exists ff_q_bpd_valuation_b_candidate_power_product_terminal. ff_u_bpd_valuation_b_candidate_power_product = ff_q_bpd_valuation_b_candidate_power_product_terminal * S ((S (bpv_candidate_bpd_valuation_b)) * ff_v_bpd_valuation_b_candidate_power_product) + (bpv_result_bpd_valuation_b_candidate))) /\ forall ff_i_bpd_valuation_b_candidate_power_product. (exists ff_lt_bpd_valuation_b_candidate_power_product_bound. ff_lt_bpd_valuation_b_candidate_power_product_bound + S ff_i_bpd_valuation_b_candidate_power_product = bpv_candidate_bpd_valuation_b) -> exists ff_p_bpd_valuation_b_candidate_power_product ff_r_bpd_valuation_b_candidate_power_product ff_s_bpd_valuation_b_candidate_power_product. ((((exists ff_h_bpd_valuation_b_candidate_power_product_factor. ff_h_bpd_valuation_b_candidate_power_product_factor + S (ff_p_bpd_valuation_b_candidate_power_product) = S ((S (ff_i_bpd_valuation_b_candidate_power_product)) * ff_c_bpd_valuation_b_candidate_power)) /\ exists ff_q_bpd_valuation_b_candidate_power_product_factor. ff_b_bpd_valuation_b_candidate_power = ff_q_bpd_valuation_b_candidate_power_product_factor * S ((S (ff_i_bpd_valuation_b_candidate_power_product)) * ff_c_bpd_valuation_b_candidate_power) + (ff_p_bpd_valuation_b_candidate_power_product))) /\ ((((exists ff_h_bpd_valuation_b_candidate_power_product_partial. ff_h_bpd_valuation_b_candidate_power_product_partial + S (ff_r_bpd_valuation_b_candidate_power_product) = S ((S (ff_i_bpd_valuation_b_candidate_power_product)) * ff_v_bpd_valuation_b_candidate_power_product)) /\ exists ff_q_bpd_valuation_b_candidate_power_product_partial. ff_u_bpd_valuation_b_candidate_power_product = ff_q_bpd_valuation_b_candidate_power_product_partial * S ((S (ff_i_bpd_valuation_b_candidate_power_product)) * ff_v_bpd_valuation_b_candidate_power_product) + (ff_r_bpd_valuation_b_candidate_power_product))) /\ ((((exists ff_h_bpd_valuation_b_candidate_power_product_successor. ff_h_bpd_valuation_b_candidate_power_product_successor + S (ff_s_bpd_valuation_b_candidate_power_product) = S ((S (S ff_i_bpd_valuation_b_candidate_power_product)) * ff_v_bpd_valuation_b_candidate_power_product)) /\ exists ff_q_bpd_valuation_b_candidate_power_product_successor. ff_u_bpd_valuation_b_candidate_power_product = ff_q_bpd_valuation_b_candidate_power_product_successor * S ((S (S ff_i_bpd_valuation_b_candidate_power_product)) * ff_v_bpd_valuation_b_candidate_power_product) + (ff_s_bpd_valuation_b_candidate_power_product))) /\ ff_s_bpd_valuation_b_candidate_power_product = ff_r_bpd_valuation_b_candidate_power_product * ff_p_bpd_valuation_b_candidate_power_product)))))))) /\ (exists bpv_factor_bpd_valuation_b_candidate_divides. b = bpv_result_bpd_valuation_b_candidate * bpv_factor_bpd_valuation_b_candidate_divides))) -> (exists bpv_gap_bpd_valuation_b_maximal. bpv_gap_bpd_valuation_b_maximal + bpv_candidate_bpd_valuation_b = f)) -> ~(exists bpvi_result_valuation_mul_successor. ((exists bpvi_b_valuation_mul_successor_power bpvi_c_valuation_mul_successor_power. ((forall bpvi_i_valuation_mul_successor_power. (exists bpvi_repeat_gap_valuation_mul_successor_power. bpvi_repeat_gap_valuation_mul_successor_power + S bpvi_i_valuation_mul_successor_power = S (e + f)) -> (((exists bpvi_h_valuation_mul_successor_power_repeat. bpvi_h_valuation_mul_successor_power_repeat + S (p) = S ((S (bpvi_i_valuation_mul_successor_power)) * bpvi_c_valuation_mul_successor_power)) /\ exists bpvi_q_valuation_mul_successor_power_repeat. bpvi_b_valuation_mul_successor_power = bpvi_q_valuation_mul_successor_power_repeat * S ((S (bpvi_i_valuation_mul_successor_power)) * bpvi_c_valuation_mul_successor_power) + (p)))) /\ (exists bpvi_u_valuation_mul_successor_power bpvi_v_valuation_mul_successor_power. ((((exists bpvi_h_valuation_mul_successor_power_start. bpvi_h_valuation_mul_successor_power_start + S (1) = S ((S (0)) * bpvi_v_valuation_mul_successor_power)) /\ exists bpvi_q_valuation_mul_successor_power_start. bpvi_u_valuation_mul_successor_power = bpvi_q_valuation_mul_successor_power_start * S ((S (0)) * bpvi_v_valuation_mul_successor_power) + (1))) /\ ((((exists bpvi_h_valuation_mul_successor_power_terminal. bpvi_h_valuation_mul_successor_power_terminal + S (bpvi_result_valuation_mul_successor) = S ((S (S (e + f))) * bpvi_v_valuation_mul_successor_power)) /\ exists bpvi_q_valuation_mul_successor_power_terminal. bpvi_u_valuation_mul_successor_power = bpvi_q_valuation_mul_successor_power_terminal * S ((S (S (e + f))) * bpvi_v_valuation_mul_successor_power) + (bpvi_result_valuation_mul_successor))) /\ forall bpvi_j_valuation_mul_successor_power. (exists bpvi_product_gap_valuation_mul_successor_power. bpvi_product_gap_valuation_mul_successor_power + S bpvi_j_valuation_mul_successor_power = S (e + f)) -> exists bpvi_factor_valuation_mul_successor_power bpvi_partial_valuation_mul_successor_power bpvi_successor_valuation_mul_successor_power. ((((exists bpvi_h_valuation_mul_successor_power_factor. bpvi_h_valuation_mul_successor_power_factor + S (bpvi_factor_valuation_mul_successor_power) = S ((S (bpvi_j_valuation_mul_successor_power)) * bpvi_c_valuation_mul_successor_power)) /\ exists bpvi_q_valuation_mul_successor_power_factor. bpvi_b_valuation_mul_successor_power = bpvi_q_valuation_mul_successor_power_factor * S ((S (bpvi_j_valuation_mul_successor_power)) * bpvi_c_valuation_mul_successor_power) + (bpvi_factor_valuation_mul_successor_power))) /\ ((((exists bpvi_h_valuation_mul_successor_power_partial. bpvi_h_valuation_mul_successor_power_partial + S (bpvi_partial_valuation_mul_successor_power) = S ((S (bpvi_j_valuation_mul_successor_power)) * bpvi_v_valuation_mul_successor_power)) /\ exists bpvi_q_valuation_mul_successor_power_partial. bpvi_u_valuation_mul_successor_power = bpvi_q_valuation_mul_successor_power_partial * S ((S (bpvi_j_valuation_mul_successor_power)) * bpvi_v_valuation_mul_successor_power) + (bpvi_partial_valuation_mul_successor_power))) /\ ((((exists bpvi_h_valuation_mul_successor_power_successor. bpvi_h_valuation_mul_successor_power_successor + S (bpvi_successor_valuation_mul_successor_power) = S ((S (S bpvi_j_valuation_mul_successor_power)) * bpvi_v_valuation_mul_successor_power)) /\ exists bpvi_q_valuation_mul_successor_power_successor. bpvi_u_valuation_mul_successor_power = bpvi_q_valuation_mul_successor_power_successor * S ((S (S bpvi_j_valuation_mul_successor_power)) * bpvi_v_valuation_mul_successor_power) + (bpvi_successor_valuation_mul_successor_power))) /\ bpvi_successor_valuation_mul_successor_power = bpvi_partial_valuation_mul_successor_power * bpvi_factor_valuation_mul_successor_power)))))))) /\ exists bpvi_divisor_factor_valuation_mul_successor. a * b = bpvi_result_valuation_mul_successor * bpvi_divisor_factor_valuation_mul_successor))Proof neighborhood
Direct theorem prerequisites
BT00QP power_valuation_exact_cofactor BT0080 pow_exists BT009X pow_add BT00QJ mul_shuffle_four BT00QO prime_nondivisor_mul BT00QN prime_power_successor_cancel_cofactorDirect theorem dependents
Definition-aware tactic body
Only local propositions introduced by have or suffices are compacted. Every changed line has an exact-AST conservative-expansion receipt; the kernel still receives the immutable original tactic script.
Read the argument
Proof checkpoints
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.
Named ingredients (6)
01Fix variables and assumptionsL1–10
02Establish hleftL11–18
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply power valuation exact cofactor.
- L11
have hleft : ∃ bpd_result_bpd_mul_left_exact. ∃ bpd_cofactor_bpd_mul_left_exact. Pow(p,e,bpd_result_bpd_mul_left_exact) ∧ (a = bpd_result_bpd_mul_left_exact · bpd_cofactor_bpd_mul_left_exact ∧ (¬bpd_cofactor_bpd_mul_left_exact = 0 ∧ ¬Dvd(p,bpd_cofactor_bpd_mul_left_exact)))Definitions: Pow(p,e,bpd_result_bpd_mul_left_exact)Dvd(p,bpd_cofactor_bpd_mul_left_exact)Original native command in the exact edition - L12
specialize power_valuation_exact_cofactor p - L13
specialize power_valuation_exact_cofactor a - L14
specialize power_valuation_exact_cofactor e - L15
apply power_valuation_exact_cofactor - L16
exact hp - L17
exact ha - L18
exact hvaluation_a
03Separate the logical casesL19–23
04Establish hrightL24–31
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply power valuation exact cofactor.
- L24
have hright : ∃ bpd_result_bpd_mul_right_exact. ∃ bpd_cofactor_bpd_mul_right_exact. Pow(p,f,bpd_result_bpd_mul_right_exact) ∧ (b = bpd_result_bpd_mul_right_exact · bpd_cofactor_bpd_mul_right_exact ∧ (¬bpd_cofactor_bpd_mul_right_exact = 0 ∧ ¬Dvd(p,bpd_cofactor_bpd_mul_right_exact)))Definitions: Pow(p,f,bpd_result_bpd_mul_right_exact)Dvd(p,bpd_cofactor_bpd_mul_right_exact)Original native command in the exact edition - L25
specialize power_valuation_exact_cofactor p - L26
specialize power_valuation_exact_cofactor b - L27
specialize power_valuation_exact_cofactor f - L28
apply power_valuation_exact_cofactor - L29
exact hp - L30
exact hb - L31
exact hvaluation_b
05Separate the logical casesL32–36
06Establish hsum_powerL37–40
Establish this local claim before using it. It is not an additional assumption.
- L37
have hsum_power : ∃ t. Pow(p,e + f,t)Definitions: Pow(p,e + f,t)Original native command in the exact edition - L38
specialize pow_exists p - L39
specialize pow_exists (e + f) - L40
exact pow_exists
07Separate the logical casesL41–41
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L41
cases hsum_power
08Establish hpower_productL42–51
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply pow add.
09Use earlier factsL52–54
10Establish hproduct_eqL55–64
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply mul shuffle four.
11Calculate and transport equalitiesL65–65
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L65
refl
12Establish hcofactor_nondivL66–75
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply prime nondivisor mul.
- L66
have hcofactor_nondiv : ¬Dvd(p,x1 · x3)Definitions: Dvd(p,x1 · x3)Original native command in the exact edition - L67
intro hcofactor_div - L68
specialize prime_nondivisor_mul p - L69
specialize prime_nondivisor_mul x1 - L70
specialize prime_nondivisor_mul x3 - L71
apply prime_nondivisor_mul - L72
exact hp - L73
exact hleft_witness_witness_right_right_right - L74
exact hright_witness_witness_right_right_right - L75
exact hcofactor_div
13Fix variables and assumptionsL76–76
Work with arbitrary variables or the premises of the current implication.
- L76
intro hsuccessor
14Use earlier factsL77–86
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L77
apply hcofactor_nondiv - L78
specialize prime_power_successor_cancel_cofactor p - L79
specialize prime_power_successor_cancel_cofactor (e + f) - L80
specialize prime_power_successor_cancel_cofactor (a * b) - L81
specialize prime_power_successor_cancel_cofactor x4 - L82
specialize prime_power_successor_cancel_cofactor (x1 * x3) - L83
apply prime_power_successor_cancel_cofactor - L84
exact hp - L85
exact hsum_power_witness - L86
exact hproduct_eq
15Use earlier factsL87–87
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L87
exact hsuccessor
Original defined command ledger · 87 lines
- 0001
intro p - 0002
intro a - 0003
intro b - 0004
intro e - 0005
intro f - 0006
intro hp - 0007
intro ha - 0008
intro hb - 0009
intro hvaluation_a - 0010
intro hvaluation_b - 0011
have hleft : ∃ bpd_result_bpd_mul_left_exact. ∃ bpd_cofactor_bpd_mul_left_exact. Pow(p,e,bpd_result_bpd_mul_left_exact) ∧ (a = bpd_result_bpd_mul_left_exact · bpd_cofactor_bpd_mul_left_exact ∧ (¬bpd_cofactor_bpd_mul_left_exact = 0 ∧ ¬Dvd(p,bpd_cofactor_bpd_mul_left_exact)))Exact native replay line
have hleft : exists bpd_result_bpd_mul_left_exact bpd_cofactor_bpd_mul_left_exact. ((exists ff_b_bpd_mul_left_exact_power ff_c_bpd_mul_left_exact_power. ((forall ff_i_bpd_mul_left_exact_power_repeat. (exists ff_lt_bpd_mul_left_exact_power_repeat_bound. ff_lt_bpd_mul_left_exact_power_repeat_bound + S ff_i_bpd_mul_left_exact_power_repeat = e) -> (((exists ff_h_bpd_mul_left_exact_power_repeat_decoded. ff_h_bpd_mul_left_exact_power_repeat_decoded + S (p) = S ((S (ff_i_bpd_mul_left_exact_power_repeat)) * ff_c_bpd_mul_left_exact_power)) /\ exists ff_q_bpd_mul_left_exact_power_repeat_decoded. ff_b_bpd_mul_left_exact_power = ff_q_bpd_mul_left_exact_power_repeat_decoded * S ((S (ff_i_bpd_mul_left_exact_power_repeat)) * ff_c_bpd_mul_left_exact_power) + (p)))) /\ (exists ff_u_bpd_mul_left_exact_power_product ff_v_bpd_mul_left_exact_power_product. ((((exists ff_h_bpd_mul_left_exact_power_product_start. ff_h_bpd_mul_left_exact_power_product_start + S (1) = S ((S (0)) * ff_v_bpd_mul_left_exact_power_product)) /\ exists ff_q_bpd_mul_left_exact_power_product_start. ff_u_bpd_mul_left_exact_power_product = ff_q_bpd_mul_left_exact_power_product_start * S ((S (0)) * ff_v_bpd_mul_left_exact_power_product) + (1))) /\ ((((exists ff_h_bpd_mul_left_exact_power_product_terminal. ff_h_bpd_mul_left_exact_power_product_terminal + S (bpd_result_bpd_mul_left_exact) = S ((S (e)) * ff_v_bpd_mul_left_exact_power_product)) /\ exists ff_q_bpd_mul_left_exact_power_product_terminal. ff_u_bpd_mul_left_exact_power_product = ff_q_bpd_mul_left_exact_power_product_terminal * S ((S (e)) * ff_v_bpd_mul_left_exact_power_product) + (bpd_result_bpd_mul_left_exact))) /\ forall ff_i_bpd_mul_left_exact_power_product. (exists ff_lt_bpd_mul_left_exact_power_product_bound. ff_lt_bpd_mul_left_exact_power_product_bound + S ff_i_bpd_mul_left_exact_power_product = e) -> exists ff_p_bpd_mul_left_exact_power_product ff_r_bpd_mul_left_exact_power_product ff_s_bpd_mul_left_exact_power_product. ((((exists ff_h_bpd_mul_left_exact_power_product_factor. ff_h_bpd_mul_left_exact_power_product_factor + S (ff_p_bpd_mul_left_exact_power_product) = S ((S (ff_i_bpd_mul_left_exact_power_product)) * ff_c_bpd_mul_left_exact_power)) /\ exists ff_q_bpd_mul_left_exact_power_product_factor. ff_b_bpd_mul_left_exact_power = ff_q_bpd_mul_left_exact_power_product_factor * S ((S (ff_i_bpd_mul_left_exact_power_product)) * ff_c_bpd_mul_left_exact_power) + (ff_p_bpd_mul_left_exact_power_product))) /\ ((((exists ff_h_bpd_mul_left_exact_power_product_partial. ff_h_bpd_mul_left_exact_power_product_partial + S (ff_r_bpd_mul_left_exact_power_product) = S ((S (ff_i_bpd_mul_left_exact_power_product)) * ff_v_bpd_mul_left_exact_power_product)) /\ exists ff_q_bpd_mul_left_exact_power_product_partial. ff_u_bpd_mul_left_exact_power_product = ff_q_bpd_mul_left_exact_power_product_partial * S ((S (ff_i_bpd_mul_left_exact_power_product)) * ff_v_bpd_mul_left_exact_power_product) + (ff_r_bpd_mul_left_exact_power_product))) /\ ((((exists ff_h_bpd_mul_left_exact_power_product_successor. ff_h_bpd_mul_left_exact_power_product_successor + S (ff_s_bpd_mul_left_exact_power_product) = S ((S (S ff_i_bpd_mul_left_exact_power_product)) * ff_v_bpd_mul_left_exact_power_product)) /\ exists ff_q_bpd_mul_left_exact_power_product_successor. ff_u_bpd_mul_left_exact_power_product = ff_q_bpd_mul_left_exact_power_product_successor * S ((S (S ff_i_bpd_mul_left_exact_power_product)) * ff_v_bpd_mul_left_exact_power_product) + (ff_s_bpd_mul_left_exact_power_product))) /\ ff_s_bpd_mul_left_exact_power_product = ff_r_bpd_mul_left_exact_power_product * ff_p_bpd_mul_left_exact_power_product)))))))) /\ ((a = bpd_result_bpd_mul_left_exact * bpd_cofactor_bpd_mul_left_exact) /\ ((~(bpd_cofactor_bpd_mul_left_exact = 0)) /\ (~(exists bpd_factor_bpd_mul_left_exact_prime. bpd_cofactor_bpd_mul_left_exact = (p) * bpd_factor_bpd_mul_left_exact_prime))))) - 0012
specialize power_valuation_exact_cofactor p - 0013
specialize power_valuation_exact_cofactor a - 0014
specialize power_valuation_exact_cofactor e - 0015
apply power_valuation_exact_cofactor - 0016
exact hp - 0017
exact ha - 0018
exact hvaluation_a - 0019
cases hleft - 0020
cases hleft_witness - 0021
cases hleft_witness_witness - 0022
cases hleft_witness_witness_right - 0023
cases hleft_witness_witness_right_right - 0024
have hright : ∃ bpd_result_bpd_mul_right_exact. ∃ bpd_cofactor_bpd_mul_right_exact. Pow(p,f,bpd_result_bpd_mul_right_exact) ∧ (b = bpd_result_bpd_mul_right_exact · bpd_cofactor_bpd_mul_right_exact ∧ (¬bpd_cofactor_bpd_mul_right_exact = 0 ∧ ¬Dvd(p,bpd_cofactor_bpd_mul_right_exact)))Exact native replay line
have hright : exists bpd_result_bpd_mul_right_exact bpd_cofactor_bpd_mul_right_exact. ((exists ff_b_bpd_mul_right_exact_power ff_c_bpd_mul_right_exact_power. ((forall ff_i_bpd_mul_right_exact_power_repeat. (exists ff_lt_bpd_mul_right_exact_power_repeat_bound. ff_lt_bpd_mul_right_exact_power_repeat_bound + S ff_i_bpd_mul_right_exact_power_repeat = f) -> (((exists ff_h_bpd_mul_right_exact_power_repeat_decoded. ff_h_bpd_mul_right_exact_power_repeat_decoded + S (p) = S ((S (ff_i_bpd_mul_right_exact_power_repeat)) * ff_c_bpd_mul_right_exact_power)) /\ exists ff_q_bpd_mul_right_exact_power_repeat_decoded. ff_b_bpd_mul_right_exact_power = ff_q_bpd_mul_right_exact_power_repeat_decoded * S ((S (ff_i_bpd_mul_right_exact_power_repeat)) * ff_c_bpd_mul_right_exact_power) + (p)))) /\ (exists ff_u_bpd_mul_right_exact_power_product ff_v_bpd_mul_right_exact_power_product. ((((exists ff_h_bpd_mul_right_exact_power_product_start. ff_h_bpd_mul_right_exact_power_product_start + S (1) = S ((S (0)) * ff_v_bpd_mul_right_exact_power_product)) /\ exists ff_q_bpd_mul_right_exact_power_product_start. ff_u_bpd_mul_right_exact_power_product = ff_q_bpd_mul_right_exact_power_product_start * S ((S (0)) * ff_v_bpd_mul_right_exact_power_product) + (1))) /\ ((((exists ff_h_bpd_mul_right_exact_power_product_terminal. ff_h_bpd_mul_right_exact_power_product_terminal + S (bpd_result_bpd_mul_right_exact) = S ((S (f)) * ff_v_bpd_mul_right_exact_power_product)) /\ exists ff_q_bpd_mul_right_exact_power_product_terminal. ff_u_bpd_mul_right_exact_power_product = ff_q_bpd_mul_right_exact_power_product_terminal * S ((S (f)) * ff_v_bpd_mul_right_exact_power_product) + (bpd_result_bpd_mul_right_exact))) /\ forall ff_i_bpd_mul_right_exact_power_product. (exists ff_lt_bpd_mul_right_exact_power_product_bound. ff_lt_bpd_mul_right_exact_power_product_bound + S ff_i_bpd_mul_right_exact_power_product = f) -> exists ff_p_bpd_mul_right_exact_power_product ff_r_bpd_mul_right_exact_power_product ff_s_bpd_mul_right_exact_power_product. ((((exists ff_h_bpd_mul_right_exact_power_product_factor. ff_h_bpd_mul_right_exact_power_product_factor + S (ff_p_bpd_mul_right_exact_power_product) = S ((S (ff_i_bpd_mul_right_exact_power_product)) * ff_c_bpd_mul_right_exact_power)) /\ exists ff_q_bpd_mul_right_exact_power_product_factor. ff_b_bpd_mul_right_exact_power = ff_q_bpd_mul_right_exact_power_product_factor * S ((S (ff_i_bpd_mul_right_exact_power_product)) * ff_c_bpd_mul_right_exact_power) + (ff_p_bpd_mul_right_exact_power_product))) /\ ((((exists ff_h_bpd_mul_right_exact_power_product_partial. ff_h_bpd_mul_right_exact_power_product_partial + S (ff_r_bpd_mul_right_exact_power_product) = S ((S (ff_i_bpd_mul_right_exact_power_product)) * ff_v_bpd_mul_right_exact_power_product)) /\ exists ff_q_bpd_mul_right_exact_power_product_partial. ff_u_bpd_mul_right_exact_power_product = ff_q_bpd_mul_right_exact_power_product_partial * S ((S (ff_i_bpd_mul_right_exact_power_product)) * ff_v_bpd_mul_right_exact_power_product) + (ff_r_bpd_mul_right_exact_power_product))) /\ ((((exists ff_h_bpd_mul_right_exact_power_product_successor. ff_h_bpd_mul_right_exact_power_product_successor + S (ff_s_bpd_mul_right_exact_power_product) = S ((S (S ff_i_bpd_mul_right_exact_power_product)) * ff_v_bpd_mul_right_exact_power_product)) /\ exists ff_q_bpd_mul_right_exact_power_product_successor. ff_u_bpd_mul_right_exact_power_product = ff_q_bpd_mul_right_exact_power_product_successor * S ((S (S ff_i_bpd_mul_right_exact_power_product)) * ff_v_bpd_mul_right_exact_power_product) + (ff_s_bpd_mul_right_exact_power_product))) /\ ff_s_bpd_mul_right_exact_power_product = ff_r_bpd_mul_right_exact_power_product * ff_p_bpd_mul_right_exact_power_product)))))))) /\ ((b = bpd_result_bpd_mul_right_exact * bpd_cofactor_bpd_mul_right_exact) /\ ((~(bpd_cofactor_bpd_mul_right_exact = 0)) /\ (~(exists bpd_factor_bpd_mul_right_exact_prime. bpd_cofactor_bpd_mul_right_exact = (p) * bpd_factor_bpd_mul_right_exact_prime))))) - 0025
specialize power_valuation_exact_cofactor p - 0026
specialize power_valuation_exact_cofactor b - 0027
specialize power_valuation_exact_cofactor f - 0028
apply power_valuation_exact_cofactor - 0029
exact hp - 0030
exact hb - 0031
exact hvaluation_b - 0032
cases hright - 0033
cases hright_witness - 0034
cases hright_witness_witness - 0035
cases hright_witness_witness_right - 0036
cases hright_witness_witness_right_right - 0037
have hsum_power : ∃ t. Pow(p,e + f,t)Exact native replay line
have hsum_power : exists t. (exists bpvi_b_bpd_mul_sum_power bpvi_c_bpd_mul_sum_power. ((forall bpvi_i_bpd_mul_sum_power. (exists bpvi_repeat_gap_bpd_mul_sum_power. bpvi_repeat_gap_bpd_mul_sum_power + S bpvi_i_bpd_mul_sum_power = e + f) -> (((exists bpvi_h_bpd_mul_sum_power_repeat. bpvi_h_bpd_mul_sum_power_repeat + S (p) = S ((S (bpvi_i_bpd_mul_sum_power)) * bpvi_c_bpd_mul_sum_power)) /\ exists bpvi_q_bpd_mul_sum_power_repeat. bpvi_b_bpd_mul_sum_power = bpvi_q_bpd_mul_sum_power_repeat * S ((S (bpvi_i_bpd_mul_sum_power)) * bpvi_c_bpd_mul_sum_power) + (p)))) /\ (exists bpvi_u_bpd_mul_sum_power bpvi_v_bpd_mul_sum_power. ((((exists bpvi_h_bpd_mul_sum_power_start. bpvi_h_bpd_mul_sum_power_start + S (1) = S ((S (0)) * bpvi_v_bpd_mul_sum_power)) /\ exists bpvi_q_bpd_mul_sum_power_start. bpvi_u_bpd_mul_sum_power = bpvi_q_bpd_mul_sum_power_start * S ((S (0)) * bpvi_v_bpd_mul_sum_power) + (1))) /\ ((((exists bpvi_h_bpd_mul_sum_power_terminal. bpvi_h_bpd_mul_sum_power_terminal + S (t) = S ((S (e + f)) * bpvi_v_bpd_mul_sum_power)) /\ exists bpvi_q_bpd_mul_sum_power_terminal. bpvi_u_bpd_mul_sum_power = bpvi_q_bpd_mul_sum_power_terminal * S ((S (e + f)) * bpvi_v_bpd_mul_sum_power) + (t))) /\ forall bpvi_j_bpd_mul_sum_power. (exists bpvi_product_gap_bpd_mul_sum_power. bpvi_product_gap_bpd_mul_sum_power + S bpvi_j_bpd_mul_sum_power = e + f) -> exists bpvi_factor_bpd_mul_sum_power bpvi_partial_bpd_mul_sum_power bpvi_successor_bpd_mul_sum_power. ((((exists bpvi_h_bpd_mul_sum_power_factor. bpvi_h_bpd_mul_sum_power_factor + S (bpvi_factor_bpd_mul_sum_power) = S ((S (bpvi_j_bpd_mul_sum_power)) * bpvi_c_bpd_mul_sum_power)) /\ exists bpvi_q_bpd_mul_sum_power_factor. bpvi_b_bpd_mul_sum_power = bpvi_q_bpd_mul_sum_power_factor * S ((S (bpvi_j_bpd_mul_sum_power)) * bpvi_c_bpd_mul_sum_power) + (bpvi_factor_bpd_mul_sum_power))) /\ ((((exists bpvi_h_bpd_mul_sum_power_partial. bpvi_h_bpd_mul_sum_power_partial + S (bpvi_partial_bpd_mul_sum_power) = S ((S (bpvi_j_bpd_mul_sum_power)) * bpvi_v_bpd_mul_sum_power)) /\ exists bpvi_q_bpd_mul_sum_power_partial. bpvi_u_bpd_mul_sum_power = bpvi_q_bpd_mul_sum_power_partial * S ((S (bpvi_j_bpd_mul_sum_power)) * bpvi_v_bpd_mul_sum_power) + (bpvi_partial_bpd_mul_sum_power))) /\ ((((exists bpvi_h_bpd_mul_sum_power_successor. bpvi_h_bpd_mul_sum_power_successor + S (bpvi_successor_bpd_mul_sum_power) = S ((S (S bpvi_j_bpd_mul_sum_power)) * bpvi_v_bpd_mul_sum_power)) /\ exists bpvi_q_bpd_mul_sum_power_successor. bpvi_u_bpd_mul_sum_power = bpvi_q_bpd_mul_sum_power_successor * S ((S (S bpvi_j_bpd_mul_sum_power)) * bpvi_v_bpd_mul_sum_power) + (bpvi_successor_bpd_mul_sum_power))) /\ bpvi_successor_bpd_mul_sum_power = bpvi_partial_bpd_mul_sum_power * bpvi_factor_bpd_mul_sum_power)))))))) - 0038
specialize pow_exists p - 0039
specialize pow_exists (e + f) - 0040
exact pow_exists - 0041
cases hsum_power - 0042
have hpower_product : x4 = x * x2 - 0043
specialize pow_add p - 0044
specialize pow_add e - 0045
specialize pow_add f - 0046
specialize pow_add (e + f) - 0047
specialize pow_add x - 0048
specialize pow_add x2 - 0049
specialize pow_add x4 - 0050
apply pow_add - 0051
refl - 0052
exact hleft_witness_witness_left - 0053
exact hright_witness_witness_left - 0054
exact hsum_power_witness - 0055
have hproduct_eq : a * b = x4 * (x1 * x3) - 0056
trans (x * x1) * (x2 * x3) - 0057
congr - 0058
exact hleft_witness_witness_right_left - 0059
exact hright_witness_witness_right_left - 0060
trans (x * x2) * (x1 * x3) - 0061
apply mul_shuffle_four - 0062
congr - 0063
symm - 0064
exact hpower_product - 0065
refl - 0066
have hcofactor_nondiv : ¬Dvd(p,x1 · x3)Exact native replay line
have hcofactor_nondiv : ~(exists u. x1 * x3 = p * u) - 0067
intro hcofactor_div - 0068
specialize prime_nondivisor_mul p - 0069
specialize prime_nondivisor_mul x1 - 0070
specialize prime_nondivisor_mul x3 - 0071
apply prime_nondivisor_mul - 0072
exact hp - 0073
exact hleft_witness_witness_right_right_right - 0074
exact hright_witness_witness_right_right_right - 0075
exact hcofactor_div - 0076
intro hsuccessor - 0077
apply hcofactor_nondiv - 0078
specialize prime_power_successor_cancel_cofactor p - 0079
specialize prime_power_successor_cancel_cofactor (e + f) - 0080
specialize prime_power_successor_cancel_cofactor (a * b) - 0081
specialize prime_power_successor_cancel_cofactor x4 - 0082
specialize prime_power_successor_cancel_cofactor (x1 * x3) - 0083
apply prime_power_successor_cancel_cofactor - 0084
exact hp - 0085
exact hsum_power_witness - 0086
exact hproduct_eq - 0087
exact hsuccessor