BT00YE

central_binom_prime_valuation_zero_two_thirds_range

Alpha body-checked ยท checked-use disabled

Primes in the open two-thirds range contribute zero valuation.

Exact expanded PA statement

forall p n C v. ((~(p = 1) /\ forall frm_prime_left_bcpvztt_prime frm_prime_right_bcpvztt_prime. p = frm_prime_left_bcpvztt_prime * frm_prime_right_bcpvztt_prime -> frm_prime_left_bcpvztt_prime = 1 \/ frm_prime_right_bcpvztt_prime = 1)) -> (exists bcf_lt_gap_bcpvztt_positive. bcf_lt_gap_bcpvztt_positive + S (2) = n) -> (exists bcf_le_gap_bcpvztt_lower. bcf_le_gap_bcpvztt_lower + (p) = n) -> (exists bcf_lt_gap_bcpvztt_scaled. bcf_lt_gap_bcpvztt_scaled + S (n + n) = (p + p) + p) -> (((exists bcf_lt_gap_bcpvztt_central_out_of_range. bcf_lt_gap_bcpvztt_central_out_of_range + S (n + n) = n) /\ C = 0) \/ ((exists bcf_le_gap_bcpvztt_central_in_range. bcf_le_gap_bcpvztt_central_in_range + (n) = n + n) /\ (exists bcf_row_code_code_bcpvztt_central bcf_row_code_scale_bcpvztt_central bcf_row_scale_code_bcpvztt_central bcf_row_scale_scale_bcpvztt_central bcf_row_code_bcpvztt_central bcf_row_scale_bcpvztt_central. ((forall bcf_row_index_bcpvztt_central_table. (exists bcf_lt_gap_bcpvztt_central_table_row_bound. bcf_lt_gap_bcpvztt_central_table_row_bound + S (bcf_row_index_bcpvztt_central_table) = S (n + n)) -> exists bcf_row_code_bcpvztt_central_table bcf_row_scale_bcpvztt_central_table. ((((exists bcf_height_bcpvztt_central_table_decoded_row_code. bcf_height_bcpvztt_central_table_decoded_row_code + S (bcf_row_code_bcpvztt_central_table) = S ((S (bcf_row_index_bcpvztt_central_table)) * bcf_row_code_scale_bcpvztt_central)) /\ exists bcf_quotient_bcpvztt_central_table_decoded_row_code. bcf_row_code_code_bcpvztt_central = bcf_quotient_bcpvztt_central_table_decoded_row_code * S ((S (bcf_row_index_bcpvztt_central_table)) * bcf_row_code_scale_bcpvztt_central) + (bcf_row_code_bcpvztt_central_table))) /\ ((((exists bcf_height_bcpvztt_central_table_decoded_row_scale. bcf_height_bcpvztt_central_table_decoded_row_scale + S (bcf_row_scale_bcpvztt_central_table) = S ((S (bcf_row_index_bcpvztt_central_table)) * bcf_row_scale_scale_bcpvztt_central)) /\ exists bcf_quotient_bcpvztt_central_table_decoded_row_scale. bcf_row_scale_code_bcpvztt_central = bcf_quotient_bcpvztt_central_table_decoded_row_scale * S ((S (bcf_row_index_bcpvztt_central_table)) * bcf_row_scale_scale_bcpvztt_central) + (bcf_row_scale_bcpvztt_central_table))) /\ ((bcf_row_index_bcpvztt_central_table = 0 /\ (forall bcf_index_bcpvztt_central_table_zero_row. (exists bcf_lt_gap_bcpvztt_central_table_zero_row_bound. bcf_lt_gap_bcpvztt_central_table_zero_row_bound + S (bcf_index_bcpvztt_central_table_zero_row) = S (n + n)) -> exists bcf_value_bcpvztt_central_table_zero_row. ((((exists bcf_height_bcpvztt_central_table_zero_row_entry. bcf_height_bcpvztt_central_table_zero_row_entry + S (bcf_value_bcpvztt_central_table_zero_row) = S ((S (bcf_index_bcpvztt_central_table_zero_row)) * bcf_row_scale_bcpvztt_central_table)) /\ exists bcf_quotient_bcpvztt_central_table_zero_row_entry. bcf_row_code_bcpvztt_central_table = bcf_quotient_bcpvztt_central_table_zero_row_entry * S ((S (bcf_index_bcpvztt_central_table_zero_row)) * bcf_row_scale_bcpvztt_central_table) + (bcf_value_bcpvztt_central_table_zero_row))) /\ ((bcf_index_bcpvztt_central_table_zero_row = 0 /\ bcf_value_bcpvztt_central_table_zero_row = 1) \/ exists bcf_predecessor_bcpvztt_central_table_zero_row. bcf_index_bcpvztt_central_table_zero_row = S bcf_predecessor_bcpvztt_central_table_zero_row /\ bcf_value_bcpvztt_central_table_zero_row = 0)))) \/ exists bcf_predecessor_bcpvztt_central_table bcf_previous_code_bcpvztt_central_table bcf_previous_scale_bcpvztt_central_table. bcf_row_index_bcpvztt_central_table = S bcf_predecessor_bcpvztt_central_table /\ ((((exists bcf_height_bcpvztt_central_table_decoded_previous_code. bcf_height_bcpvztt_central_table_decoded_previous_code + S (bcf_previous_code_bcpvztt_central_table) = S ((S (bcf_predecessor_bcpvztt_central_table)) * bcf_row_code_scale_bcpvztt_central)) /\ exists bcf_quotient_bcpvztt_central_table_decoded_previous_code. bcf_row_code_code_bcpvztt_central = bcf_quotient_bcpvztt_central_table_decoded_previous_code * S ((S (bcf_predecessor_bcpvztt_central_table)) * bcf_row_code_scale_bcpvztt_central) + (bcf_previous_code_bcpvztt_central_table))) /\ ((((exists bcf_height_bcpvztt_central_table_decoded_previous_scale. bcf_height_bcpvztt_central_table_decoded_previous_scale + S (bcf_previous_scale_bcpvztt_central_table) = S ((S (bcf_predecessor_bcpvztt_central_table)) * bcf_row_scale_scale_bcpvztt_central)) /\ exists bcf_quotient_bcpvztt_central_table_decoded_previous_scale. bcf_row_scale_code_bcpvztt_central = bcf_quotient_bcpvztt_central_table_decoded_previous_scale * S ((S (bcf_predecessor_bcpvztt_central_table)) * bcf_row_scale_scale_bcpvztt_central) + (bcf_previous_scale_bcpvztt_central_table))) /\ (forall bcf_index_bcpvztt_central_table_row_step. (exists bcf_lt_gap_bcpvztt_central_table_row_step_bound. bcf_lt_gap_bcpvztt_central_table_row_step_bound + S (bcf_index_bcpvztt_central_table_row_step) = S (n + n)) -> exists bcf_value_bcpvztt_central_table_row_step. ((((exists bcf_height_bcpvztt_central_table_row_step_entry. bcf_height_bcpvztt_central_table_row_step_entry + S (bcf_value_bcpvztt_central_table_row_step) = S ((S (bcf_index_bcpvztt_central_table_row_step)) * bcf_row_scale_bcpvztt_central_table)) /\ exists bcf_quotient_bcpvztt_central_table_row_step_entry. bcf_row_code_bcpvztt_central_table = bcf_quotient_bcpvztt_central_table_row_step_entry * S ((S (bcf_index_bcpvztt_central_table_row_step)) * bcf_row_scale_bcpvztt_central_table) + (bcf_value_bcpvztt_central_table_row_step))) /\ ((bcf_index_bcpvztt_central_table_row_step = 0 /\ bcf_value_bcpvztt_central_table_row_step = 1) \/ exists bcf_predecessor_bcpvztt_central_table_row_step bcf_left_bcpvztt_central_table_row_step bcf_right_bcpvztt_central_table_row_step. bcf_index_bcpvztt_central_table_row_step = S bcf_predecessor_bcpvztt_central_table_row_step /\ ((((exists bcf_height_bcpvztt_central_table_row_step_previous_left. bcf_height_bcpvztt_central_table_row_step_previous_left + S (bcf_left_bcpvztt_central_table_row_step) = S ((S (bcf_predecessor_bcpvztt_central_table_row_step)) * bcf_previous_scale_bcpvztt_central_table)) /\ exists bcf_quotient_bcpvztt_central_table_row_step_previous_left. bcf_previous_code_bcpvztt_central_table = bcf_quotient_bcpvztt_central_table_row_step_previous_left * S ((S (bcf_predecessor_bcpvztt_central_table_row_step)) * bcf_previous_scale_bcpvztt_central_table) + (bcf_left_bcpvztt_central_table_row_step))) /\ ((((exists bcf_height_bcpvztt_central_table_row_step_previous_right. bcf_height_bcpvztt_central_table_row_step_previous_right + S (bcf_right_bcpvztt_central_table_row_step) = S ((S (S (bcf_predecessor_bcpvztt_central_table_row_step))) * bcf_previous_scale_bcpvztt_central_table)) /\ exists bcf_quotient_bcpvztt_central_table_row_step_previous_right. bcf_previous_code_bcpvztt_central_table = bcf_quotient_bcpvztt_central_table_row_step_previous_right * S ((S (S (bcf_predecessor_bcpvztt_central_table_row_step))) * bcf_previous_scale_bcpvztt_central_table) + (bcf_right_bcpvztt_central_table_row_step))) /\ bcf_value_bcpvztt_central_table_row_step = bcf_left_bcpvztt_central_table_row_step + bcf_right_bcpvztt_central_table_row_step))))))))))) /\ ((((exists bcf_height_bcpvztt_central_decoded_row_code. bcf_height_bcpvztt_central_decoded_row_code + S (bcf_row_code_bcpvztt_central) = S ((S (n + n)) * bcf_row_code_scale_bcpvztt_central)) /\ exists bcf_quotient_bcpvztt_central_decoded_row_code. bcf_row_code_code_bcpvztt_central = bcf_quotient_bcpvztt_central_decoded_row_code * S ((S (n + n)) * bcf_row_code_scale_bcpvztt_central) + (bcf_row_code_bcpvztt_central))) /\ ((((exists bcf_height_bcpvztt_central_decoded_row_scale. bcf_height_bcpvztt_central_decoded_row_scale + S (bcf_row_scale_bcpvztt_central) = S ((S (n + n)) * bcf_row_scale_scale_bcpvztt_central)) /\ exists bcf_quotient_bcpvztt_central_decoded_row_scale. bcf_row_scale_code_bcpvztt_central = bcf_quotient_bcpvztt_central_decoded_row_scale * S ((S (n + n)) * bcf_row_scale_scale_bcpvztt_central) + (bcf_row_scale_bcpvztt_central))) /\ (((exists bcf_height_bcpvztt_central_decoded_value. bcf_height_bcpvztt_central_decoded_value + S (C) = S ((S (n)) * bcf_row_scale_bcpvztt_central)) /\ exists bcf_quotient_bcpvztt_central_decoded_value. bcf_row_code_bcpvztt_central = bcf_quotient_bcpvztt_central_decoded_value * S ((S (n)) * bcf_row_scale_bcpvztt_central) + (C))))))))) -> (((exists bpv_gap_bcpvztt_valuation_exponent_bound. bpv_gap_bcpvztt_valuation_exponent_bound + v = C) /\ (exists bpv_result_bcpvztt_valuation_selected. ((exists ff_b_bcpvztt_valuation_selected_power ff_c_bcpvztt_valuation_selected_power. ((forall ff_i_bcpvztt_valuation_selected_power_repeat. (exists ff_lt_bcpvztt_valuation_selected_power_repeat_bound. ff_lt_bcpvztt_valuation_selected_power_repeat_bound + S ff_i_bcpvztt_valuation_selected_power_repeat = v) -> (((exists ff_h_bcpvztt_valuation_selected_power_repeat_decoded. ff_h_bcpvztt_valuation_selected_power_repeat_decoded + S (p) = S ((S (ff_i_bcpvztt_valuation_selected_power_repeat)) * ff_c_bcpvztt_valuation_selected_power)) /\ exists ff_q_bcpvztt_valuation_selected_power_repeat_decoded. ff_b_bcpvztt_valuation_selected_power = ff_q_bcpvztt_valuation_selected_power_repeat_decoded * S ((S (ff_i_bcpvztt_valuation_selected_power_repeat)) * ff_c_bcpvztt_valuation_selected_power) + (p)))) /\ (exists ff_u_bcpvztt_valuation_selected_power_product ff_v_bcpvztt_valuation_selected_power_product. ((((exists ff_h_bcpvztt_valuation_selected_power_product_start. ff_h_bcpvztt_valuation_selected_power_product_start + S (1) = S ((S (0)) * ff_v_bcpvztt_valuation_selected_power_product)) /\ exists ff_q_bcpvztt_valuation_selected_power_product_start. ff_u_bcpvztt_valuation_selected_power_product = ff_q_bcpvztt_valuation_selected_power_product_start * S ((S (0)) * ff_v_bcpvztt_valuation_selected_power_product) + (1))) /\ ((((exists ff_h_bcpvztt_valuation_selected_power_product_terminal. ff_h_bcpvztt_valuation_selected_power_product_terminal + S (bpv_result_bcpvztt_valuation_selected) = S ((S (v)) * ff_v_bcpvztt_valuation_selected_power_product)) /\ exists ff_q_bcpvztt_valuation_selected_power_product_terminal. ff_u_bcpvztt_valuation_selected_power_product = ff_q_bcpvztt_valuation_selected_power_product_terminal * S ((S (v)) * ff_v_bcpvztt_valuation_selected_power_product) + (bpv_result_bcpvztt_valuation_selected))) /\ forall ff_i_bcpvztt_valuation_selected_power_product. (exists ff_lt_bcpvztt_valuation_selected_power_product_bound. ff_lt_bcpvztt_valuation_selected_power_product_bound + S ff_i_bcpvztt_valuation_selected_power_product = v) -> exists ff_p_bcpvztt_valuation_selected_power_product ff_r_bcpvztt_valuation_selected_power_product ff_s_bcpvztt_valuation_selected_power_product. ((((exists ff_h_bcpvztt_valuation_selected_power_product_factor. ff_h_bcpvztt_valuation_selected_power_product_factor + S (ff_p_bcpvztt_valuation_selected_power_product) = S ((S (ff_i_bcpvztt_valuation_selected_power_product)) * ff_c_bcpvztt_valuation_selected_power)) /\ exists ff_q_bcpvztt_valuation_selected_power_product_factor. ff_b_bcpvztt_valuation_selected_power = ff_q_bcpvztt_valuation_selected_power_product_factor * S ((S (ff_i_bcpvztt_valuation_selected_power_product)) * ff_c_bcpvztt_valuation_selected_power) + (ff_p_bcpvztt_valuation_selected_power_product))) /\ ((((exists ff_h_bcpvztt_valuation_selected_power_product_partial. ff_h_bcpvztt_valuation_selected_power_product_partial + S (ff_r_bcpvztt_valuation_selected_power_product) = S ((S (ff_i_bcpvztt_valuation_selected_power_product)) * ff_v_bcpvztt_valuation_selected_power_product)) /\ exists ff_q_bcpvztt_valuation_selected_power_product_partial. ff_u_bcpvztt_valuation_selected_power_product = ff_q_bcpvztt_valuation_selected_power_product_partial * S ((S (ff_i_bcpvztt_valuation_selected_power_product)) * ff_v_bcpvztt_valuation_selected_power_product) + (ff_r_bcpvztt_valuation_selected_power_product))) /\ ((((exists ff_h_bcpvztt_valuation_selected_power_product_successor. ff_h_bcpvztt_valuation_selected_power_product_successor + S (ff_s_bcpvztt_valuation_selected_power_product) = S ((S (S ff_i_bcpvztt_valuation_selected_power_product)) * ff_v_bcpvztt_valuation_selected_power_product)) /\ exists ff_q_bcpvztt_valuation_selected_power_product_successor. ff_u_bcpvztt_valuation_selected_power_product = ff_q_bcpvztt_valuation_selected_power_product_successor * S ((S (S ff_i_bcpvztt_valuation_selected_power_product)) * ff_v_bcpvztt_valuation_selected_power_product) + (ff_s_bcpvztt_valuation_selected_power_product))) /\ ff_s_bcpvztt_valuation_selected_power_product = ff_r_bcpvztt_valuation_selected_power_product * ff_p_bcpvztt_valuation_selected_power_product)))))))) /\ (exists bpv_factor_bcpvztt_valuation_selected_divides. C = bpv_result_bcpvztt_valuation_selected * bpv_factor_bcpvztt_valuation_selected_divides)))) /\ forall bpv_candidate_bcpvztt_valuation. (exists bpv_gap_bcpvztt_valuation_candidate_bound. bpv_gap_bcpvztt_valuation_candidate_bound + bpv_candidate_bcpvztt_valuation = C) -> (exists bpv_result_bcpvztt_valuation_candidate. ((exists ff_b_bcpvztt_valuation_candidate_power ff_c_bcpvztt_valuation_candidate_power. ((forall ff_i_bcpvztt_valuation_candidate_power_repeat. (exists ff_lt_bcpvztt_valuation_candidate_power_repeat_bound. ff_lt_bcpvztt_valuation_candidate_power_repeat_bound + S ff_i_bcpvztt_valuation_candidate_power_repeat = bpv_candidate_bcpvztt_valuation) -> (((exists ff_h_bcpvztt_valuation_candidate_power_repeat_decoded. ff_h_bcpvztt_valuation_candidate_power_repeat_decoded + S (p) = S ((S (ff_i_bcpvztt_valuation_candidate_power_repeat)) * ff_c_bcpvztt_valuation_candidate_power)) /\ exists ff_q_bcpvztt_valuation_candidate_power_repeat_decoded. ff_b_bcpvztt_valuation_candidate_power = ff_q_bcpvztt_valuation_candidate_power_repeat_decoded * S ((S (ff_i_bcpvztt_valuation_candidate_power_repeat)) * ff_c_bcpvztt_valuation_candidate_power) + (p)))) /\ (exists ff_u_bcpvztt_valuation_candidate_power_product ff_v_bcpvztt_valuation_candidate_power_product. ((((exists ff_h_bcpvztt_valuation_candidate_power_product_start. ff_h_bcpvztt_valuation_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_bcpvztt_valuation_candidate_power_product)) /\ exists ff_q_bcpvztt_valuation_candidate_power_product_start. ff_u_bcpvztt_valuation_candidate_power_product = ff_q_bcpvztt_valuation_candidate_power_product_start * S ((S (0)) * ff_v_bcpvztt_valuation_candidate_power_product) + (1))) /\ ((((exists ff_h_bcpvztt_valuation_candidate_power_product_terminal. ff_h_bcpvztt_valuation_candidate_power_product_terminal + S (bpv_result_bcpvztt_valuation_candidate) = S ((S (bpv_candidate_bcpvztt_valuation)) * ff_v_bcpvztt_valuation_candidate_power_product)) /\ exists ff_q_bcpvztt_valuation_candidate_power_product_terminal. ff_u_bcpvztt_valuation_candidate_power_product = ff_q_bcpvztt_valuation_candidate_power_product_terminal * S ((S (bpv_candidate_bcpvztt_valuation)) * ff_v_bcpvztt_valuation_candidate_power_product) + (bpv_result_bcpvztt_valuation_candidate))) /\ forall ff_i_bcpvztt_valuation_candidate_power_product. (exists ff_lt_bcpvztt_valuation_candidate_power_product_bound. ff_lt_bcpvztt_valuation_candidate_power_product_bound + S ff_i_bcpvztt_valuation_candidate_power_product = bpv_candidate_bcpvztt_valuation) -> exists ff_p_bcpvztt_valuation_candidate_power_product ff_r_bcpvztt_valuation_candidate_power_product ff_s_bcpvztt_valuation_candidate_power_product. ((((exists ff_h_bcpvztt_valuation_candidate_power_product_factor. ff_h_bcpvztt_valuation_candidate_power_product_factor + S (ff_p_bcpvztt_valuation_candidate_power_product) = S ((S (ff_i_bcpvztt_valuation_candidate_power_product)) * ff_c_bcpvztt_valuation_candidate_power)) /\ exists ff_q_bcpvztt_valuation_candidate_power_product_factor. ff_b_bcpvztt_valuation_candidate_power = ff_q_bcpvztt_valuation_candidate_power_product_factor * S ((S (ff_i_bcpvztt_valuation_candidate_power_product)) * ff_c_bcpvztt_valuation_candidate_power) + (ff_p_bcpvztt_valuation_candidate_power_product))) /\ ((((exists ff_h_bcpvztt_valuation_candidate_power_product_partial. ff_h_bcpvztt_valuation_candidate_power_product_partial + S (ff_r_bcpvztt_valuation_candidate_power_product) = S ((S (ff_i_bcpvztt_valuation_candidate_power_product)) * ff_v_bcpvztt_valuation_candidate_power_product)) /\ exists ff_q_bcpvztt_valuation_candidate_power_product_partial. ff_u_bcpvztt_valuation_candidate_power_product = ff_q_bcpvztt_valuation_candidate_power_product_partial * S ((S (ff_i_bcpvztt_valuation_candidate_power_product)) * ff_v_bcpvztt_valuation_candidate_power_product) + (ff_r_bcpvztt_valuation_candidate_power_product))) /\ ((((exists ff_h_bcpvztt_valuation_candidate_power_product_successor. ff_h_bcpvztt_valuation_candidate_power_product_successor + S (ff_s_bcpvztt_valuation_candidate_power_product) = S ((S (S ff_i_bcpvztt_valuation_candidate_power_product)) * ff_v_bcpvztt_valuation_candidate_power_product)) /\ exists ff_q_bcpvztt_valuation_candidate_power_product_successor. ff_u_bcpvztt_valuation_candidate_power_product = ff_q_bcpvztt_valuation_candidate_power_product_successor * S ((S (S ff_i_bcpvztt_valuation_candidate_power_product)) * ff_v_bcpvztt_valuation_candidate_power_product) + (ff_s_bcpvztt_valuation_candidate_power_product))) /\ ff_s_bcpvztt_valuation_candidate_power_product = ff_r_bcpvztt_valuation_candidate_power_product * ff_p_bcpvztt_valuation_candidate_power_product)))))))) /\ (exists bpv_factor_bcpvztt_valuation_candidate_divides. C = bpv_result_bcpvztt_valuation_candidate * bpv_factor_bcpvztt_valuation_candidate_divides))) -> (exists bpv_gap_bcpvztt_valuation_maximal. bpv_gap_bcpvztt_valuation_maximal + bpv_candidate_bcpvztt_valuation = v)) -> v = 0

