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 + fEvery 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 + fProof neighborhood
Direct theorem prerequisites
BT00ST legendre_sum_zero_extended_prefix BT00SU initial_segment_prefix_sum_exists BT00SK power_quotient_successor_pointwise_add BT00K5 beta_sum_pointwise_addDirect 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–9
02Establish hvaluation_copyL10–11
Establish this local claim before using it. It is not an additional assumption.
- L10
have hvaluation_copy : PowerValuation(p,S n,f)Definitions: PowerValuation(p,S n,f)Original native command in the exact edition - L11
exact hvaluation
03Separate the logical casesL12–13
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.
- 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 - L15
specialize legendre_sum_zero_extended_prefix p - L16
specialize legendre_sum_zero_extended_prefix n - L17
specialize legendre_sum_zero_extended_prefix e - L18
apply legendre_sum_zero_extended_prefix - L19
exact hp - L20
exact hold
05Separate the logical casesL21–26
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.
- 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 - L28
specialize initial_segment_prefix_sum_exists f - L29
specialize initial_segment_prefix_sum_exists (S n) - L30
apply initial_segment_prefix_sum_exists - L31
exact hvaluation_copy_left_left
07Separate the logical casesL32–34
08Establish hpointwiseL35–44
Establish this local claim before using it. It is not an additional assumption.
- 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 - L36
specialize power_quotient_successor_pointwise_add p - L37
specialize power_quotient_successor_pointwise_add n - L38
specialize power_quotient_successor_pointwise_add f - L39
specialize power_quotient_successor_pointwise_add x - L40
specialize power_quotient_successor_pointwise_add x1 - L41
specialize power_quotient_successor_pointwise_add x2 - L42
specialize power_quotient_successor_pointwise_add x3 - L43
specialize power_quotient_successor_pointwise_add x4 - L44
specialize power_quotient_successor_pointwise_add x5
09Use earlier factsL45–50
10Calculate and transport equalitiesL51–51
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L51
symm
11Use earlier factsL52–61
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L52
specialize beta_sum_pointwise_add x - L53
specialize beta_sum_pointwise_add x1 - L54
specialize beta_sum_pointwise_add x4 - L55
specialize beta_sum_pointwise_add x5 - L56
specialize beta_sum_pointwise_add x2 - L57
specialize beta_sum_pointwise_add x3 - L58
specialize beta_sum_pointwise_add (S n) - L59
specialize beta_sum_pointwise_add e - L60
specialize beta_sum_pointwise_add f - L61
specialize beta_sum_pointwise_add g
Original defined command ledger · 66 lines
- 0001
intro p - 0002
intro n - 0003
intro f - 0004
intro e - 0005
intro g - 0006
intro hp - 0007
intro hvaluation - 0008
intro hold - 0009
intro hnew - 0010
have hvaluation_copy : PowerValuation(p,S n,f)Exact native replay line
have 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))) - 0011
exact hvaluation - 0012
cases hvaluation_copy - 0013
cases hvaluation_copy_left - 0014
have hold_extended : ∃ b. ∃ c. PowerQuotPrefix(p,n,b,c,S n) ∧ Sum(b,c,S n,e)Exact native replay line
have 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))))))) - 0015
specialize legendre_sum_zero_extended_prefix p - 0016
specialize legendre_sum_zero_extended_prefix n - 0017
specialize legendre_sum_zero_extended_prefix e - 0018
apply legendre_sum_zero_extended_prefix - 0019
exact hp - 0020
exact hold - 0021
cases hold_extended - 0022
cases hold_extended_witness - 0023
cases hold_extended_witness_witness - 0024
cases hnew - 0025
cases hnew_witness - 0026
cases hnew_witness_witness - 0027
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)Exact native replay line
have 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))))))) - 0028
specialize initial_segment_prefix_sum_exists f - 0029
specialize initial_segment_prefix_sum_exists (S n) - 0030
apply initial_segment_prefix_sum_exists - 0031
exact hvaluation_copy_left_left - 0032
cases hbits - 0033
cases hbits_witness - 0034
cases hbits_witness_witness - 0035
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 + bitExact native replay line
have 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 - 0036
specialize power_quotient_successor_pointwise_add p - 0037
specialize power_quotient_successor_pointwise_add n - 0038
specialize power_quotient_successor_pointwise_add f - 0039
specialize power_quotient_successor_pointwise_add x - 0040
specialize power_quotient_successor_pointwise_add x1 - 0041
specialize power_quotient_successor_pointwise_add x2 - 0042
specialize power_quotient_successor_pointwise_add x3 - 0043
specialize power_quotient_successor_pointwise_add x4 - 0044
specialize power_quotient_successor_pointwise_add x5 - 0045
apply power_quotient_successor_pointwise_add - 0046
exact hp - 0047
exact hvaluation - 0048
exact hold_extended_witness_witness_left - 0049
exact hnew_witness_witness_left - 0050
exact hbits_witness_witness_left - 0051
symm - 0052
specialize beta_sum_pointwise_add x - 0053
specialize beta_sum_pointwise_add x1 - 0054
specialize beta_sum_pointwise_add x4 - 0055
specialize beta_sum_pointwise_add x5 - 0056
specialize beta_sum_pointwise_add x2 - 0057
specialize beta_sum_pointwise_add x3 - 0058
specialize beta_sum_pointwise_add (S n) - 0059
specialize beta_sum_pointwise_add e - 0060
specialize beta_sum_pointwise_add f - 0061
specialize beta_sum_pointwise_add g - 0062
apply beta_sum_pointwise_add - 0063
exact hold_extended_witness_witness_right - 0064
exact hbits_witness_witness_right - 0065
exact hnew_witness_witness_right - 0066
exact hpointwise