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. ∀ g. Prime(p) → ¬a = 0 → ¬b = 0 → PowerValuation(p,a,e) → PowerValuation(p,b,f) → PowerValuation(p,a · b,g) → Le(g,e + f)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
5 occurrences
In local proof propositions
4 occurrences
Exact expanded native-PA statement
forall p a b e f g. ((~(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 bpd_gap_bpd_valuation_product_selected_bound. bpd_gap_bpd_valuation_product_selected_bound + (g) = (a * b)) /\ (exists bpvi_result_bpd_valuation_product_selected. ((exists bpvi_b_bpd_valuation_product_selected_power bpvi_c_bpd_valuation_product_selected_power. ((forall bpvi_i_bpd_valuation_product_selected_power. (exists bpvi_repeat_gap_bpd_valuation_product_selected_power. bpvi_repeat_gap_bpd_valuation_product_selected_power + S bpvi_i_bpd_valuation_product_selected_power = g) -> (((exists bpvi_h_bpd_valuation_product_selected_power_repeat. bpvi_h_bpd_valuation_product_selected_power_repeat + S (p) = S ((S (bpvi_i_bpd_valuation_product_selected_power)) * bpvi_c_bpd_valuation_product_selected_power)) /\ exists bpvi_q_bpd_valuation_product_selected_power_repeat. bpvi_b_bpd_valuation_product_selected_power = bpvi_q_bpd_valuation_product_selected_power_repeat * S ((S (bpvi_i_bpd_valuation_product_selected_power)) * bpvi_c_bpd_valuation_product_selected_power) + (p)))) /\ (exists bpvi_u_bpd_valuation_product_selected_power bpvi_v_bpd_valuation_product_selected_power. ((((exists bpvi_h_bpd_valuation_product_selected_power_start. bpvi_h_bpd_valuation_product_selected_power_start + S (1) = S ((S (0)) * bpvi_v_bpd_valuation_product_selected_power)) /\ exists bpvi_q_bpd_valuation_product_selected_power_start. bpvi_u_bpd_valuation_product_selected_power = bpvi_q_bpd_valuation_product_selected_power_start * S ((S (0)) * bpvi_v_bpd_valuation_product_selected_power) + (1))) /\ ((((exists bpvi_h_bpd_valuation_product_selected_power_terminal. bpvi_h_bpd_valuation_product_selected_power_terminal + S (bpvi_result_bpd_valuation_product_selected) = S ((S (g)) * bpvi_v_bpd_valuation_product_selected_power)) /\ exists bpvi_q_bpd_valuation_product_selected_power_terminal. bpvi_u_bpd_valuation_product_selected_power = bpvi_q_bpd_valuation_product_selected_power_terminal * S ((S (g)) * bpvi_v_bpd_valuation_product_selected_power) + (bpvi_result_bpd_valuation_product_selected))) /\ forall bpvi_j_bpd_valuation_product_selected_power. (exists bpvi_product_gap_bpd_valuation_product_selected_power. bpvi_product_gap_bpd_valuation_product_selected_power + S bpvi_j_bpd_valuation_product_selected_power = g) -> exists bpvi_factor_bpd_valuation_product_selected_power bpvi_partial_bpd_valuation_product_selected_power bpvi_successor_bpd_valuation_product_selected_power. ((((exists bpvi_h_bpd_valuation_product_selected_power_factor. bpvi_h_bpd_valuation_product_selected_power_factor + S (bpvi_factor_bpd_valuation_product_selected_power) = S ((S (bpvi_j_bpd_valuation_product_selected_power)) * bpvi_c_bpd_valuation_product_selected_power)) /\ exists bpvi_q_bpd_valuation_product_selected_power_factor. bpvi_b_bpd_valuation_product_selected_power = bpvi_q_bpd_valuation_product_selected_power_factor * S ((S (bpvi_j_bpd_valuation_product_selected_power)) * bpvi_c_bpd_valuation_product_selected_power) + (bpvi_factor_bpd_valuation_product_selected_power))) /\ ((((exists bpvi_h_bpd_valuation_product_selected_power_partial. bpvi_h_bpd_valuation_product_selected_power_partial + S (bpvi_partial_bpd_valuation_product_selected_power) = S ((S (bpvi_j_bpd_valuation_product_selected_power)) * bpvi_v_bpd_valuation_product_selected_power)) /\ exists bpvi_q_bpd_valuation_product_selected_power_partial. bpvi_u_bpd_valuation_product_selected_power = bpvi_q_bpd_valuation_product_selected_power_partial * S ((S (bpvi_j_bpd_valuation_product_selected_power)) * bpvi_v_bpd_valuation_product_selected_power) + (bpvi_partial_bpd_valuation_product_selected_power))) /\ ((((exists bpvi_h_bpd_valuation_product_selected_power_successor. bpvi_h_bpd_valuation_product_selected_power_successor + S (bpvi_successor_bpd_valuation_product_selected_power) = S ((S (S bpvi_j_bpd_valuation_product_selected_power)) * bpvi_v_bpd_valuation_product_selected_power)) /\ exists bpvi_q_bpd_valuation_product_selected_power_successor. bpvi_u_bpd_valuation_product_selected_power = bpvi_q_bpd_valuation_product_selected_power_successor * S ((S (S bpvi_j_bpd_valuation_product_selected_power)) * bpvi_v_bpd_valuation_product_selected_power) + (bpvi_successor_bpd_valuation_product_selected_power))) /\ bpvi_successor_bpd_valuation_product_selected_power = bpvi_partial_bpd_valuation_product_selected_power * bpvi_factor_bpd_valuation_product_selected_power)))))))) /\ exists bpvi_divisor_factor_bpd_valuation_product_selected. a * b = bpvi_result_bpd_valuation_product_selected * bpvi_divisor_factor_bpd_valuation_product_selected))) /\ forall bpd_candidate_bpd_valuation_product. (exists bpd_gap_bpd_valuation_product_candidate_bound. bpd_gap_bpd_valuation_product_candidate_bound + (bpd_candidate_bpd_valuation_product) = (a * b)) -> (exists bpvi_result_bpd_valuation_product_candidate. ((exists bpvi_b_bpd_valuation_product_candidate_power bpvi_c_bpd_valuation_product_candidate_power. ((forall bpvi_i_bpd_valuation_product_candidate_power. (exists bpvi_repeat_gap_bpd_valuation_product_candidate_power. bpvi_repeat_gap_bpd_valuation_product_candidate_power + S bpvi_i_bpd_valuation_product_candidate_power = bpd_candidate_bpd_valuation_product) -> (((exists bpvi_h_bpd_valuation_product_candidate_power_repeat. bpvi_h_bpd_valuation_product_candidate_power_repeat + S (p) = S ((S (bpvi_i_bpd_valuation_product_candidate_power)) * bpvi_c_bpd_valuation_product_candidate_power)) /\ exists bpvi_q_bpd_valuation_product_candidate_power_repeat. bpvi_b_bpd_valuation_product_candidate_power = bpvi_q_bpd_valuation_product_candidate_power_repeat * S ((S (bpvi_i_bpd_valuation_product_candidate_power)) * bpvi_c_bpd_valuation_product_candidate_power) + (p)))) /\ (exists bpvi_u_bpd_valuation_product_candidate_power bpvi_v_bpd_valuation_product_candidate_power. ((((exists bpvi_h_bpd_valuation_product_candidate_power_start. bpvi_h_bpd_valuation_product_candidate_power_start + S (1) = S ((S (0)) * bpvi_v_bpd_valuation_product_candidate_power)) /\ exists bpvi_q_bpd_valuation_product_candidate_power_start. bpvi_u_bpd_valuation_product_candidate_power = bpvi_q_bpd_valuation_product_candidate_power_start * S ((S (0)) * bpvi_v_bpd_valuation_product_candidate_power) + (1))) /\ ((((exists bpvi_h_bpd_valuation_product_candidate_power_terminal. bpvi_h_bpd_valuation_product_candidate_power_terminal + S (bpvi_result_bpd_valuation_product_candidate) = S ((S (bpd_candidate_bpd_valuation_product)) * bpvi_v_bpd_valuation_product_candidate_power)) /\ exists bpvi_q_bpd_valuation_product_candidate_power_terminal. bpvi_u_bpd_valuation_product_candidate_power = bpvi_q_bpd_valuation_product_candidate_power_terminal * S ((S (bpd_candidate_bpd_valuation_product)) * bpvi_v_bpd_valuation_product_candidate_power) + (bpvi_result_bpd_valuation_product_candidate))) /\ forall bpvi_j_bpd_valuation_product_candidate_power. (exists bpvi_product_gap_bpd_valuation_product_candidate_power. bpvi_product_gap_bpd_valuation_product_candidate_power + S bpvi_j_bpd_valuation_product_candidate_power = bpd_candidate_bpd_valuation_product) -> exists bpvi_factor_bpd_valuation_product_candidate_power bpvi_partial_bpd_valuation_product_candidate_power bpvi_successor_bpd_valuation_product_candidate_power. ((((exists bpvi_h_bpd_valuation_product_candidate_power_factor. bpvi_h_bpd_valuation_product_candidate_power_factor + S (bpvi_factor_bpd_valuation_product_candidate_power) = S ((S (bpvi_j_bpd_valuation_product_candidate_power)) * bpvi_c_bpd_valuation_product_candidate_power)) /\ exists bpvi_q_bpd_valuation_product_candidate_power_factor. bpvi_b_bpd_valuation_product_candidate_power = bpvi_q_bpd_valuation_product_candidate_power_factor * S ((S (bpvi_j_bpd_valuation_product_candidate_power)) * bpvi_c_bpd_valuation_product_candidate_power) + (bpvi_factor_bpd_valuation_product_candidate_power))) /\ ((((exists bpvi_h_bpd_valuation_product_candidate_power_partial. bpvi_h_bpd_valuation_product_candidate_power_partial + S (bpvi_partial_bpd_valuation_product_candidate_power) = S ((S (bpvi_j_bpd_valuation_product_candidate_power)) * bpvi_v_bpd_valuation_product_candidate_power)) /\ exists bpvi_q_bpd_valuation_product_candidate_power_partial. bpvi_u_bpd_valuation_product_candidate_power = bpvi_q_bpd_valuation_product_candidate_power_partial * S ((S (bpvi_j_bpd_valuation_product_candidate_power)) * bpvi_v_bpd_valuation_product_candidate_power) + (bpvi_partial_bpd_valuation_product_candidate_power))) /\ ((((exists bpvi_h_bpd_valuation_product_candidate_power_successor. bpvi_h_bpd_valuation_product_candidate_power_successor + S (bpvi_successor_bpd_valuation_product_candidate_power) = S ((S (S bpvi_j_bpd_valuation_product_candidate_power)) * bpvi_v_bpd_valuation_product_candidate_power)) /\ exists bpvi_q_bpd_valuation_product_candidate_power_successor. bpvi_u_bpd_valuation_product_candidate_power = bpvi_q_bpd_valuation_product_candidate_power_successor * S ((S (S bpvi_j_bpd_valuation_product_candidate_power)) * bpvi_v_bpd_valuation_product_candidate_power) + (bpvi_successor_bpd_valuation_product_candidate_power))) /\ bpvi_successor_bpd_valuation_product_candidate_power = bpvi_partial_bpd_valuation_product_candidate_power * bpvi_factor_bpd_valuation_product_candidate_power)))))))) /\ exists bpvi_divisor_factor_bpd_valuation_product_candidate. a * b = bpvi_result_bpd_valuation_product_candidate * bpvi_divisor_factor_bpd_valuation_product_candidate)) -> (exists bpd_gap_bpd_valuation_product_maximal. bpd_gap_bpd_valuation_product_maximal + (bpd_candidate_bpd_valuation_product) = (g))) -> (exists bpd_gap_valuation_mul_upper. bpd_gap_valuation_mul_upper + (g) = (e + f))Proof neighborhood
Direct theorem prerequisites
BT001G le_or_lt BT00Q9 power_valuation_power_divides BT00QK power_divides_exponent_antitone BT00QQ power_valuation_mul_successor_not_dividesDirect 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 (4)
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–12
03Establish horderL13–16
Establish this local claim before using it. It is not an additional assumption.
- L13
have horder : Le(g,e + f) ∨ Lt(e + f,g)Definitions: Le(g,e + f)Lt(e + f,g)Original native command in the exact edition - L14
specialize le_or_lt g - L15
specialize le_or_lt (e + f) - L16
exact le_or_lt
04Separate the logical casesL17–17
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L17
cases horder
05Use earlier factsL18–18
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L18
exact horder_left
06Separate the logical casesL19–19
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L19
exfalso
07Establish hhighL20–25
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply power valuation power divides.
- L20
have hhigh : PowerDivides(p,g,a · b)Definitions: PowerDivides(p,g,a · b)Original native command in the exact edition - L21
specialize power_valuation_power_divides p - L22
specialize power_valuation_power_divides (a * b) - L23
specialize power_valuation_power_divides g - L24
apply power_valuation_power_divides - L25
exact hvaluation_product
08Establish hsuccessorL26–35
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply power divides exponent antitone.
- L26
have hsuccessor : PowerDivides(p,S (e + f),a · b)Definitions: PowerDivides(p,S (e + f),a · b)Original native command in the exact edition - L27
specialize power_divides_exponent_antitone p - L28
specialize power_divides_exponent_antitone (S (e + f)) - L29
specialize power_divides_exponent_antitone g - L30
specialize power_divides_exponent_antitone (a * b) - L31
apply power_divides_exponent_antitone - L32
exact horder_right - L33
exact hhigh - L34
specialize power_valuation_mul_successor_not_divides p - L35
specialize power_valuation_mul_successor_not_divides a
09Use earlier factsL36–45
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L36
specialize power_valuation_mul_successor_not_divides b - L37
specialize power_valuation_mul_successor_not_divides e - L38
specialize power_valuation_mul_successor_not_divides f - L39
apply power_valuation_mul_successor_not_divides - L40
exact hp - L41
exact ha - L42
exact hb - L43
exact hvaluation_a - L44
exact hvaluation_b - L45
exact hsuccessor
Original defined command ledger · 45 lines
- 0001
intro p - 0002
intro a - 0003
intro b - 0004
intro e - 0005
intro f - 0006
intro g - 0007
intro hp - 0008
intro ha - 0009
intro hb - 0010
intro hvaluation_a - 0011
intro hvaluation_b - 0012
intro hvaluation_product - 0013
have horder : Le(g,e + f) ∨ Lt(e + f,g)Exact native replay line
have horder : (exists k. k + g = e + f) \/ exists k. k + S (e + f) = g - 0014
specialize le_or_lt g - 0015
specialize le_or_lt (e + f) - 0016
exact le_or_lt - 0017
cases horder - 0018
exact horder_left - 0019
exfalso - 0020
have hhigh : PowerDivides(p,g,a · b)Exact native replay line
have hhigh : exists bpvi_result_bpd_mul_upper_high. ((exists bpvi_b_bpd_mul_upper_high_power bpvi_c_bpd_mul_upper_high_power. ((forall bpvi_i_bpd_mul_upper_high_power. (exists bpvi_repeat_gap_bpd_mul_upper_high_power. bpvi_repeat_gap_bpd_mul_upper_high_power + S bpvi_i_bpd_mul_upper_high_power = g) -> (((exists bpvi_h_bpd_mul_upper_high_power_repeat. bpvi_h_bpd_mul_upper_high_power_repeat + S (p) = S ((S (bpvi_i_bpd_mul_upper_high_power)) * bpvi_c_bpd_mul_upper_high_power)) /\ exists bpvi_q_bpd_mul_upper_high_power_repeat. bpvi_b_bpd_mul_upper_high_power = bpvi_q_bpd_mul_upper_high_power_repeat * S ((S (bpvi_i_bpd_mul_upper_high_power)) * bpvi_c_bpd_mul_upper_high_power) + (p)))) /\ (exists bpvi_u_bpd_mul_upper_high_power bpvi_v_bpd_mul_upper_high_power. ((((exists bpvi_h_bpd_mul_upper_high_power_start. bpvi_h_bpd_mul_upper_high_power_start + S (1) = S ((S (0)) * bpvi_v_bpd_mul_upper_high_power)) /\ exists bpvi_q_bpd_mul_upper_high_power_start. bpvi_u_bpd_mul_upper_high_power = bpvi_q_bpd_mul_upper_high_power_start * S ((S (0)) * bpvi_v_bpd_mul_upper_high_power) + (1))) /\ ((((exists bpvi_h_bpd_mul_upper_high_power_terminal. bpvi_h_bpd_mul_upper_high_power_terminal + S (bpvi_result_bpd_mul_upper_high) = S ((S (g)) * bpvi_v_bpd_mul_upper_high_power)) /\ exists bpvi_q_bpd_mul_upper_high_power_terminal. bpvi_u_bpd_mul_upper_high_power = bpvi_q_bpd_mul_upper_high_power_terminal * S ((S (g)) * bpvi_v_bpd_mul_upper_high_power) + (bpvi_result_bpd_mul_upper_high))) /\ forall bpvi_j_bpd_mul_upper_high_power. (exists bpvi_product_gap_bpd_mul_upper_high_power. bpvi_product_gap_bpd_mul_upper_high_power + S bpvi_j_bpd_mul_upper_high_power = g) -> exists bpvi_factor_bpd_mul_upper_high_power bpvi_partial_bpd_mul_upper_high_power bpvi_successor_bpd_mul_upper_high_power. ((((exists bpvi_h_bpd_mul_upper_high_power_factor. bpvi_h_bpd_mul_upper_high_power_factor + S (bpvi_factor_bpd_mul_upper_high_power) = S ((S (bpvi_j_bpd_mul_upper_high_power)) * bpvi_c_bpd_mul_upper_high_power)) /\ exists bpvi_q_bpd_mul_upper_high_power_factor. bpvi_b_bpd_mul_upper_high_power = bpvi_q_bpd_mul_upper_high_power_factor * S ((S (bpvi_j_bpd_mul_upper_high_power)) * bpvi_c_bpd_mul_upper_high_power) + (bpvi_factor_bpd_mul_upper_high_power))) /\ ((((exists bpvi_h_bpd_mul_upper_high_power_partial. bpvi_h_bpd_mul_upper_high_power_partial + S (bpvi_partial_bpd_mul_upper_high_power) = S ((S (bpvi_j_bpd_mul_upper_high_power)) * bpvi_v_bpd_mul_upper_high_power)) /\ exists bpvi_q_bpd_mul_upper_high_power_partial. bpvi_u_bpd_mul_upper_high_power = bpvi_q_bpd_mul_upper_high_power_partial * S ((S (bpvi_j_bpd_mul_upper_high_power)) * bpvi_v_bpd_mul_upper_high_power) + (bpvi_partial_bpd_mul_upper_high_power))) /\ ((((exists bpvi_h_bpd_mul_upper_high_power_successor. bpvi_h_bpd_mul_upper_high_power_successor + S (bpvi_successor_bpd_mul_upper_high_power) = S ((S (S bpvi_j_bpd_mul_upper_high_power)) * bpvi_v_bpd_mul_upper_high_power)) /\ exists bpvi_q_bpd_mul_upper_high_power_successor. bpvi_u_bpd_mul_upper_high_power = bpvi_q_bpd_mul_upper_high_power_successor * S ((S (S bpvi_j_bpd_mul_upper_high_power)) * bpvi_v_bpd_mul_upper_high_power) + (bpvi_successor_bpd_mul_upper_high_power))) /\ bpvi_successor_bpd_mul_upper_high_power = bpvi_partial_bpd_mul_upper_high_power * bpvi_factor_bpd_mul_upper_high_power)))))))) /\ exists bpvi_divisor_factor_bpd_mul_upper_high. a * b = bpvi_result_bpd_mul_upper_high * bpvi_divisor_factor_bpd_mul_upper_high) - 0021
specialize power_valuation_power_divides p - 0022
specialize power_valuation_power_divides (a * b) - 0023
specialize power_valuation_power_divides g - 0024
apply power_valuation_power_divides - 0025
exact hvaluation_product - 0026
have hsuccessor : PowerDivides(p,S (e + f),a · b)Exact native replay line
have hsuccessor : exists bpvi_result_bpd_mul_upper_successor. ((exists bpvi_b_bpd_mul_upper_successor_power bpvi_c_bpd_mul_upper_successor_power. ((forall bpvi_i_bpd_mul_upper_successor_power. (exists bpvi_repeat_gap_bpd_mul_upper_successor_power. bpvi_repeat_gap_bpd_mul_upper_successor_power + S bpvi_i_bpd_mul_upper_successor_power = S (e + f)) -> (((exists bpvi_h_bpd_mul_upper_successor_power_repeat. bpvi_h_bpd_mul_upper_successor_power_repeat + S (p) = S ((S (bpvi_i_bpd_mul_upper_successor_power)) * bpvi_c_bpd_mul_upper_successor_power)) /\ exists bpvi_q_bpd_mul_upper_successor_power_repeat. bpvi_b_bpd_mul_upper_successor_power = bpvi_q_bpd_mul_upper_successor_power_repeat * S ((S (bpvi_i_bpd_mul_upper_successor_power)) * bpvi_c_bpd_mul_upper_successor_power) + (p)))) /\ (exists bpvi_u_bpd_mul_upper_successor_power bpvi_v_bpd_mul_upper_successor_power. ((((exists bpvi_h_bpd_mul_upper_successor_power_start. bpvi_h_bpd_mul_upper_successor_power_start + S (1) = S ((S (0)) * bpvi_v_bpd_mul_upper_successor_power)) /\ exists bpvi_q_bpd_mul_upper_successor_power_start. bpvi_u_bpd_mul_upper_successor_power = bpvi_q_bpd_mul_upper_successor_power_start * S ((S (0)) * bpvi_v_bpd_mul_upper_successor_power) + (1))) /\ ((((exists bpvi_h_bpd_mul_upper_successor_power_terminal. bpvi_h_bpd_mul_upper_successor_power_terminal + S (bpvi_result_bpd_mul_upper_successor) = S ((S (S (e + f))) * bpvi_v_bpd_mul_upper_successor_power)) /\ exists bpvi_q_bpd_mul_upper_successor_power_terminal. bpvi_u_bpd_mul_upper_successor_power = bpvi_q_bpd_mul_upper_successor_power_terminal * S ((S (S (e + f))) * bpvi_v_bpd_mul_upper_successor_power) + (bpvi_result_bpd_mul_upper_successor))) /\ forall bpvi_j_bpd_mul_upper_successor_power. (exists bpvi_product_gap_bpd_mul_upper_successor_power. bpvi_product_gap_bpd_mul_upper_successor_power + S bpvi_j_bpd_mul_upper_successor_power = S (e + f)) -> exists bpvi_factor_bpd_mul_upper_successor_power bpvi_partial_bpd_mul_upper_successor_power bpvi_successor_bpd_mul_upper_successor_power. ((((exists bpvi_h_bpd_mul_upper_successor_power_factor. bpvi_h_bpd_mul_upper_successor_power_factor + S (bpvi_factor_bpd_mul_upper_successor_power) = S ((S (bpvi_j_bpd_mul_upper_successor_power)) * bpvi_c_bpd_mul_upper_successor_power)) /\ exists bpvi_q_bpd_mul_upper_successor_power_factor. bpvi_b_bpd_mul_upper_successor_power = bpvi_q_bpd_mul_upper_successor_power_factor * S ((S (bpvi_j_bpd_mul_upper_successor_power)) * bpvi_c_bpd_mul_upper_successor_power) + (bpvi_factor_bpd_mul_upper_successor_power))) /\ ((((exists bpvi_h_bpd_mul_upper_successor_power_partial. bpvi_h_bpd_mul_upper_successor_power_partial + S (bpvi_partial_bpd_mul_upper_successor_power) = S ((S (bpvi_j_bpd_mul_upper_successor_power)) * bpvi_v_bpd_mul_upper_successor_power)) /\ exists bpvi_q_bpd_mul_upper_successor_power_partial. bpvi_u_bpd_mul_upper_successor_power = bpvi_q_bpd_mul_upper_successor_power_partial * S ((S (bpvi_j_bpd_mul_upper_successor_power)) * bpvi_v_bpd_mul_upper_successor_power) + (bpvi_partial_bpd_mul_upper_successor_power))) /\ ((((exists bpvi_h_bpd_mul_upper_successor_power_successor. bpvi_h_bpd_mul_upper_successor_power_successor + S (bpvi_successor_bpd_mul_upper_successor_power) = S ((S (S bpvi_j_bpd_mul_upper_successor_power)) * bpvi_v_bpd_mul_upper_successor_power)) /\ exists bpvi_q_bpd_mul_upper_successor_power_successor. bpvi_u_bpd_mul_upper_successor_power = bpvi_q_bpd_mul_upper_successor_power_successor * S ((S (S bpvi_j_bpd_mul_upper_successor_power)) * bpvi_v_bpd_mul_upper_successor_power) + (bpvi_successor_bpd_mul_upper_successor_power))) /\ bpvi_successor_bpd_mul_upper_successor_power = bpvi_partial_bpd_mul_upper_successor_power * bpvi_factor_bpd_mul_upper_successor_power)))))))) /\ exists bpvi_divisor_factor_bpd_mul_upper_successor. a * b = bpvi_result_bpd_mul_upper_successor * bpvi_divisor_factor_bpd_mul_upper_successor) - 0027
specialize power_divides_exponent_antitone p - 0028
specialize power_divides_exponent_antitone (S (e + f)) - 0029
specialize power_divides_exponent_antitone g - 0030
specialize power_divides_exponent_antitone (a * b) - 0031
apply power_divides_exponent_antitone - 0032
exact horder_right - 0033
exact hhigh - 0034
specialize power_valuation_mul_successor_not_divides p - 0035
specialize power_valuation_mul_successor_not_divides a - 0036
specialize power_valuation_mul_successor_not_divides b - 0037
specialize power_valuation_mul_successor_not_divides e - 0038
specialize power_valuation_mul_successor_not_divides f - 0039
apply power_valuation_mul_successor_not_divides - 0040
exact hp - 0041
exact ha - 0042
exact hb - 0043
exact hvaluation_a - 0044
exact hvaluation_b - 0045
exact hsuccessor