Structural proof guide

Primes in the open two-thirds range contribute zero valuation.

Direct prerequisites: pow_exists, prime_square_tail_of_two_three_range, division_first_two_of_two_three_range, prime_nonzero, one_le_of_ne_zero, central_binom_prime_valuation_zero_of_exact_double_quotients. The authored body proceeds by case analysis (4), intermediate claims (7), equality transport (1), closed numeral normalization (1).

Proof neighborhood

Direct dependencies

Direct dependents

Formal native tactic body

Dependencies are hypotheses of this body receipt. The focused endpoint audits separately check the complete empty-context certificates.

  1. 0001intro p
  2. 0002intro n
  3. 0003intro C
  4. 0004intro v
  5. 0005intro hp
  6. 0006intro hpositive
  7. 0007intro hlower
  8. 0008intro hscaled
  9. 0009intro hcentral
  10. 0010intro hvaluation
  11. 0011have hsquare : exists s. exists bpvi_b_bcpvztt_square bpvi_c_bcpvztt_square. ((forall bpvi_i_bcpvztt_square. (exists bpvi_repeat_gap_bcpvztt_square. bpvi_repeat_gap_bcpvztt_square + S bpvi_i_bcpvztt_square = 2) -> (((exists bpvi_h_bcpvztt_square_repeat. bpvi_h_bcpvztt_square_repeat + S (p) = S ((S (bpvi_i_bcpvztt_square)) * bpvi_c_bcpvztt_square)) /\ exists bpvi_q_bcpvztt_square_repeat. bpvi_b_bcpvztt_square = bpvi_q_bcpvztt_square_repeat * S ((S (bpvi_i_bcpvztt_square)) * bpvi_c_bcpvztt_square) + (p)))) /\ (exists bpvi_u_bcpvztt_square bpvi_v_bcpvztt_square. ((((exists bpvi_h_bcpvztt_square_start. bpvi_h_bcpvztt_square_start + S (1) = S ((S (0)) * bpvi_v_bcpvztt_square)) /\ exists bpvi_q_bcpvztt_square_start. bpvi_u_bcpvztt_square = bpvi_q_bcpvztt_square_start * S ((S (0)) * bpvi_v_bcpvztt_square) + (1))) /\ ((((exists bpvi_h_bcpvztt_square_terminal. bpvi_h_bcpvztt_square_terminal + S (s) = S ((S (2)) * bpvi_v_bcpvztt_square)) /\ exists bpvi_q_bcpvztt_square_terminal. bpvi_u_bcpvztt_square = bpvi_q_bcpvztt_square_terminal * S ((S (2)) * bpvi_v_bcpvztt_square) + (s))) /\ forall bpvi_j_bcpvztt_square. (exists bpvi_product_gap_bcpvztt_square. bpvi_product_gap_bcpvztt_square + S bpvi_j_bcpvztt_square = 2) -> exists bpvi_factor_bcpvztt_square bpvi_partial_bcpvztt_square bpvi_successor_bcpvztt_square. ((((exists bpvi_h_bcpvztt_square_factor. bpvi_h_bcpvztt_square_factor + S (bpvi_factor_bcpvztt_square) = S ((S (bpvi_j_bcpvztt_square)) * bpvi_c_bcpvztt_square)) /\ exists bpvi_q_bcpvztt_square_factor. bpvi_b_bcpvztt_square = bpvi_q_bcpvztt_square_factor * S ((S (bpvi_j_bcpvztt_square)) * bpvi_c_bcpvztt_square) + (bpvi_factor_bcpvztt_square))) /\ ((((exists bpvi_h_bcpvztt_square_partial. bpvi_h_bcpvztt_square_partial + S (bpvi_partial_bcpvztt_square) = S ((S (bpvi_j_bcpvztt_square)) * bpvi_v_bcpvztt_square)) /\ exists bpvi_q_bcpvztt_square_partial. bpvi_u_bcpvztt_square = bpvi_q_bcpvztt_square_partial * S ((S (bpvi_j_bcpvztt_square)) * bpvi_v_bcpvztt_square) + (bpvi_partial_bcpvztt_square))) /\ ((((exists bpvi_h_bcpvztt_square_successor. bpvi_h_bcpvztt_square_successor + S (bpvi_successor_bcpvztt_square) = S ((S (S bpvi_j_bcpvztt_square)) * bpvi_v_bcpvztt_square)) /\ exists bpvi_q_bcpvztt_square_successor. bpvi_u_bcpvztt_square = bpvi_q_bcpvztt_square_successor * S ((S (S bpvi_j_bcpvztt_square)) * bpvi_v_bcpvztt_square) + (bpvi_successor_bcpvztt_square))) /\ bpvi_successor_bcpvztt_square = bpvi_partial_bcpvztt_square * bpvi_factor_bcpvztt_square)))))))
  12. 0012specialize pow_exists p
  13. 0013specialize pow_exists 2
  14. 0014exact pow_exists
  15. 0015cases hsquare
  16. 0016have hstrict : exists bcf_lt_gap_bcpvztt_square_strict. bcf_lt_gap_bcpvztt_square_strict + S (n + n) = x
  17. 0017specialize prime_square_tail_of_two_three_range p
  18. 0018specialize prime_square_tail_of_two_three_range n
  19. 0019specialize prime_square_tail_of_two_three_range x
  20. 0020apply prime_square_tail_of_two_three_range
  21. 0021exact hp
  22. 0022exact hpositive
  23. 0023exact hscaled
  24. 0024exact hsquare_witness
  25. 0025have hquotients : exists r R. (((n) = (p) * (1) + (r) /\ (exists bcf_lt_gap_bdftt_left_bound. bcf_lt_gap_bdftt_left_bound + S (r) = p))) /\ (((n + n) = (p) * (2) + (R) /\ (exists bcf_lt_gap_bdftt_right_bound. bcf_lt_gap_bdftt_right_bound + S (R) = p)))
  26. 0026specialize division_first_two_of_two_three_range p
  27. 0027specialize division_first_two_of_two_three_range n
  28. 0028apply division_first_two_of_two_three_range
  29. 0029exact hlower
  30. 0030exact hscaled
  31. 0031cases hquotients
  32. 0032cases hquotients_witness
  33. 0033cases hquotients_witness_witness
  34. 0034have hp_nonzero : ~(p = 0)
  35. 0035intro hpzero
  36. 0036specialize prime_nonzero p
  37. 0037apply prime_nonzero
  38. 0038exact hp
  39. 0039exact hpzero
  40. 0040have hbase : exists bcf_le_gap_bcpvzeq_base. bcf_le_gap_bcpvzeq_base + (1) = p
  41. 0041specialize one_le_of_ne_zero p
  42. 0042apply one_le_of_ne_zero
  43. 0043exact hp_nonzero
  44. 0044have hdouble_aligned : ((n + n) = (p) * (1 + 1) + (x2) /\ (exists bcf_lt_gap_bcpvztt_double_aligned_bound. bcf_lt_gap_bcpvztt_double_aligned_bound + S (x2) = p))
  45. 0045have htwo : 2 = 1 + 1
  46. 0046norm_num
  47. 0047rewrite <- htwo
  48. 0048exact hquotients_witness_witness_right
  49. 0049specialize central_binom_prime_valuation_zero_of_exact_double_quotients p
  50. 0050specialize central_binom_prime_valuation_zero_of_exact_double_quotients n
  51. 0051specialize central_binom_prime_valuation_zero_of_exact_double_quotients C
  52. 0052specialize central_binom_prime_valuation_zero_of_exact_double_quotients v
  53. 0053specialize central_binom_prime_valuation_zero_of_exact_double_quotients 1
  54. 0054specialize central_binom_prime_valuation_zero_of_exact_double_quotients x1
  55. 0055specialize central_binom_prime_valuation_zero_of_exact_double_quotients x2
  56. 0056specialize central_binom_prime_valuation_zero_of_exact_double_quotients x
  57. 0057apply central_binom_prime_valuation_zero_of_exact_double_quotients
  58. 0058exact hp
  59. 0059exact hcentral
  60. 0060exact hvaluation
  61. 0061exact hbase
  62. 0062exact hsquare_witness
  63. 0063exact hstrict
  64. 0064exact hquotients_witness_witness_left
  65. 0065exact hdouble_aligned