BT00SV · Bertrand theorem

prime_legendre_sum_succ

Alpha v34 checked-use theorem · independently kernel and Lean verified; not Stable

Prime Legendre sums satisfy the exact constructive successor recurrence.

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. ∀ n. ∀ f. ∀ e. ∀ g. Prime(p)PowerValuation(p,S n,f)LegendreSum(p,n,e)LegendreSum(p,S n,g) → 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

4 occurrences

In local proof propositions

12 occurrences

Exact expanded native-PA statement
forall p n f e g. ((~(p = 1) /\ forall frm_prime_left_blrr_recurrence_prime frm_prime_right_blrr_recurrence_prime. p = frm_prime_left_blrr_recurrence_prime * frm_prime_right_blrr_recurrence_prime -> frm_prime_left_blrr_recurrence_prime = 1 \/ frm_prime_right_blrr_recurrence_prime = 1)) -> ((((exists blsr_le_gap_blrr_recurrence_valuation_exponent_bound. blsr_le_gap_blrr_recurrence_valuation_exponent_bound + (f) = (S n)) /\ (exists bpvi_result_blrr_recurrence_valuation_selected. ((exists bpvi_b_blrr_recurrence_valuation_selected_power bpvi_c_blrr_recurrence_valuation_selected_power. ((forall bpvi_i_blrr_recurrence_valuation_selected_power. (exists bpvi_repeat_gap_blrr_recurrence_valuation_selected_power. bpvi_repeat_gap_blrr_recurrence_valuation_selected_power + S bpvi_i_blrr_recurrence_valuation_selected_power = f) -> (((exists bpvi_h_blrr_recurrence_valuation_selected_power_repeat. bpvi_h_blrr_recurrence_valuation_selected_power_repeat + S (p) = S ((S (bpvi_i_blrr_recurrence_valuation_selected_power)) * bpvi_c_blrr_recurrence_valuation_selected_power)) /\ exists bpvi_q_blrr_recurrence_valuation_selected_power_repeat. bpvi_b_blrr_recurrence_valuation_selected_power = bpvi_q_blrr_recurrence_valuation_selected_power_repeat * S ((S (bpvi_i_blrr_recurrence_valuation_selected_power)) * bpvi_c_blrr_recurrence_valuation_selected_power) + (p)))) /\ (exists bpvi_u_blrr_recurrence_valuation_selected_power bpvi_v_blrr_recurrence_valuation_selected_power. ((((exists bpvi_h_blrr_recurrence_valuation_selected_power_start. bpvi_h_blrr_recurrence_valuation_selected_power_start + S (1) = S ((S (0)) * bpvi_v_blrr_recurrence_valuation_selected_power)) /\ exists bpvi_q_blrr_recurrence_valuation_selected_power_start. bpvi_u_blrr_recurrence_valuation_selected_power = bpvi_q_blrr_recurrence_valuation_selected_power_start * S ((S (0)) * bpvi_v_blrr_recurrence_valuation_selected_power) + (1))) /\ ((((exists bpvi_h_blrr_recurrence_valuation_selected_power_terminal. bpvi_h_blrr_recurrence_valuation_selected_power_terminal + S (bpvi_result_blrr_recurrence_valuation_selected) = S ((S (f)) * bpvi_v_blrr_recurrence_valuation_selected_power)) /\ exists bpvi_q_blrr_recurrence_valuation_selected_power_terminal. bpvi_u_blrr_recurrence_valuation_selected_power = bpvi_q_blrr_recurrence_valuation_selected_power_terminal * S ((S (f)) * bpvi_v_blrr_recurrence_valuation_selected_power) + (bpvi_result_blrr_recurrence_valuation_selected))) /\ forall bpvi_j_blrr_recurrence_valuation_selected_power. (exists bpvi_product_gap_blrr_recurrence_valuation_selected_power. bpvi_product_gap_blrr_recurrence_valuation_selected_power + S bpvi_j_blrr_recurrence_valuation_selected_power = f) -> exists bpvi_factor_blrr_recurrence_valuation_selected_power bpvi_partial_blrr_recurrence_valuation_selected_power bpvi_successor_blrr_recurrence_valuation_selected_power. ((((exists bpvi_h_blrr_recurrence_valuation_selected_power_factor. bpvi_h_blrr_recurrence_valuation_selected_power_factor + S (bpvi_factor_blrr_recurrence_valuation_selected_power) = S ((S (bpvi_j_blrr_recurrence_valuation_selected_power)) * bpvi_c_blrr_recurrence_valuation_selected_power)) /\ exists bpvi_q_blrr_recurrence_valuation_selected_power_factor. bpvi_b_blrr_recurrence_valuation_selected_power = bpvi_q_blrr_recurrence_valuation_selected_power_factor * S ((S (bpvi_j_blrr_recurrence_valuation_selected_power)) * bpvi_c_blrr_recurrence_valuation_selected_power) + (bpvi_factor_blrr_recurrence_valuation_selected_power))) /\ ((((exists bpvi_h_blrr_recurrence_valuation_selected_power_partial. bpvi_h_blrr_recurrence_valuation_selected_power_partial + S (bpvi_partial_blrr_recurrence_valuation_selected_power) = S ((S (bpvi_j_blrr_recurrence_valuation_selected_power)) * bpvi_v_blrr_recurrence_valuation_selected_power)) /\ exists bpvi_q_blrr_recurrence_valuation_selected_power_partial. bpvi_u_blrr_recurrence_valuation_selected_power = bpvi_q_blrr_recurrence_valuation_selected_power_partial * S ((S (bpvi_j_blrr_recurrence_valuation_selected_power)) * bpvi_v_blrr_recurrence_valuation_selected_power) + (bpvi_partial_blrr_recurrence_valuation_selected_power))) /\ ((((exists bpvi_h_blrr_recurrence_valuation_selected_power_successor. bpvi_h_blrr_recurrence_valuation_selected_power_successor + S (bpvi_successor_blrr_recurrence_valuation_selected_power) = S ((S (S bpvi_j_blrr_recurrence_valuation_selected_power)) * bpvi_v_blrr_recurrence_valuation_selected_power)) /\ exists bpvi_q_blrr_recurrence_valuation_selected_power_successor. bpvi_u_blrr_recurrence_valuation_selected_power = bpvi_q_blrr_recurrence_valuation_selected_power_successor * S ((S (S bpvi_j_blrr_recurrence_valuation_selected_power)) * bpvi_v_blrr_recurrence_valuation_selected_power) + (bpvi_successor_blrr_recurrence_valuation_selected_power))) /\ bpvi_successor_blrr_recurrence_valuation_selected_power = bpvi_partial_blrr_recurrence_valuation_selected_power * bpvi_factor_blrr_recurrence_valuation_selected_power)))))))) /\ exists bpvi_divisor_factor_blrr_recurrence_valuation_selected. S n = bpvi_result_blrr_recurrence_valuation_selected * bpvi_divisor_factor_blrr_recurrence_valuation_selected))) /\ forall blsr_candidate_blrr_recurrence_valuation. (exists blsr_le_gap_blrr_recurrence_valuation_candidate_bound. blsr_le_gap_blrr_recurrence_valuation_candidate_bound + (blsr_candidate_blrr_recurrence_valuation) = (S n)) -> (exists bpvi_result_blrr_recurrence_valuation_candidate. ((exists bpvi_b_blrr_recurrence_valuation_candidate_power bpvi_c_blrr_recurrence_valuation_candidate_power. ((forall bpvi_i_blrr_recurrence_valuation_candidate_power. (exists bpvi_repeat_gap_blrr_recurrence_valuation_candidate_power. bpvi_repeat_gap_blrr_recurrence_valuation_candidate_power + S bpvi_i_blrr_recurrence_valuation_candidate_power = blsr_candidate_blrr_recurrence_valuation) -> (((exists bpvi_h_blrr_recurrence_valuation_candidate_power_repeat. bpvi_h_blrr_recurrence_valuation_candidate_power_repeat + S (p) = S ((S (bpvi_i_blrr_recurrence_valuation_candidate_power)) * bpvi_c_blrr_recurrence_valuation_candidate_power)) /\ exists bpvi_q_blrr_recurrence_valuation_candidate_power_repeat. bpvi_b_blrr_recurrence_valuation_candidate_power = bpvi_q_blrr_recurrence_valuation_candidate_power_repeat * S ((S (bpvi_i_blrr_recurrence_valuation_candidate_power)) * bpvi_c_blrr_recurrence_valuation_candidate_power) + (p)))) /\ (exists bpvi_u_blrr_recurrence_valuation_candidate_power bpvi_v_blrr_recurrence_valuation_candidate_power. ((((exists bpvi_h_blrr_recurrence_valuation_candidate_power_start. bpvi_h_blrr_recurrence_valuation_candidate_power_start + S (1) = S ((S (0)) * bpvi_v_blrr_recurrence_valuation_candidate_power)) /\ exists bpvi_q_blrr_recurrence_valuation_candidate_power_start. bpvi_u_blrr_recurrence_valuation_candidate_power = bpvi_q_blrr_recurrence_valuation_candidate_power_start * S ((S (0)) * bpvi_v_blrr_recurrence_valuation_candidate_power) + (1))) /\ ((((exists bpvi_h_blrr_recurrence_valuation_candidate_power_terminal. bpvi_h_blrr_recurrence_valuation_candidate_power_terminal + S (bpvi_result_blrr_recurrence_valuation_candidate) = S ((S (blsr_candidate_blrr_recurrence_valuation)) * bpvi_v_blrr_recurrence_valuation_candidate_power)) /\ exists bpvi_q_blrr_recurrence_valuation_candidate_power_terminal. bpvi_u_blrr_recurrence_valuation_candidate_power = bpvi_q_blrr_recurrence_valuation_candidate_power_terminal * S ((S (blsr_candidate_blrr_recurrence_valuation)) * bpvi_v_blrr_recurrence_valuation_candidate_power) + (bpvi_result_blrr_recurrence_valuation_candidate))) /\ forall bpvi_j_blrr_recurrence_valuation_candidate_power. (exists bpvi_product_gap_blrr_recurrence_valuation_candidate_power. bpvi_product_gap_blrr_recurrence_valuation_candidate_power + S bpvi_j_blrr_recurrence_valuation_candidate_power = blsr_candidate_blrr_recurrence_valuation) -> exists bpvi_factor_blrr_recurrence_valuation_candidate_power bpvi_partial_blrr_recurrence_valuation_candidate_power bpvi_successor_blrr_recurrence_valuation_candidate_power. ((((exists bpvi_h_blrr_recurrence_valuation_candidate_power_factor. bpvi_h_blrr_recurrence_valuation_candidate_power_factor + S (bpvi_factor_blrr_recurrence_valuation_candidate_power) = S ((S (bpvi_j_blrr_recurrence_valuation_candidate_power)) * bpvi_c_blrr_recurrence_valuation_candidate_power)) /\ exists bpvi_q_blrr_recurrence_valuation_candidate_power_factor. bpvi_b_blrr_recurrence_valuation_candidate_power = bpvi_q_blrr_recurrence_valuation_candidate_power_factor * S ((S (bpvi_j_blrr_recurrence_valuation_candidate_power)) * bpvi_c_blrr_recurrence_valuation_candidate_power) + (bpvi_factor_blrr_recurrence_valuation_candidate_power))) /\ ((((exists bpvi_h_blrr_recurrence_valuation_candidate_power_partial. bpvi_h_blrr_recurrence_valuation_candidate_power_partial + S (bpvi_partial_blrr_recurrence_valuation_candidate_power) = S ((S (bpvi_j_blrr_recurrence_valuation_candidate_power)) * bpvi_v_blrr_recurrence_valuation_candidate_power)) /\ exists bpvi_q_blrr_recurrence_valuation_candidate_power_partial. bpvi_u_blrr_recurrence_valuation_candidate_power = bpvi_q_blrr_recurrence_valuation_candidate_power_partial * S ((S (bpvi_j_blrr_recurrence_valuation_candidate_power)) * bpvi_v_blrr_recurrence_valuation_candidate_power) + (bpvi_partial_blrr_recurrence_valuation_candidate_power))) /\ ((((exists bpvi_h_blrr_recurrence_valuation_candidate_power_successor. bpvi_h_blrr_recurrence_valuation_candidate_power_successor + S (bpvi_successor_blrr_recurrence_valuation_candidate_power) = S ((S (S bpvi_j_blrr_recurrence_valuation_candidate_power)) * bpvi_v_blrr_recurrence_valuation_candidate_power)) /\ exists bpvi_q_blrr_recurrence_valuation_candidate_power_successor. bpvi_u_blrr_recurrence_valuation_candidate_power = bpvi_q_blrr_recurrence_valuation_candidate_power_successor * S ((S (S bpvi_j_blrr_recurrence_valuation_candidate_power)) * bpvi_v_blrr_recurrence_valuation_candidate_power) + (bpvi_successor_blrr_recurrence_valuation_candidate_power))) /\ bpvi_successor_blrr_recurrence_valuation_candidate_power = bpvi_partial_blrr_recurrence_valuation_candidate_power * bpvi_factor_blrr_recurrence_valuation_candidate_power)))))))) /\ exists bpvi_divisor_factor_blrr_recurrence_valuation_candidate. S n = bpvi_result_blrr_recurrence_valuation_candidate * bpvi_divisor_factor_blrr_recurrence_valuation_candidate)) -> (exists blsr_le_gap_blrr_recurrence_valuation_maximal. blsr_le_gap_blrr_recurrence_valuation_maximal + (blsr_candidate_blrr_recurrence_valuation) = (f)))) -> (exists bls_code_blrr_recurrence_old bls_scale_blrr_recurrence_old. ((forall bls_index_blrr_recurrence_old_prefix. (exists bls_gap_blrr_recurrence_old_prefix_bound. bls_gap_blrr_recurrence_old_prefix_bound + S (bls_index_blrr_recurrence_old_prefix) = (n)) -> exists bls_power_blrr_recurrence_old_prefix bls_quotient_blrr_recurrence_old_prefix bls_remainder_blrr_recurrence_old_prefix. ((exists bpvi_b_bls_blrr_recurrence_old_prefix_power bpvi_c_bls_blrr_recurrence_old_prefix_power. ((forall bpvi_i_bls_blrr_recurrence_old_prefix_power. (exists bpvi_repeat_gap_bls_blrr_recurrence_old_prefix_power. bpvi_repeat_gap_bls_blrr_recurrence_old_prefix_power + S bpvi_i_bls_blrr_recurrence_old_prefix_power = S bls_index_blrr_recurrence_old_prefix) -> (((exists bpvi_h_bls_blrr_recurrence_old_prefix_power_repeat. bpvi_h_bls_blrr_recurrence_old_prefix_power_repeat + S (p) = S ((S (bpvi_i_bls_blrr_recurrence_old_prefix_power)) * bpvi_c_bls_blrr_recurrence_old_prefix_power)) /\ exists bpvi_q_bls_blrr_recurrence_old_prefix_power_repeat. bpvi_b_bls_blrr_recurrence_old_prefix_power = bpvi_q_bls_blrr_recurrence_old_prefix_power_repeat * S ((S (bpvi_i_bls_blrr_recurrence_old_prefix_power)) * bpvi_c_bls_blrr_recurrence_old_prefix_power) + (p)))) /\ (exists bpvi_u_bls_blrr_recurrence_old_prefix_power bpvi_v_bls_blrr_recurrence_old_prefix_power. ((((exists bpvi_h_bls_blrr_recurrence_old_prefix_power_start. bpvi_h_bls_blrr_recurrence_old_prefix_power_start + S (1) = S ((S (0)) * bpvi_v_bls_blrr_recurrence_old_prefix_power)) /\ exists bpvi_q_bls_blrr_recurrence_old_prefix_power_start. bpvi_u_bls_blrr_recurrence_old_prefix_power = bpvi_q_bls_blrr_recurrence_old_prefix_power_start * S ((S (0)) * bpvi_v_bls_blrr_recurrence_old_prefix_power) + (1))) /\ ((((exists bpvi_h_bls_blrr_recurrence_old_prefix_power_terminal. bpvi_h_bls_blrr_recurrence_old_prefix_power_terminal + S (bls_power_blrr_recurrence_old_prefix) = S ((S (S bls_index_blrr_recurrence_old_prefix)) * bpvi_v_bls_blrr_recurrence_old_prefix_power)) /\ exists bpvi_q_bls_blrr_recurrence_old_prefix_power_terminal. bpvi_u_bls_blrr_recurrence_old_prefix_power = bpvi_q_bls_blrr_recurrence_old_prefix_power_terminal * S ((S (S bls_index_blrr_recurrence_old_prefix)) * bpvi_v_bls_blrr_recurrence_old_prefix_power) + (bls_power_blrr_recurrence_old_prefix))) /\ forall bpvi_j_bls_blrr_recurrence_old_prefix_power. (exists bpvi_product_gap_bls_blrr_recurrence_old_prefix_power. bpvi_product_gap_bls_blrr_recurrence_old_prefix_power + S bpvi_j_bls_blrr_recurrence_old_prefix_power = S bls_index_blrr_recurrence_old_prefix) -> exists bpvi_factor_bls_blrr_recurrence_old_prefix_power bpvi_partial_bls_blrr_recurrence_old_prefix_power bpvi_successor_bls_blrr_recurrence_old_prefix_power. ((((exists bpvi_h_bls_blrr_recurrence_old_prefix_power_factor. bpvi_h_bls_blrr_recurrence_old_prefix_power_factor + S (bpvi_factor_bls_blrr_recurrence_old_prefix_power) = S ((S (bpvi_j_bls_blrr_recurrence_old_prefix_power)) * bpvi_c_bls_blrr_recurrence_old_prefix_power)) /\ exists bpvi_q_bls_blrr_recurrence_old_prefix_power_factor. bpvi_b_bls_blrr_recurrence_old_prefix_power = bpvi_q_bls_blrr_recurrence_old_prefix_power_factor * S ((S (bpvi_j_bls_blrr_recurrence_old_prefix_power)) * bpvi_c_bls_blrr_recurrence_old_prefix_power) + (bpvi_factor_bls_blrr_recurrence_old_prefix_power))) /\ ((((exists bpvi_h_bls_blrr_recurrence_old_prefix_power_partial. bpvi_h_bls_blrr_recurrence_old_prefix_power_partial + S (bpvi_partial_bls_blrr_recurrence_old_prefix_power) = S ((S (bpvi_j_bls_blrr_recurrence_old_prefix_power)) * bpvi_v_bls_blrr_recurrence_old_prefix_power)) /\ exists bpvi_q_bls_blrr_recurrence_old_prefix_power_partial. bpvi_u_bls_blrr_recurrence_old_prefix_power = bpvi_q_bls_blrr_recurrence_old_prefix_power_partial * S ((S (bpvi_j_bls_blrr_recurrence_old_prefix_power)) * bpvi_v_bls_blrr_recurrence_old_prefix_power) + (bpvi_partial_bls_blrr_recurrence_old_prefix_power))) /\ ((((exists bpvi_h_bls_blrr_recurrence_old_prefix_power_successor. bpvi_h_bls_blrr_recurrence_old_prefix_power_successor + S (bpvi_successor_bls_blrr_recurrence_old_prefix_power) = S ((S (S bpvi_j_bls_blrr_recurrence_old_prefix_power)) * bpvi_v_bls_blrr_recurrence_old_prefix_power)) /\ exists bpvi_q_bls_blrr_recurrence_old_prefix_power_successor. bpvi_u_bls_blrr_recurrence_old_prefix_power = bpvi_q_bls_blrr_recurrence_old_prefix_power_successor * S ((S (S bpvi_j_bls_blrr_recurrence_old_prefix_power)) * bpvi_v_bls_blrr_recurrence_old_prefix_power) + (bpvi_successor_bls_blrr_recurrence_old_prefix_power))) /\ bpvi_successor_bls_blrr_recurrence_old_prefix_power = bpvi_partial_bls_blrr_recurrence_old_prefix_power * bpvi_factor_bls_blrr_recurrence_old_prefix_power)))))))) /\ ((((exists ff_h_bls_blrr_recurrence_old_prefix_quotient_entry. ff_h_bls_blrr_recurrence_old_prefix_quotient_entry + S (bls_quotient_blrr_recurrence_old_prefix) = S ((S (bls_index_blrr_recurrence_old_prefix)) * bls_scale_blrr_recurrence_old)) /\ exists ff_q_bls_blrr_recurrence_old_prefix_quotient_entry. bls_code_blrr_recurrence_old = ff_q_bls_blrr_recurrence_old_prefix_quotient_entry * S ((S (bls_index_blrr_recurrence_old_prefix)) * bls_scale_blrr_recurrence_old) + (bls_quotient_blrr_recurrence_old_prefix))) /\ ((n = bls_power_blrr_recurrence_old_prefix * bls_quotient_blrr_recurrence_old_prefix + bls_remainder_blrr_recurrence_old_prefix /\ exists bls_remainder_gap_blrr_recurrence_old_prefix_division. bls_remainder_gap_blrr_recurrence_old_prefix_division + S (bls_remainder_blrr_recurrence_old_prefix) = bls_power_blrr_recurrence_old_prefix))))) /\ (exists ff_u_bls_blrr_recurrence_old_sum ff_v_bls_blrr_recurrence_old_sum. ((((exists ff_h_bls_blrr_recurrence_old_sum_start. ff_h_bls_blrr_recurrence_old_sum_start + S (0) = S ((S (0)) * ff_v_bls_blrr_recurrence_old_sum)) /\ exists ff_q_bls_blrr_recurrence_old_sum_start. ff_u_bls_blrr_recurrence_old_sum = ff_q_bls_blrr_recurrence_old_sum_start * S ((S (0)) * ff_v_bls_blrr_recurrence_old_sum) + (0))) /\ ((((exists ff_h_bls_blrr_recurrence_old_sum_terminal. ff_h_bls_blrr_recurrence_old_sum_terminal + S (e) = S ((S (n)) * ff_v_bls_blrr_recurrence_old_sum)) /\ exists ff_q_bls_blrr_recurrence_old_sum_terminal. ff_u_bls_blrr_recurrence_old_sum = ff_q_bls_blrr_recurrence_old_sum_terminal * S ((S (n)) * ff_v_bls_blrr_recurrence_old_sum) + (e))) /\ forall ff_i_bls_blrr_recurrence_old_sum. (exists ff_lt_bls_blrr_recurrence_old_sum_bound. ff_lt_bls_blrr_recurrence_old_sum_bound + S ff_i_bls_blrr_recurrence_old_sum = n) -> exists ff_a_bls_blrr_recurrence_old_sum ff_r_bls_blrr_recurrence_old_sum ff_s_bls_blrr_recurrence_old_sum. ((((exists ff_h_bls_blrr_recurrence_old_sum_summand. ff_h_bls_blrr_recurrence_old_sum_summand + S (ff_a_bls_blrr_recurrence_old_sum) = S ((S (ff_i_bls_blrr_recurrence_old_sum)) * bls_scale_blrr_recurrence_old)) /\ exists ff_q_bls_blrr_recurrence_old_sum_summand. bls_code_blrr_recurrence_old = ff_q_bls_blrr_recurrence_old_sum_summand * S ((S (ff_i_bls_blrr_recurrence_old_sum)) * bls_scale_blrr_recurrence_old) + (ff_a_bls_blrr_recurrence_old_sum))) /\ ((((exists ff_h_bls_blrr_recurrence_old_sum_partial. ff_h_bls_blrr_recurrence_old_sum_partial + S (ff_r_bls_blrr_recurrence_old_sum) = S ((S (ff_i_bls_blrr_recurrence_old_sum)) * ff_v_bls_blrr_recurrence_old_sum)) /\ exists ff_q_bls_blrr_recurrence_old_sum_partial. ff_u_bls_blrr_recurrence_old_sum = ff_q_bls_blrr_recurrence_old_sum_partial * S ((S (ff_i_bls_blrr_recurrence_old_sum)) * ff_v_bls_blrr_recurrence_old_sum) + (ff_r_bls_blrr_recurrence_old_sum))) /\ ((((exists ff_h_bls_blrr_recurrence_old_sum_successor. ff_h_bls_blrr_recurrence_old_sum_successor + S (ff_s_bls_blrr_recurrence_old_sum) = S ((S (S ff_i_bls_blrr_recurrence_old_sum)) * ff_v_bls_blrr_recurrence_old_sum)) /\ exists ff_q_bls_blrr_recurrence_old_sum_successor. ff_u_bls_blrr_recurrence_old_sum = ff_q_bls_blrr_recurrence_old_sum_successor * S ((S (S ff_i_bls_blrr_recurrence_old_sum)) * ff_v_bls_blrr_recurrence_old_sum) + (ff_s_bls_blrr_recurrence_old_sum))) /\ ff_s_bls_blrr_recurrence_old_sum = ff_r_bls_blrr_recurrence_old_sum + ff_a_bls_blrr_recurrence_old_sum)))))))) -> (exists blrr_code_recurrence_new blrr_scale_recurrence_new. ((forall bls_index_recurrence_new_prefix. (exists bls_gap_recurrence_new_prefix_bound. bls_gap_recurrence_new_prefix_bound + S (bls_index_recurrence_new_prefix) = (S n)) -> exists bls_power_recurrence_new_prefix bls_quotient_recurrence_new_prefix bls_remainder_recurrence_new_prefix. ((exists bpvi_b_bls_recurrence_new_prefix_power bpvi_c_bls_recurrence_new_prefix_power. ((forall bpvi_i_bls_recurrence_new_prefix_power. (exists bpvi_repeat_gap_bls_recurrence_new_prefix_power. bpvi_repeat_gap_bls_recurrence_new_prefix_power + S bpvi_i_bls_recurrence_new_prefix_power = S bls_index_recurrence_new_prefix) -> (((exists bpvi_h_bls_recurrence_new_prefix_power_repeat. bpvi_h_bls_recurrence_new_prefix_power_repeat + S (p) = S ((S (bpvi_i_bls_recurrence_new_prefix_power)) * bpvi_c_bls_recurrence_new_prefix_power)) /\ exists bpvi_q_bls_recurrence_new_prefix_power_repeat. bpvi_b_bls_recurrence_new_prefix_power = bpvi_q_bls_recurrence_new_prefix_power_repeat * S ((S (bpvi_i_bls_recurrence_new_prefix_power)) * bpvi_c_bls_recurrence_new_prefix_power) + (p)))) /\ (exists bpvi_u_bls_recurrence_new_prefix_power bpvi_v_bls_recurrence_new_prefix_power. ((((exists bpvi_h_bls_recurrence_new_prefix_power_start. bpvi_h_bls_recurrence_new_prefix_power_start + S (1) = S ((S (0)) * bpvi_v_bls_recurrence_new_prefix_power)) /\ exists bpvi_q_bls_recurrence_new_prefix_power_start. bpvi_u_bls_recurrence_new_prefix_power = bpvi_q_bls_recurrence_new_prefix_power_start * S ((S (0)) * bpvi_v_bls_recurrence_new_prefix_power) + (1))) /\ ((((exists bpvi_h_bls_recurrence_new_prefix_power_terminal. bpvi_h_bls_recurrence_new_prefix_power_terminal + S (bls_power_recurrence_new_prefix) = S ((S (S bls_index_recurrence_new_prefix)) * bpvi_v_bls_recurrence_new_prefix_power)) /\ exists bpvi_q_bls_recurrence_new_prefix_power_terminal. bpvi_u_bls_recurrence_new_prefix_power = bpvi_q_bls_recurrence_new_prefix_power_terminal * S ((S (S bls_index_recurrence_new_prefix)) * bpvi_v_bls_recurrence_new_prefix_power) + (bls_power_recurrence_new_prefix))) /\ forall bpvi_j_bls_recurrence_new_prefix_power. (exists bpvi_product_gap_bls_recurrence_new_prefix_power. bpvi_product_gap_bls_recurrence_new_prefix_power + S bpvi_j_bls_recurrence_new_prefix_power = S bls_index_recurrence_new_prefix) -> exists bpvi_factor_bls_recurrence_new_prefix_power bpvi_partial_bls_recurrence_new_prefix_power bpvi_successor_bls_recurrence_new_prefix_power. ((((exists bpvi_h_bls_recurrence_new_prefix_power_factor. bpvi_h_bls_recurrence_new_prefix_power_factor + S (bpvi_factor_bls_recurrence_new_prefix_power) = S ((S (bpvi_j_bls_recurrence_new_prefix_power)) * bpvi_c_bls_recurrence_new_prefix_power)) /\ exists bpvi_q_bls_recurrence_new_prefix_power_factor. bpvi_b_bls_recurrence_new_prefix_power = bpvi_q_bls_recurrence_new_prefix_power_factor * S ((S (bpvi_j_bls_recurrence_new_prefix_power)) * bpvi_c_bls_recurrence_new_prefix_power) + (bpvi_factor_bls_recurrence_new_prefix_power))) /\ ((((exists bpvi_h_bls_recurrence_new_prefix_power_partial. bpvi_h_bls_recurrence_new_prefix_power_partial + S (bpvi_partial_bls_recurrence_new_prefix_power) = S ((S (bpvi_j_bls_recurrence_new_prefix_power)) * bpvi_v_bls_recurrence_new_prefix_power)) /\ exists bpvi_q_bls_recurrence_new_prefix_power_partial. bpvi_u_bls_recurrence_new_prefix_power = bpvi_q_bls_recurrence_new_prefix_power_partial * S ((S (bpvi_j_bls_recurrence_new_prefix_power)) * bpvi_v_bls_recurrence_new_prefix_power) + (bpvi_partial_bls_recurrence_new_prefix_power))) /\ ((((exists bpvi_h_bls_recurrence_new_prefix_power_successor. bpvi_h_bls_recurrence_new_prefix_power_successor + S (bpvi_successor_bls_recurrence_new_prefix_power) = S ((S (S bpvi_j_bls_recurrence_new_prefix_power)) * bpvi_v_bls_recurrence_new_prefix_power)) /\ exists bpvi_q_bls_recurrence_new_prefix_power_successor. bpvi_u_bls_recurrence_new_prefix_power = bpvi_q_bls_recurrence_new_prefix_power_successor * S ((S (S bpvi_j_bls_recurrence_new_prefix_power)) * bpvi_v_bls_recurrence_new_prefix_power) + (bpvi_successor_bls_recurrence_new_prefix_power))) /\ bpvi_successor_bls_recurrence_new_prefix_power = bpvi_partial_bls_recurrence_new_prefix_power * bpvi_factor_bls_recurrence_new_prefix_power)))))))) /\ ((((exists ff_h_bls_recurrence_new_prefix_quotient_entry. ff_h_bls_recurrence_new_prefix_quotient_entry + S (bls_quotient_recurrence_new_prefix) = S ((S (bls_index_recurrence_new_prefix)) * blrr_scale_recurrence_new)) /\ exists ff_q_bls_recurrence_new_prefix_quotient_entry. blrr_code_recurrence_new = ff_q_bls_recurrence_new_prefix_quotient_entry * S ((S (bls_index_recurrence_new_prefix)) * blrr_scale_recurrence_new) + (bls_quotient_recurrence_new_prefix))) /\ ((S n = bls_power_recurrence_new_prefix * bls_quotient_recurrence_new_prefix + bls_remainder_recurrence_new_prefix /\ exists bls_remainder_gap_recurrence_new_prefix_division. bls_remainder_gap_recurrence_new_prefix_division + S (bls_remainder_recurrence_new_prefix) = bls_power_recurrence_new_prefix))))) /\ (exists fs_u_blrr_recurrence_new_sum fs_v_blrr_recurrence_new_sum. ((((exists fs_h_blrr_recurrence_new_sum_body_start. fs_h_blrr_recurrence_new_sum_body_start + S (0) = S ((S (0)) * fs_v_blrr_recurrence_new_sum)) /\ exists fs_q_blrr_recurrence_new_sum_body_start. fs_u_blrr_recurrence_new_sum = fs_q_blrr_recurrence_new_sum_body_start * S ((S (0)) * fs_v_blrr_recurrence_new_sum) + (0))) /\ ((((exists fs_h_blrr_recurrence_new_sum_body_terminal. fs_h_blrr_recurrence_new_sum_body_terminal + S (g) = S ((S (S n)) * fs_v_blrr_recurrence_new_sum)) /\ exists fs_q_blrr_recurrence_new_sum_body_terminal. fs_u_blrr_recurrence_new_sum = fs_q_blrr_recurrence_new_sum_body_terminal * S ((S (S n)) * fs_v_blrr_recurrence_new_sum) + (g))) /\ forall fs_i_blrr_recurrence_new_sum_body_steps. (exists fs_lt_blrr_recurrence_new_sum_body_steps_bound. fs_lt_blrr_recurrence_new_sum_body_steps_bound + S fs_i_blrr_recurrence_new_sum_body_steps = S n) -> exists fs_a_blrr_recurrence_new_sum_body_steps fs_r_blrr_recurrence_new_sum_body_steps fs_s_blrr_recurrence_new_sum_body_steps. ((((exists fs_h_blrr_recurrence_new_sum_body_steps_summand. fs_h_blrr_recurrence_new_sum_body_steps_summand + S (fs_a_blrr_recurrence_new_sum_body_steps) = S ((S (fs_i_blrr_recurrence_new_sum_body_steps)) * blrr_scale_recurrence_new)) /\ exists fs_q_blrr_recurrence_new_sum_body_steps_summand. blrr_code_recurrence_new = fs_q_blrr_recurrence_new_sum_body_steps_summand * S ((S (fs_i_blrr_recurrence_new_sum_body_steps)) * blrr_scale_recurrence_new) + (fs_a_blrr_recurrence_new_sum_body_steps))) /\ ((((exists fs_h_blrr_recurrence_new_sum_body_steps_partial. fs_h_blrr_recurrence_new_sum_body_steps_partial + S (fs_r_blrr_recurrence_new_sum_body_steps) = S ((S (fs_i_blrr_recurrence_new_sum_body_steps)) * fs_v_blrr_recurrence_new_sum)) /\ exists fs_q_blrr_recurrence_new_sum_body_steps_partial. fs_u_blrr_recurrence_new_sum = fs_q_blrr_recurrence_new_sum_body_steps_partial * S ((S (fs_i_blrr_recurrence_new_sum_body_steps)) * fs_v_blrr_recurrence_new_sum) + (fs_r_blrr_recurrence_new_sum_body_steps))) /\ ((((exists fs_h_blrr_recurrence_new_sum_body_steps_successor. fs_h_blrr_recurrence_new_sum_body_steps_successor + S (fs_s_blrr_recurrence_new_sum_body_steps) = S ((S (S fs_i_blrr_recurrence_new_sum_body_steps)) * fs_v_blrr_recurrence_new_sum)) /\ exists fs_q_blrr_recurrence_new_sum_body_steps_successor. fs_u_blrr_recurrence_new_sum = fs_q_blrr_recurrence_new_sum_body_steps_successor * S ((S (S fs_i_blrr_recurrence_new_sum_body_steps)) * fs_v_blrr_recurrence_new_sum) + (fs_s_blrr_recurrence_new_sum_body_steps))) /\ fs_s_blrr_recurrence_new_sum_body_steps = fs_r_blrr_recurrence_new_sum_body_steps + fs_a_blrr_recurrence_new_sum_body_steps)))))))) -> g = e + f

Proof neighborhood

Direct theorem prerequisites

Direct 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

66 script commands · 12 reading checkpoints · 4 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 (4)
01Fix variables and assumptionsL1–9

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

  1. L1
    intro p
  2. L2
    intro n
  3. L3
    intro f
  4. L4
    intro e
  5. L5
    intro g
  6. L6
    intro hp
  7. L7
    intro hvaluation
  8. L8
    intro hold
  9. L9
    intro hnew
02Establish hvaluation_copyL10–11

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

  1. L10
    have hvaluation_copy : PowerValuation(p,S n,f)Definitions: PowerValuation(p,S n,f)Original native command in the exact edition
  2. L11
    exact hvaluation
03Separate the logical casesL12–13

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

  1. L12
    cases hvaluation_copy
  2. L13
    cases hvaluation_copy_left
04Establish hold_extendedL14–20

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply legendre sum zero extended prefix.

  1. L14
    have hold_extended : ∃ b. ∃ c. PowerQuotPrefix(p,n,b,c,S n) ∧ Sum(b,c,S n,e)Definitions: PowerQuotPrefix(p,n,b,c,S n)Sum(b,c,S n,e)Original native command in the exact edition
  2. L15
    specialize legendre_sum_zero_extended_prefix p
  3. L16
    specialize legendre_sum_zero_extended_prefix n
  4. L17
    specialize legendre_sum_zero_extended_prefix e
  5. L18
    apply legendre_sum_zero_extended_prefix
  6. L19
    exact hp
  7. L20
    exact hold
05Separate the logical casesL21–26

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

  1. L21
    cases hold_extended
  2. L22
    cases hold_extended_witness
  3. L23
    cases hold_extended_witness_witness
  4. L24
    cases hnew
  5. L25
    cases hnew_witness
  6. L26
    cases hnew_witness_witness
06Establish hbitsL27–31

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply initial segment prefix sum exists.

  1. L27
    have hbits : ∃ z. ∃ v. (∀ x. Lt(x,S n) → ∃ y. BetaAt(z,v,x,y) ∧ (y = 1 ∧ Lt(x,f) ∨ y = 0 ∧ Lt(f,S x))) ∧ Sum(z,v,S n,f)Definitions: Lt(x,S n)BetaAt(z,v,x,y)Lt(x,f)Lt(f,S x)Sum(z,v,S n,f)Original native command in the exact edition
  2. L28
    specialize initial_segment_prefix_sum_exists f
  3. L29
    specialize initial_segment_prefix_sum_exists (S n)
  4. L30
    apply initial_segment_prefix_sum_exists
  5. L31
    exact hvaluation_copy_left_left
07Separate the logical casesL32–34

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

  1. L32
    cases hbits
  2. L33
    cases hbits_witness
  3. L34
    cases hbits_witness_witness
08Establish hpointwiseL35–44

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

  1. L35
    have hpointwise : ∀ i. ∀ a. ∀ bit. ∀ s. Lt(i,S n) → BetaAt(x,x1,i,a) → BetaAt(x4,x5,i,bit) → BetaAt(x2,x3,i,s) → s = a + bitDefinitions: Lt(i,S n)BetaAt(x,x1,i,a)BetaAt(x4,x5,i,bit)BetaAt(x2,x3,i,s)Original native command in the exact edition
  2. L36
    specialize power_quotient_successor_pointwise_add p
  3. L37
    specialize power_quotient_successor_pointwise_add n
  4. L38
    specialize power_quotient_successor_pointwise_add f
  5. L39
    specialize power_quotient_successor_pointwise_add x
  6. L40
    specialize power_quotient_successor_pointwise_add x1
  7. L41
    specialize power_quotient_successor_pointwise_add x2
  8. L42
    specialize power_quotient_successor_pointwise_add x3
  9. L43
    specialize power_quotient_successor_pointwise_add x4
  10. L44
    specialize power_quotient_successor_pointwise_add x5
09Use earlier factsL45–50

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

  1. L45
    apply power_quotient_successor_pointwise_add
  2. L46
    exact hp
  3. L47
    exact hvaluation
  4. L48
    exact hold_extended_witness_witness_left
  5. L49
    exact hnew_witness_witness_left
  6. L50
    exact hbits_witness_witness_left
10Calculate and transport equalitiesL51–51

Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.

  1. L51
    symm
11Use earlier factsL52–61

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

  1. L52
    specialize beta_sum_pointwise_add x
  2. L53
    specialize beta_sum_pointwise_add x1
  3. L54
    specialize beta_sum_pointwise_add x4
  4. L55
    specialize beta_sum_pointwise_add x5
  5. L56
    specialize beta_sum_pointwise_add x2
  6. L57
    specialize beta_sum_pointwise_add x3
  7. L58
    specialize beta_sum_pointwise_add (S n)
  8. L59
    specialize beta_sum_pointwise_add e
  9. L60
    specialize beta_sum_pointwise_add f
  10. L61
    specialize beta_sum_pointwise_add g
12Use earlier factsL62–66

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

  1. L62
    apply beta_sum_pointwise_add
  2. L63
    exact hold_extended_witness_witness_right
  3. L64
    exact hbits_witness_witness_right
  4. L65
    exact hnew_witness_witness_right
  5. L66
    exact hpointwise

Library-wide reading audit

Original defined command ledger · 66 lines
  1. 0001intro p
  2. 0002intro n
  3. 0003intro f
  4. 0004intro e
  5. 0005intro g
  6. 0006intro hp
  7. 0007intro hvaluation
  8. 0008intro hold
  9. 0009intro hnew
  10. 0010have hvaluation_copy : PowerValuation(p,S n,f)
    Exact native replay linehave hvaluation_copy : (((exists blsr_le_gap_blrr_recurrence_valuation_exponent_bound. blsr_le_gap_blrr_recurrence_valuation_exponent_bound + (f) = (S n)) /\ (exists bpvi_result_blrr_recurrence_valuation_selected. ((exists bpvi_b_blrr_recurrence_valuation_selected_power bpvi_c_blrr_recurrence_valuation_selected_power. ((forall bpvi_i_blrr_recurrence_valuation_selected_power. (exists bpvi_repeat_gap_blrr_recurrence_valuation_selected_power. bpvi_repeat_gap_blrr_recurrence_valuation_selected_power + S bpvi_i_blrr_recurrence_valuation_selected_power = f) -> (((exists bpvi_h_blrr_recurrence_valuation_selected_power_repeat. bpvi_h_blrr_recurrence_valuation_selected_power_repeat + S (p) = S ((S (bpvi_i_blrr_recurrence_valuation_selected_power)) * bpvi_c_blrr_recurrence_valuation_selected_power)) /\ exists bpvi_q_blrr_recurrence_valuation_selected_power_repeat. bpvi_b_blrr_recurrence_valuation_selected_power = bpvi_q_blrr_recurrence_valuation_selected_power_repeat * S ((S (bpvi_i_blrr_recurrence_valuation_selected_power)) * bpvi_c_blrr_recurrence_valuation_selected_power) + (p)))) /\ (exists bpvi_u_blrr_recurrence_valuation_selected_power bpvi_v_blrr_recurrence_valuation_selected_power. ((((exists bpvi_h_blrr_recurrence_valuation_selected_power_start. bpvi_h_blrr_recurrence_valuation_selected_power_start + S (1) = S ((S (0)) * bpvi_v_blrr_recurrence_valuation_selected_power)) /\ exists bpvi_q_blrr_recurrence_valuation_selected_power_start. bpvi_u_blrr_recurrence_valuation_selected_power = bpvi_q_blrr_recurrence_valuation_selected_power_start * S ((S (0)) * bpvi_v_blrr_recurrence_valuation_selected_power) + (1))) /\ ((((exists bpvi_h_blrr_recurrence_valuation_selected_power_terminal. bpvi_h_blrr_recurrence_valuation_selected_power_terminal + S (bpvi_result_blrr_recurrence_valuation_selected) = S ((S (f)) * bpvi_v_blrr_recurrence_valuation_selected_power)) /\ exists bpvi_q_blrr_recurrence_valuation_selected_power_terminal. bpvi_u_blrr_recurrence_valuation_selected_power = bpvi_q_blrr_recurrence_valuation_selected_power_terminal * S ((S (f)) * bpvi_v_blrr_recurrence_valuation_selected_power) + (bpvi_result_blrr_recurrence_valuation_selected))) /\ forall bpvi_j_blrr_recurrence_valuation_selected_power. (exists bpvi_product_gap_blrr_recurrence_valuation_selected_power. bpvi_product_gap_blrr_recurrence_valuation_selected_power + S bpvi_j_blrr_recurrence_valuation_selected_power = f) -> exists bpvi_factor_blrr_recurrence_valuation_selected_power bpvi_partial_blrr_recurrence_valuation_selected_power bpvi_successor_blrr_recurrence_valuation_selected_power. ((((exists bpvi_h_blrr_recurrence_valuation_selected_power_factor. bpvi_h_blrr_recurrence_valuation_selected_power_factor + S (bpvi_factor_blrr_recurrence_valuation_selected_power) = S ((S (bpvi_j_blrr_recurrence_valuation_selected_power)) * bpvi_c_blrr_recurrence_valuation_selected_power)) /\ exists bpvi_q_blrr_recurrence_valuation_selected_power_factor. bpvi_b_blrr_recurrence_valuation_selected_power = bpvi_q_blrr_recurrence_valuation_selected_power_factor * S ((S (bpvi_j_blrr_recurrence_valuation_selected_power)) * bpvi_c_blrr_recurrence_valuation_selected_power) + (bpvi_factor_blrr_recurrence_valuation_selected_power))) /\ ((((exists bpvi_h_blrr_recurrence_valuation_selected_power_partial. bpvi_h_blrr_recurrence_valuation_selected_power_partial + S (bpvi_partial_blrr_recurrence_valuation_selected_power) = S ((S (bpvi_j_blrr_recurrence_valuation_selected_power)) * bpvi_v_blrr_recurrence_valuation_selected_power)) /\ exists bpvi_q_blrr_recurrence_valuation_selected_power_partial. bpvi_u_blrr_recurrence_valuation_selected_power = bpvi_q_blrr_recurrence_valuation_selected_power_partial * S ((S (bpvi_j_blrr_recurrence_valuation_selected_power)) * bpvi_v_blrr_recurrence_valuation_selected_power) + (bpvi_partial_blrr_recurrence_valuation_selected_power))) /\ ((((exists bpvi_h_blrr_recurrence_valuation_selected_power_successor. bpvi_h_blrr_recurrence_valuation_selected_power_successor + S (bpvi_successor_blrr_recurrence_valuation_selected_power) = S ((S (S bpvi_j_blrr_recurrence_valuation_selected_power)) * bpvi_v_blrr_recurrence_valuation_selected_power)) /\ exists bpvi_q_blrr_recurrence_valuation_selected_power_successor. bpvi_u_blrr_recurrence_valuation_selected_power = bpvi_q_blrr_recurrence_valuation_selected_power_successor * S ((S (S bpvi_j_blrr_recurrence_valuation_selected_power)) * bpvi_v_blrr_recurrence_valuation_selected_power) + (bpvi_successor_blrr_recurrence_valuation_selected_power))) /\ bpvi_successor_blrr_recurrence_valuation_selected_power = bpvi_partial_blrr_recurrence_valuation_selected_power * bpvi_factor_blrr_recurrence_valuation_selected_power)))))))) /\ exists bpvi_divisor_factor_blrr_recurrence_valuation_selected. S n = bpvi_result_blrr_recurrence_valuation_selected * bpvi_divisor_factor_blrr_recurrence_valuation_selected))) /\ forall blsr_candidate_blrr_recurrence_valuation. (exists blsr_le_gap_blrr_recurrence_valuation_candidate_bound. blsr_le_gap_blrr_recurrence_valuation_candidate_bound + (blsr_candidate_blrr_recurrence_valuation) = (S n)) -> (exists bpvi_result_blrr_recurrence_valuation_candidate. ((exists bpvi_b_blrr_recurrence_valuation_candidate_power bpvi_c_blrr_recurrence_valuation_candidate_power. ((forall bpvi_i_blrr_recurrence_valuation_candidate_power. (exists bpvi_repeat_gap_blrr_recurrence_valuation_candidate_power. bpvi_repeat_gap_blrr_recurrence_valuation_candidate_power + S bpvi_i_blrr_recurrence_valuation_candidate_power = blsr_candidate_blrr_recurrence_valuation) -> (((exists bpvi_h_blrr_recurrence_valuation_candidate_power_repeat. bpvi_h_blrr_recurrence_valuation_candidate_power_repeat + S (p) = S ((S (bpvi_i_blrr_recurrence_valuation_candidate_power)) * bpvi_c_blrr_recurrence_valuation_candidate_power)) /\ exists bpvi_q_blrr_recurrence_valuation_candidate_power_repeat. bpvi_b_blrr_recurrence_valuation_candidate_power = bpvi_q_blrr_recurrence_valuation_candidate_power_repeat * S ((S (bpvi_i_blrr_recurrence_valuation_candidate_power)) * bpvi_c_blrr_recurrence_valuation_candidate_power) + (p)))) /\ (exists bpvi_u_blrr_recurrence_valuation_candidate_power bpvi_v_blrr_recurrence_valuation_candidate_power. ((((exists bpvi_h_blrr_recurrence_valuation_candidate_power_start. bpvi_h_blrr_recurrence_valuation_candidate_power_start + S (1) = S ((S (0)) * bpvi_v_blrr_recurrence_valuation_candidate_power)) /\ exists bpvi_q_blrr_recurrence_valuation_candidate_power_start. bpvi_u_blrr_recurrence_valuation_candidate_power = bpvi_q_blrr_recurrence_valuation_candidate_power_start * S ((S (0)) * bpvi_v_blrr_recurrence_valuation_candidate_power) + (1))) /\ ((((exists bpvi_h_blrr_recurrence_valuation_candidate_power_terminal. bpvi_h_blrr_recurrence_valuation_candidate_power_terminal + S (bpvi_result_blrr_recurrence_valuation_candidate) = S ((S (blsr_candidate_blrr_recurrence_valuation)) * bpvi_v_blrr_recurrence_valuation_candidate_power)) /\ exists bpvi_q_blrr_recurrence_valuation_candidate_power_terminal. bpvi_u_blrr_recurrence_valuation_candidate_power = bpvi_q_blrr_recurrence_valuation_candidate_power_terminal * S ((S (blsr_candidate_blrr_recurrence_valuation)) * bpvi_v_blrr_recurrence_valuation_candidate_power) + (bpvi_result_blrr_recurrence_valuation_candidate))) /\ forall bpvi_j_blrr_recurrence_valuation_candidate_power. (exists bpvi_product_gap_blrr_recurrence_valuation_candidate_power. bpvi_product_gap_blrr_recurrence_valuation_candidate_power + S bpvi_j_blrr_recurrence_valuation_candidate_power = blsr_candidate_blrr_recurrence_valuation) -> exists bpvi_factor_blrr_recurrence_valuation_candidate_power bpvi_partial_blrr_recurrence_valuation_candidate_power bpvi_successor_blrr_recurrence_valuation_candidate_power. ((((exists bpvi_h_blrr_recurrence_valuation_candidate_power_factor. bpvi_h_blrr_recurrence_valuation_candidate_power_factor + S (bpvi_factor_blrr_recurrence_valuation_candidate_power) = S ((S (bpvi_j_blrr_recurrence_valuation_candidate_power)) * bpvi_c_blrr_recurrence_valuation_candidate_power)) /\ exists bpvi_q_blrr_recurrence_valuation_candidate_power_factor. bpvi_b_blrr_recurrence_valuation_candidate_power = bpvi_q_blrr_recurrence_valuation_candidate_power_factor * S ((S (bpvi_j_blrr_recurrence_valuation_candidate_power)) * bpvi_c_blrr_recurrence_valuation_candidate_power) + (bpvi_factor_blrr_recurrence_valuation_candidate_power))) /\ ((((exists bpvi_h_blrr_recurrence_valuation_candidate_power_partial. bpvi_h_blrr_recurrence_valuation_candidate_power_partial + S (bpvi_partial_blrr_recurrence_valuation_candidate_power) = S ((S (bpvi_j_blrr_recurrence_valuation_candidate_power)) * bpvi_v_blrr_recurrence_valuation_candidate_power)) /\ exists bpvi_q_blrr_recurrence_valuation_candidate_power_partial. bpvi_u_blrr_recurrence_valuation_candidate_power = bpvi_q_blrr_recurrence_valuation_candidate_power_partial * S ((S (bpvi_j_blrr_recurrence_valuation_candidate_power)) * bpvi_v_blrr_recurrence_valuation_candidate_power) + (bpvi_partial_blrr_recurrence_valuation_candidate_power))) /\ ((((exists bpvi_h_blrr_recurrence_valuation_candidate_power_successor. bpvi_h_blrr_recurrence_valuation_candidate_power_successor + S (bpvi_successor_blrr_recurrence_valuation_candidate_power) = S ((S (S bpvi_j_blrr_recurrence_valuation_candidate_power)) * bpvi_v_blrr_recurrence_valuation_candidate_power)) /\ exists bpvi_q_blrr_recurrence_valuation_candidate_power_successor. bpvi_u_blrr_recurrence_valuation_candidate_power = bpvi_q_blrr_recurrence_valuation_candidate_power_successor * S ((S (S bpvi_j_blrr_recurrence_valuation_candidate_power)) * bpvi_v_blrr_recurrence_valuation_candidate_power) + (bpvi_successor_blrr_recurrence_valuation_candidate_power))) /\ bpvi_successor_blrr_recurrence_valuation_candidate_power = bpvi_partial_blrr_recurrence_valuation_candidate_power * bpvi_factor_blrr_recurrence_valuation_candidate_power)))))))) /\ exists bpvi_divisor_factor_blrr_recurrence_valuation_candidate. S n = bpvi_result_blrr_recurrence_valuation_candidate * bpvi_divisor_factor_blrr_recurrence_valuation_candidate)) -> (exists blsr_le_gap_blrr_recurrence_valuation_maximal. blsr_le_gap_blrr_recurrence_valuation_maximal + (blsr_candidate_blrr_recurrence_valuation) = (f)))
  11. 0011exact hvaluation
  12. 0012cases hvaluation_copy
  13. 0013cases hvaluation_copy_left
  14. 0014have hold_extended : ∃ b. ∃ c. PowerQuotPrefix(p,n,b,c,S n)Sum(b,c,S n,e)
    Exact native replay linehave hold_extended : exists b c. ((forall bls_index_blrr_recurrence_old_extended_prefix. (exists bls_gap_blrr_recurrence_old_extended_prefix_bound. bls_gap_blrr_recurrence_old_extended_prefix_bound + S (bls_index_blrr_recurrence_old_extended_prefix) = (S n)) -> exists bls_power_blrr_recurrence_old_extended_prefix bls_quotient_blrr_recurrence_old_extended_prefix bls_remainder_blrr_recurrence_old_extended_prefix. ((exists bpvi_b_bls_blrr_recurrence_old_extended_prefix_power bpvi_c_bls_blrr_recurrence_old_extended_prefix_power. ((forall bpvi_i_bls_blrr_recurrence_old_extended_prefix_power. (exists bpvi_repeat_gap_bls_blrr_recurrence_old_extended_prefix_power. bpvi_repeat_gap_bls_blrr_recurrence_old_extended_prefix_power + S bpvi_i_bls_blrr_recurrence_old_extended_prefix_power = S bls_index_blrr_recurrence_old_extended_prefix) -> (((exists bpvi_h_bls_blrr_recurrence_old_extended_prefix_power_repeat. bpvi_h_bls_blrr_recurrence_old_extended_prefix_power_repeat + S (p) = S ((S (bpvi_i_bls_blrr_recurrence_old_extended_prefix_power)) * bpvi_c_bls_blrr_recurrence_old_extended_prefix_power)) /\ exists bpvi_q_bls_blrr_recurrence_old_extended_prefix_power_repeat. bpvi_b_bls_blrr_recurrence_old_extended_prefix_power = bpvi_q_bls_blrr_recurrence_old_extended_prefix_power_repeat * S ((S (bpvi_i_bls_blrr_recurrence_old_extended_prefix_power)) * bpvi_c_bls_blrr_recurrence_old_extended_prefix_power) + (p)))) /\ (exists bpvi_u_bls_blrr_recurrence_old_extended_prefix_power bpvi_v_bls_blrr_recurrence_old_extended_prefix_power. ((((exists bpvi_h_bls_blrr_recurrence_old_extended_prefix_power_start. bpvi_h_bls_blrr_recurrence_old_extended_prefix_power_start + S (1) = S ((S (0)) * bpvi_v_bls_blrr_recurrence_old_extended_prefix_power)) /\ exists bpvi_q_bls_blrr_recurrence_old_extended_prefix_power_start. bpvi_u_bls_blrr_recurrence_old_extended_prefix_power = bpvi_q_bls_blrr_recurrence_old_extended_prefix_power_start * S ((S (0)) * bpvi_v_bls_blrr_recurrence_old_extended_prefix_power) + (1))) /\ ((((exists bpvi_h_bls_blrr_recurrence_old_extended_prefix_power_terminal. bpvi_h_bls_blrr_recurrence_old_extended_prefix_power_terminal + S (bls_power_blrr_recurrence_old_extended_prefix) = S ((S (S bls_index_blrr_recurrence_old_extended_prefix)) * bpvi_v_bls_blrr_recurrence_old_extended_prefix_power)) /\ exists bpvi_q_bls_blrr_recurrence_old_extended_prefix_power_terminal. bpvi_u_bls_blrr_recurrence_old_extended_prefix_power = bpvi_q_bls_blrr_recurrence_old_extended_prefix_power_terminal * S ((S (S bls_index_blrr_recurrence_old_extended_prefix)) * bpvi_v_bls_blrr_recurrence_old_extended_prefix_power) + (bls_power_blrr_recurrence_old_extended_prefix))) /\ forall bpvi_j_bls_blrr_recurrence_old_extended_prefix_power. (exists bpvi_product_gap_bls_blrr_recurrence_old_extended_prefix_power. bpvi_product_gap_bls_blrr_recurrence_old_extended_prefix_power + S bpvi_j_bls_blrr_recurrence_old_extended_prefix_power = S bls_index_blrr_recurrence_old_extended_prefix) -> exists bpvi_factor_bls_blrr_recurrence_old_extended_prefix_power bpvi_partial_bls_blrr_recurrence_old_extended_prefix_power bpvi_successor_bls_blrr_recurrence_old_extended_prefix_power. ((((exists bpvi_h_bls_blrr_recurrence_old_extended_prefix_power_factor. bpvi_h_bls_blrr_recurrence_old_extended_prefix_power_factor + S (bpvi_factor_bls_blrr_recurrence_old_extended_prefix_power) = S ((S (bpvi_j_bls_blrr_recurrence_old_extended_prefix_power)) * bpvi_c_bls_blrr_recurrence_old_extended_prefix_power)) /\ exists bpvi_q_bls_blrr_recurrence_old_extended_prefix_power_factor. bpvi_b_bls_blrr_recurrence_old_extended_prefix_power = bpvi_q_bls_blrr_recurrence_old_extended_prefix_power_factor * S ((S (bpvi_j_bls_blrr_recurrence_old_extended_prefix_power)) * bpvi_c_bls_blrr_recurrence_old_extended_prefix_power) + (bpvi_factor_bls_blrr_recurrence_old_extended_prefix_power))) /\ ((((exists bpvi_h_bls_blrr_recurrence_old_extended_prefix_power_partial. bpvi_h_bls_blrr_recurrence_old_extended_prefix_power_partial + S (bpvi_partial_bls_blrr_recurrence_old_extended_prefix_power) = S ((S (bpvi_j_bls_blrr_recurrence_old_extended_prefix_power)) * bpvi_v_bls_blrr_recurrence_old_extended_prefix_power)) /\ exists bpvi_q_bls_blrr_recurrence_old_extended_prefix_power_partial. bpvi_u_bls_blrr_recurrence_old_extended_prefix_power = bpvi_q_bls_blrr_recurrence_old_extended_prefix_power_partial * S ((S (bpvi_j_bls_blrr_recurrence_old_extended_prefix_power)) * bpvi_v_bls_blrr_recurrence_old_extended_prefix_power) + (bpvi_partial_bls_blrr_recurrence_old_extended_prefix_power))) /\ ((((exists bpvi_h_bls_blrr_recurrence_old_extended_prefix_power_successor. bpvi_h_bls_blrr_recurrence_old_extended_prefix_power_successor + S (bpvi_successor_bls_blrr_recurrence_old_extended_prefix_power) = S ((S (S bpvi_j_bls_blrr_recurrence_old_extended_prefix_power)) * bpvi_v_bls_blrr_recurrence_old_extended_prefix_power)) /\ exists bpvi_q_bls_blrr_recurrence_old_extended_prefix_power_successor. bpvi_u_bls_blrr_recurrence_old_extended_prefix_power = bpvi_q_bls_blrr_recurrence_old_extended_prefix_power_successor * S ((S (S bpvi_j_bls_blrr_recurrence_old_extended_prefix_power)) * bpvi_v_bls_blrr_recurrence_old_extended_prefix_power) + (bpvi_successor_bls_blrr_recurrence_old_extended_prefix_power))) /\ bpvi_successor_bls_blrr_recurrence_old_extended_prefix_power = bpvi_partial_bls_blrr_recurrence_old_extended_prefix_power * bpvi_factor_bls_blrr_recurrence_old_extended_prefix_power)))))))) /\ ((((exists ff_h_bls_blrr_recurrence_old_extended_prefix_quotient_entry. ff_h_bls_blrr_recurrence_old_extended_prefix_quotient_entry + S (bls_quotient_blrr_recurrence_old_extended_prefix) = S ((S (bls_index_blrr_recurrence_old_extended_prefix)) * c)) /\ exists ff_q_bls_blrr_recurrence_old_extended_prefix_quotient_entry. b = ff_q_bls_blrr_recurrence_old_extended_prefix_quotient_entry * S ((S (bls_index_blrr_recurrence_old_extended_prefix)) * c) + (bls_quotient_blrr_recurrence_old_extended_prefix))) /\ ((n = bls_power_blrr_recurrence_old_extended_prefix * bls_quotient_blrr_recurrence_old_extended_prefix + bls_remainder_blrr_recurrence_old_extended_prefix /\ exists bls_remainder_gap_blrr_recurrence_old_extended_prefix_division. bls_remainder_gap_blrr_recurrence_old_extended_prefix_division + S (bls_remainder_blrr_recurrence_old_extended_prefix) = bls_power_blrr_recurrence_old_extended_prefix))))) /\ (exists fs_u_blrr_recurrence_old_extended_sum fs_v_blrr_recurrence_old_extended_sum. ((((exists fs_h_blrr_recurrence_old_extended_sum_body_start. fs_h_blrr_recurrence_old_extended_sum_body_start + S (0) = S ((S (0)) * fs_v_blrr_recurrence_old_extended_sum)) /\ exists fs_q_blrr_recurrence_old_extended_sum_body_start. fs_u_blrr_recurrence_old_extended_sum = fs_q_blrr_recurrence_old_extended_sum_body_start * S ((S (0)) * fs_v_blrr_recurrence_old_extended_sum) + (0))) /\ ((((exists fs_h_blrr_recurrence_old_extended_sum_body_terminal. fs_h_blrr_recurrence_old_extended_sum_body_terminal + S (e) = S ((S (S n)) * fs_v_blrr_recurrence_old_extended_sum)) /\ exists fs_q_blrr_recurrence_old_extended_sum_body_terminal. fs_u_blrr_recurrence_old_extended_sum = fs_q_blrr_recurrence_old_extended_sum_body_terminal * S ((S (S n)) * fs_v_blrr_recurrence_old_extended_sum) + (e))) /\ forall fs_i_blrr_recurrence_old_extended_sum_body_steps. (exists fs_lt_blrr_recurrence_old_extended_sum_body_steps_bound. fs_lt_blrr_recurrence_old_extended_sum_body_steps_bound + S fs_i_blrr_recurrence_old_extended_sum_body_steps = S n) -> exists fs_a_blrr_recurrence_old_extended_sum_body_steps fs_r_blrr_recurrence_old_extended_sum_body_steps fs_s_blrr_recurrence_old_extended_sum_body_steps. ((((exists fs_h_blrr_recurrence_old_extended_sum_body_steps_summand. fs_h_blrr_recurrence_old_extended_sum_body_steps_summand + S (fs_a_blrr_recurrence_old_extended_sum_body_steps) = S ((S (fs_i_blrr_recurrence_old_extended_sum_body_steps)) * c)) /\ exists fs_q_blrr_recurrence_old_extended_sum_body_steps_summand. b = fs_q_blrr_recurrence_old_extended_sum_body_steps_summand * S ((S (fs_i_blrr_recurrence_old_extended_sum_body_steps)) * c) + (fs_a_blrr_recurrence_old_extended_sum_body_steps))) /\ ((((exists fs_h_blrr_recurrence_old_extended_sum_body_steps_partial. fs_h_blrr_recurrence_old_extended_sum_body_steps_partial + S (fs_r_blrr_recurrence_old_extended_sum_body_steps) = S ((S (fs_i_blrr_recurrence_old_extended_sum_body_steps)) * fs_v_blrr_recurrence_old_extended_sum)) /\ exists fs_q_blrr_recurrence_old_extended_sum_body_steps_partial. fs_u_blrr_recurrence_old_extended_sum = fs_q_blrr_recurrence_old_extended_sum_body_steps_partial * S ((S (fs_i_blrr_recurrence_old_extended_sum_body_steps)) * fs_v_blrr_recurrence_old_extended_sum) + (fs_r_blrr_recurrence_old_extended_sum_body_steps))) /\ ((((exists fs_h_blrr_recurrence_old_extended_sum_body_steps_successor. fs_h_blrr_recurrence_old_extended_sum_body_steps_successor + S (fs_s_blrr_recurrence_old_extended_sum_body_steps) = S ((S (S fs_i_blrr_recurrence_old_extended_sum_body_steps)) * fs_v_blrr_recurrence_old_extended_sum)) /\ exists fs_q_blrr_recurrence_old_extended_sum_body_steps_successor. fs_u_blrr_recurrence_old_extended_sum = fs_q_blrr_recurrence_old_extended_sum_body_steps_successor * S ((S (S fs_i_blrr_recurrence_old_extended_sum_body_steps)) * fs_v_blrr_recurrence_old_extended_sum) + (fs_s_blrr_recurrence_old_extended_sum_body_steps))) /\ fs_s_blrr_recurrence_old_extended_sum_body_steps = fs_r_blrr_recurrence_old_extended_sum_body_steps + fs_a_blrr_recurrence_old_extended_sum_body_steps)))))))
  15. 0015specialize legendre_sum_zero_extended_prefix p
  16. 0016specialize legendre_sum_zero_extended_prefix n
  17. 0017specialize legendre_sum_zero_extended_prefix e
  18. 0018apply legendre_sum_zero_extended_prefix
  19. 0019exact hp
  20. 0020exact hold
  21. 0021cases hold_extended
  22. 0022cases hold_extended_witness
  23. 0023cases hold_extended_witness_witness
  24. 0024cases hnew
  25. 0025cases hnew_witness
  26. 0026cases hnew_witness_witness
  27. 0027have hbits : ∃ z. ∃ v. (∀ x. Lt(x,S n) → ∃ y. BetaAt(z,v,x,y) ∧ (y = 1 ∧ Lt(x,f) ∨ y = 0 ∧ Lt(f,S x))) ∧ Sum(z,v,S n,f)
    Exact native replay linehave hbits : exists z v. ((forall eis_index_blrr_recurrence_bits_prefix. (exists eis_lt_gap_blrr_recurrence_bits_prefix_bound. eis_lt_gap_blrr_recurrence_bits_prefix_bound + S (eis_index_blrr_recurrence_bits_prefix) = S n) -> exists eis_bit_blrr_recurrence_bits_prefix. ((((exists ff_h_eis_blrr_recurrence_bits_prefix_decoded. ff_h_eis_blrr_recurrence_bits_prefix_decoded + S (eis_bit_blrr_recurrence_bits_prefix) = S ((S (eis_index_blrr_recurrence_bits_prefix)) * v)) /\ exists ff_q_eis_blrr_recurrence_bits_prefix_decoded. z = ff_q_eis_blrr_recurrence_bits_prefix_decoded * S ((S (eis_index_blrr_recurrence_bits_prefix)) * v) + (eis_bit_blrr_recurrence_bits_prefix))) /\ (((eis_bit_blrr_recurrence_bits_prefix = 1 /\ (exists eis_le_gap_blrr_recurrence_bits_prefix_choice_inside. eis_le_gap_blrr_recurrence_bits_prefix_choice_inside + (S eis_index_blrr_recurrence_bits_prefix) = f)) \/ (eis_bit_blrr_recurrence_bits_prefix = 0 /\ (exists eis_lt_gap_blrr_recurrence_bits_prefix_choice_outside. eis_lt_gap_blrr_recurrence_bits_prefix_choice_outside + S (f) = S eis_index_blrr_recurrence_bits_prefix)))))) /\ (exists fs_u_blrr_recurrence_bits_sum fs_v_blrr_recurrence_bits_sum. ((((exists fs_h_blrr_recurrence_bits_sum_body_start. fs_h_blrr_recurrence_bits_sum_body_start + S (0) = S ((S (0)) * fs_v_blrr_recurrence_bits_sum)) /\ exists fs_q_blrr_recurrence_bits_sum_body_start. fs_u_blrr_recurrence_bits_sum = fs_q_blrr_recurrence_bits_sum_body_start * S ((S (0)) * fs_v_blrr_recurrence_bits_sum) + (0))) /\ ((((exists fs_h_blrr_recurrence_bits_sum_body_terminal. fs_h_blrr_recurrence_bits_sum_body_terminal + S (f) = S ((S (S n)) * fs_v_blrr_recurrence_bits_sum)) /\ exists fs_q_blrr_recurrence_bits_sum_body_terminal. fs_u_blrr_recurrence_bits_sum = fs_q_blrr_recurrence_bits_sum_body_terminal * S ((S (S n)) * fs_v_blrr_recurrence_bits_sum) + (f))) /\ forall fs_i_blrr_recurrence_bits_sum_body_steps. (exists fs_lt_blrr_recurrence_bits_sum_body_steps_bound. fs_lt_blrr_recurrence_bits_sum_body_steps_bound + S fs_i_blrr_recurrence_bits_sum_body_steps = S n) -> exists fs_a_blrr_recurrence_bits_sum_body_steps fs_r_blrr_recurrence_bits_sum_body_steps fs_s_blrr_recurrence_bits_sum_body_steps. ((((exists fs_h_blrr_recurrence_bits_sum_body_steps_summand. fs_h_blrr_recurrence_bits_sum_body_steps_summand + S (fs_a_blrr_recurrence_bits_sum_body_steps) = S ((S (fs_i_blrr_recurrence_bits_sum_body_steps)) * v)) /\ exists fs_q_blrr_recurrence_bits_sum_body_steps_summand. z = fs_q_blrr_recurrence_bits_sum_body_steps_summand * S ((S (fs_i_blrr_recurrence_bits_sum_body_steps)) * v) + (fs_a_blrr_recurrence_bits_sum_body_steps))) /\ ((((exists fs_h_blrr_recurrence_bits_sum_body_steps_partial. fs_h_blrr_recurrence_bits_sum_body_steps_partial + S (fs_r_blrr_recurrence_bits_sum_body_steps) = S ((S (fs_i_blrr_recurrence_bits_sum_body_steps)) * fs_v_blrr_recurrence_bits_sum)) /\ exists fs_q_blrr_recurrence_bits_sum_body_steps_partial. fs_u_blrr_recurrence_bits_sum = fs_q_blrr_recurrence_bits_sum_body_steps_partial * S ((S (fs_i_blrr_recurrence_bits_sum_body_steps)) * fs_v_blrr_recurrence_bits_sum) + (fs_r_blrr_recurrence_bits_sum_body_steps))) /\ ((((exists fs_h_blrr_recurrence_bits_sum_body_steps_successor. fs_h_blrr_recurrence_bits_sum_body_steps_successor + S (fs_s_blrr_recurrence_bits_sum_body_steps) = S ((S (S fs_i_blrr_recurrence_bits_sum_body_steps)) * fs_v_blrr_recurrence_bits_sum)) /\ exists fs_q_blrr_recurrence_bits_sum_body_steps_successor. fs_u_blrr_recurrence_bits_sum = fs_q_blrr_recurrence_bits_sum_body_steps_successor * S ((S (S fs_i_blrr_recurrence_bits_sum_body_steps)) * fs_v_blrr_recurrence_bits_sum) + (fs_s_blrr_recurrence_bits_sum_body_steps))) /\ fs_s_blrr_recurrence_bits_sum_body_steps = fs_r_blrr_recurrence_bits_sum_body_steps + fs_a_blrr_recurrence_bits_sum_body_steps)))))))
  28. 0028specialize initial_segment_prefix_sum_exists f
  29. 0029specialize initial_segment_prefix_sum_exists (S n)
  30. 0030apply initial_segment_prefix_sum_exists
  31. 0031exact hvaluation_copy_left_left
  32. 0032cases hbits
  33. 0033cases hbits_witness
  34. 0034cases hbits_witness_witness
  35. 0035have hpointwise : ∀ i. ∀ a. ∀ bit. ∀ s. Lt(i,S n)BetaAt(x,x1,i,a)BetaAt(x4,x5,i,bit)BetaAt(x2,x3,i,s) → s = a + bit
    Exact native replay linehave hpointwise : forall i a bit s. (exists blrr_lt_gap_blrr_recurrence_pointwise_bound. blrr_lt_gap_blrr_recurrence_pointwise_bound + S (i) = (S n)) -> (((exists ff_h_blrr_recurrence_pointwise_old. ff_h_blrr_recurrence_pointwise_old + S (a) = S ((S (i)) * x1)) /\ exists ff_q_blrr_recurrence_pointwise_old. x = ff_q_blrr_recurrence_pointwise_old * S ((S (i)) * x1) + (a))) -> (((exists ff_h_blrr_recurrence_pointwise_bit. ff_h_blrr_recurrence_pointwise_bit + S (bit) = S ((S (i)) * x5)) /\ exists ff_q_blrr_recurrence_pointwise_bit. x4 = ff_q_blrr_recurrence_pointwise_bit * S ((S (i)) * x5) + (bit))) -> (((exists ff_h_blrr_recurrence_pointwise_new. ff_h_blrr_recurrence_pointwise_new + S (s) = S ((S (i)) * x3)) /\ exists ff_q_blrr_recurrence_pointwise_new. x2 = ff_q_blrr_recurrence_pointwise_new * S ((S (i)) * x3) + (s))) -> s = a + bit
  36. 0036specialize power_quotient_successor_pointwise_add p
  37. 0037specialize power_quotient_successor_pointwise_add n
  38. 0038specialize power_quotient_successor_pointwise_add f
  39. 0039specialize power_quotient_successor_pointwise_add x
  40. 0040specialize power_quotient_successor_pointwise_add x1
  41. 0041specialize power_quotient_successor_pointwise_add x2
  42. 0042specialize power_quotient_successor_pointwise_add x3
  43. 0043specialize power_quotient_successor_pointwise_add x4
  44. 0044specialize power_quotient_successor_pointwise_add x5
  45. 0045apply power_quotient_successor_pointwise_add
  46. 0046exact hp
  47. 0047exact hvaluation
  48. 0048exact hold_extended_witness_witness_left
  49. 0049exact hnew_witness_witness_left
  50. 0050exact hbits_witness_witness_left
  51. 0051symm
  52. 0052specialize beta_sum_pointwise_add x
  53. 0053specialize beta_sum_pointwise_add x1
  54. 0054specialize beta_sum_pointwise_add x4
  55. 0055specialize beta_sum_pointwise_add x5
  56. 0056specialize beta_sum_pointwise_add x2
  57. 0057specialize beta_sum_pointwise_add x3
  58. 0058specialize beta_sum_pointwise_add (S n)
  59. 0059specialize beta_sum_pointwise_add e
  60. 0060specialize beta_sum_pointwise_add f
  61. 0061specialize beta_sum_pointwise_add g
  62. 0062apply beta_sum_pointwise_add
  63. 0063exact hold_extended_witness_witness_right
  64. 0064exact hbits_witness_witness_right
  65. 0065exact hnew_witness_witness_right
  66. 0066exact hpointwise