BT00Y7 · Bertrand theorem

central_binom_prime_square_tail_valuation_le_one

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

Above the square tail, a central-binomial valuation is at most one.

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. ∀ C. ∀ v. ∀ s. Prime(p)Lt(0,n)CentralBinom(n,C)PowerValuation(p,C,v)Pow(p,2,s)Lt(n + n,s)Le(v,1)

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

7 occurrences

In local proof propositions

2 occurrences

Exact expanded native-PA statement
forall p n C v s. ((~(p = 1) /\ forall frm_prime_left_bcpstvlo_prime frm_prime_right_bcpstvlo_prime. p = frm_prime_left_bcpstvlo_prime * frm_prime_right_bcpstvlo_prime -> frm_prime_left_bcpstvlo_prime = 1 \/ frm_prime_right_bcpstvlo_prime = 1)) -> (exists bcf_le_gap_bcpstvlo_positive. bcf_le_gap_bcpstvlo_positive + (1) = n) -> (((exists bcf_lt_gap_bcpstvlo_central_out_of_range. bcf_lt_gap_bcpstvlo_central_out_of_range + S (n + n) = n) /\ C = 0) \/ ((exists bcf_le_gap_bcpstvlo_central_in_range. bcf_le_gap_bcpstvlo_central_in_range + (n) = n + n) /\ (exists bcf_row_code_code_bcpstvlo_central bcf_row_code_scale_bcpstvlo_central bcf_row_scale_code_bcpstvlo_central bcf_row_scale_scale_bcpstvlo_central bcf_row_code_bcpstvlo_central bcf_row_scale_bcpstvlo_central. ((forall bcf_row_index_bcpstvlo_central_table. (exists bcf_lt_gap_bcpstvlo_central_table_row_bound. bcf_lt_gap_bcpstvlo_central_table_row_bound + S (bcf_row_index_bcpstvlo_central_table) = S (n + n)) -> exists bcf_row_code_bcpstvlo_central_table bcf_row_scale_bcpstvlo_central_table. ((((exists bcf_height_bcpstvlo_central_table_decoded_row_code. bcf_height_bcpstvlo_central_table_decoded_row_code + S (bcf_row_code_bcpstvlo_central_table) = S ((S (bcf_row_index_bcpstvlo_central_table)) * bcf_row_code_scale_bcpstvlo_central)) /\ exists bcf_quotient_bcpstvlo_central_table_decoded_row_code. bcf_row_code_code_bcpstvlo_central = bcf_quotient_bcpstvlo_central_table_decoded_row_code * S ((S (bcf_row_index_bcpstvlo_central_table)) * bcf_row_code_scale_bcpstvlo_central) + (bcf_row_code_bcpstvlo_central_table))) /\ ((((exists bcf_height_bcpstvlo_central_table_decoded_row_scale. bcf_height_bcpstvlo_central_table_decoded_row_scale + S (bcf_row_scale_bcpstvlo_central_table) = S ((S (bcf_row_index_bcpstvlo_central_table)) * bcf_row_scale_scale_bcpstvlo_central)) /\ exists bcf_quotient_bcpstvlo_central_table_decoded_row_scale. bcf_row_scale_code_bcpstvlo_central = bcf_quotient_bcpstvlo_central_table_decoded_row_scale * S ((S (bcf_row_index_bcpstvlo_central_table)) * bcf_row_scale_scale_bcpstvlo_central) + (bcf_row_scale_bcpstvlo_central_table))) /\ ((bcf_row_index_bcpstvlo_central_table = 0 /\ (forall bcf_index_bcpstvlo_central_table_zero_row. (exists bcf_lt_gap_bcpstvlo_central_table_zero_row_bound. bcf_lt_gap_bcpstvlo_central_table_zero_row_bound + S (bcf_index_bcpstvlo_central_table_zero_row) = S (n + n)) -> exists bcf_value_bcpstvlo_central_table_zero_row. ((((exists bcf_height_bcpstvlo_central_table_zero_row_entry. bcf_height_bcpstvlo_central_table_zero_row_entry + S (bcf_value_bcpstvlo_central_table_zero_row) = S ((S (bcf_index_bcpstvlo_central_table_zero_row)) * bcf_row_scale_bcpstvlo_central_table)) /\ exists bcf_quotient_bcpstvlo_central_table_zero_row_entry. bcf_row_code_bcpstvlo_central_table = bcf_quotient_bcpstvlo_central_table_zero_row_entry * S ((S (bcf_index_bcpstvlo_central_table_zero_row)) * bcf_row_scale_bcpstvlo_central_table) + (bcf_value_bcpstvlo_central_table_zero_row))) /\ ((bcf_index_bcpstvlo_central_table_zero_row = 0 /\ bcf_value_bcpstvlo_central_table_zero_row = 1) \/ exists bcf_predecessor_bcpstvlo_central_table_zero_row. bcf_index_bcpstvlo_central_table_zero_row = S bcf_predecessor_bcpstvlo_central_table_zero_row /\ bcf_value_bcpstvlo_central_table_zero_row = 0)))) \/ exists bcf_predecessor_bcpstvlo_central_table bcf_previous_code_bcpstvlo_central_table bcf_previous_scale_bcpstvlo_central_table. bcf_row_index_bcpstvlo_central_table = S bcf_predecessor_bcpstvlo_central_table /\ ((((exists bcf_height_bcpstvlo_central_table_decoded_previous_code. bcf_height_bcpstvlo_central_table_decoded_previous_code + S (bcf_previous_code_bcpstvlo_central_table) = S ((S (bcf_predecessor_bcpstvlo_central_table)) * bcf_row_code_scale_bcpstvlo_central)) /\ exists bcf_quotient_bcpstvlo_central_table_decoded_previous_code. bcf_row_code_code_bcpstvlo_central = bcf_quotient_bcpstvlo_central_table_decoded_previous_code * S ((S (bcf_predecessor_bcpstvlo_central_table)) * bcf_row_code_scale_bcpstvlo_central) + (bcf_previous_code_bcpstvlo_central_table))) /\ ((((exists bcf_height_bcpstvlo_central_table_decoded_previous_scale. bcf_height_bcpstvlo_central_table_decoded_previous_scale + S (bcf_previous_scale_bcpstvlo_central_table) = S ((S (bcf_predecessor_bcpstvlo_central_table)) * bcf_row_scale_scale_bcpstvlo_central)) /\ exists bcf_quotient_bcpstvlo_central_table_decoded_previous_scale. bcf_row_scale_code_bcpstvlo_central = bcf_quotient_bcpstvlo_central_table_decoded_previous_scale * S ((S (bcf_predecessor_bcpstvlo_central_table)) * bcf_row_scale_scale_bcpstvlo_central) + (bcf_previous_scale_bcpstvlo_central_table))) /\ (forall bcf_index_bcpstvlo_central_table_row_step. (exists bcf_lt_gap_bcpstvlo_central_table_row_step_bound. bcf_lt_gap_bcpstvlo_central_table_row_step_bound + S (bcf_index_bcpstvlo_central_table_row_step) = S (n + n)) -> exists bcf_value_bcpstvlo_central_table_row_step. ((((exists bcf_height_bcpstvlo_central_table_row_step_entry. bcf_height_bcpstvlo_central_table_row_step_entry + S (bcf_value_bcpstvlo_central_table_row_step) = S ((S (bcf_index_bcpstvlo_central_table_row_step)) * bcf_row_scale_bcpstvlo_central_table)) /\ exists bcf_quotient_bcpstvlo_central_table_row_step_entry. bcf_row_code_bcpstvlo_central_table = bcf_quotient_bcpstvlo_central_table_row_step_entry * S ((S (bcf_index_bcpstvlo_central_table_row_step)) * bcf_row_scale_bcpstvlo_central_table) + (bcf_value_bcpstvlo_central_table_row_step))) /\ ((bcf_index_bcpstvlo_central_table_row_step = 0 /\ bcf_value_bcpstvlo_central_table_row_step = 1) \/ exists bcf_predecessor_bcpstvlo_central_table_row_step bcf_left_bcpstvlo_central_table_row_step bcf_right_bcpstvlo_central_table_row_step. bcf_index_bcpstvlo_central_table_row_step = S bcf_predecessor_bcpstvlo_central_table_row_step /\ ((((exists bcf_height_bcpstvlo_central_table_row_step_previous_left. bcf_height_bcpstvlo_central_table_row_step_previous_left + S (bcf_left_bcpstvlo_central_table_row_step) = S ((S (bcf_predecessor_bcpstvlo_central_table_row_step)) * bcf_previous_scale_bcpstvlo_central_table)) /\ exists bcf_quotient_bcpstvlo_central_table_row_step_previous_left. bcf_previous_code_bcpstvlo_central_table = bcf_quotient_bcpstvlo_central_table_row_step_previous_left * S ((S (bcf_predecessor_bcpstvlo_central_table_row_step)) * bcf_previous_scale_bcpstvlo_central_table) + (bcf_left_bcpstvlo_central_table_row_step))) /\ ((((exists bcf_height_bcpstvlo_central_table_row_step_previous_right. bcf_height_bcpstvlo_central_table_row_step_previous_right + S (bcf_right_bcpstvlo_central_table_row_step) = S ((S (S (bcf_predecessor_bcpstvlo_central_table_row_step))) * bcf_previous_scale_bcpstvlo_central_table)) /\ exists bcf_quotient_bcpstvlo_central_table_row_step_previous_right. bcf_previous_code_bcpstvlo_central_table = bcf_quotient_bcpstvlo_central_table_row_step_previous_right * S ((S (S (bcf_predecessor_bcpstvlo_central_table_row_step))) * bcf_previous_scale_bcpstvlo_central_table) + (bcf_right_bcpstvlo_central_table_row_step))) /\ bcf_value_bcpstvlo_central_table_row_step = bcf_left_bcpstvlo_central_table_row_step + bcf_right_bcpstvlo_central_table_row_step))))))))))) /\ ((((exists bcf_height_bcpstvlo_central_decoded_row_code. bcf_height_bcpstvlo_central_decoded_row_code + S (bcf_row_code_bcpstvlo_central) = S ((S (n + n)) * bcf_row_code_scale_bcpstvlo_central)) /\ exists bcf_quotient_bcpstvlo_central_decoded_row_code. bcf_row_code_code_bcpstvlo_central = bcf_quotient_bcpstvlo_central_decoded_row_code * S ((S (n + n)) * bcf_row_code_scale_bcpstvlo_central) + (bcf_row_code_bcpstvlo_central))) /\ ((((exists bcf_height_bcpstvlo_central_decoded_row_scale. bcf_height_bcpstvlo_central_decoded_row_scale + S (bcf_row_scale_bcpstvlo_central) = S ((S (n + n)) * bcf_row_scale_scale_bcpstvlo_central)) /\ exists bcf_quotient_bcpstvlo_central_decoded_row_scale. bcf_row_scale_code_bcpstvlo_central = bcf_quotient_bcpstvlo_central_decoded_row_scale * S ((S (n + n)) * bcf_row_scale_scale_bcpstvlo_central) + (bcf_row_scale_bcpstvlo_central))) /\ (((exists bcf_height_bcpstvlo_central_decoded_value. bcf_height_bcpstvlo_central_decoded_value + S (C) = S ((S (n)) * bcf_row_scale_bcpstvlo_central)) /\ exists bcf_quotient_bcpstvlo_central_decoded_value. bcf_row_code_bcpstvlo_central = bcf_quotient_bcpstvlo_central_decoded_value * S ((S (n)) * bcf_row_scale_bcpstvlo_central) + (C))))))))) -> (((exists bpv_gap_bcpstvlo_valuation_exponent_bound. bpv_gap_bcpstvlo_valuation_exponent_bound + v = C) /\ (exists bpv_result_bcpstvlo_valuation_selected. ((exists ff_b_bcpstvlo_valuation_selected_power ff_c_bcpstvlo_valuation_selected_power. ((forall ff_i_bcpstvlo_valuation_selected_power_repeat. (exists ff_lt_bcpstvlo_valuation_selected_power_repeat_bound. ff_lt_bcpstvlo_valuation_selected_power_repeat_bound + S ff_i_bcpstvlo_valuation_selected_power_repeat = v) -> (((exists ff_h_bcpstvlo_valuation_selected_power_repeat_decoded. ff_h_bcpstvlo_valuation_selected_power_repeat_decoded + S (p) = S ((S (ff_i_bcpstvlo_valuation_selected_power_repeat)) * ff_c_bcpstvlo_valuation_selected_power)) /\ exists ff_q_bcpstvlo_valuation_selected_power_repeat_decoded. ff_b_bcpstvlo_valuation_selected_power = ff_q_bcpstvlo_valuation_selected_power_repeat_decoded * S ((S (ff_i_bcpstvlo_valuation_selected_power_repeat)) * ff_c_bcpstvlo_valuation_selected_power) + (p)))) /\ (exists ff_u_bcpstvlo_valuation_selected_power_product ff_v_bcpstvlo_valuation_selected_power_product. ((((exists ff_h_bcpstvlo_valuation_selected_power_product_start. ff_h_bcpstvlo_valuation_selected_power_product_start + S (1) = S ((S (0)) * ff_v_bcpstvlo_valuation_selected_power_product)) /\ exists ff_q_bcpstvlo_valuation_selected_power_product_start. ff_u_bcpstvlo_valuation_selected_power_product = ff_q_bcpstvlo_valuation_selected_power_product_start * S ((S (0)) * ff_v_bcpstvlo_valuation_selected_power_product) + (1))) /\ ((((exists ff_h_bcpstvlo_valuation_selected_power_product_terminal. ff_h_bcpstvlo_valuation_selected_power_product_terminal + S (bpv_result_bcpstvlo_valuation_selected) = S ((S (v)) * ff_v_bcpstvlo_valuation_selected_power_product)) /\ exists ff_q_bcpstvlo_valuation_selected_power_product_terminal. ff_u_bcpstvlo_valuation_selected_power_product = ff_q_bcpstvlo_valuation_selected_power_product_terminal * S ((S (v)) * ff_v_bcpstvlo_valuation_selected_power_product) + (bpv_result_bcpstvlo_valuation_selected))) /\ forall ff_i_bcpstvlo_valuation_selected_power_product. (exists ff_lt_bcpstvlo_valuation_selected_power_product_bound. ff_lt_bcpstvlo_valuation_selected_power_product_bound + S ff_i_bcpstvlo_valuation_selected_power_product = v) -> exists ff_p_bcpstvlo_valuation_selected_power_product ff_r_bcpstvlo_valuation_selected_power_product ff_s_bcpstvlo_valuation_selected_power_product. ((((exists ff_h_bcpstvlo_valuation_selected_power_product_factor. ff_h_bcpstvlo_valuation_selected_power_product_factor + S (ff_p_bcpstvlo_valuation_selected_power_product) = S ((S (ff_i_bcpstvlo_valuation_selected_power_product)) * ff_c_bcpstvlo_valuation_selected_power)) /\ exists ff_q_bcpstvlo_valuation_selected_power_product_factor. ff_b_bcpstvlo_valuation_selected_power = ff_q_bcpstvlo_valuation_selected_power_product_factor * S ((S (ff_i_bcpstvlo_valuation_selected_power_product)) * ff_c_bcpstvlo_valuation_selected_power) + (ff_p_bcpstvlo_valuation_selected_power_product))) /\ ((((exists ff_h_bcpstvlo_valuation_selected_power_product_partial. ff_h_bcpstvlo_valuation_selected_power_product_partial + S (ff_r_bcpstvlo_valuation_selected_power_product) = S ((S (ff_i_bcpstvlo_valuation_selected_power_product)) * ff_v_bcpstvlo_valuation_selected_power_product)) /\ exists ff_q_bcpstvlo_valuation_selected_power_product_partial. ff_u_bcpstvlo_valuation_selected_power_product = ff_q_bcpstvlo_valuation_selected_power_product_partial * S ((S (ff_i_bcpstvlo_valuation_selected_power_product)) * ff_v_bcpstvlo_valuation_selected_power_product) + (ff_r_bcpstvlo_valuation_selected_power_product))) /\ ((((exists ff_h_bcpstvlo_valuation_selected_power_product_successor. ff_h_bcpstvlo_valuation_selected_power_product_successor + S (ff_s_bcpstvlo_valuation_selected_power_product) = S ((S (S ff_i_bcpstvlo_valuation_selected_power_product)) * ff_v_bcpstvlo_valuation_selected_power_product)) /\ exists ff_q_bcpstvlo_valuation_selected_power_product_successor. ff_u_bcpstvlo_valuation_selected_power_product = ff_q_bcpstvlo_valuation_selected_power_product_successor * S ((S (S ff_i_bcpstvlo_valuation_selected_power_product)) * ff_v_bcpstvlo_valuation_selected_power_product) + (ff_s_bcpstvlo_valuation_selected_power_product))) /\ ff_s_bcpstvlo_valuation_selected_power_product = ff_r_bcpstvlo_valuation_selected_power_product * ff_p_bcpstvlo_valuation_selected_power_product)))))))) /\ (exists bpv_factor_bcpstvlo_valuation_selected_divides. C = bpv_result_bcpstvlo_valuation_selected * bpv_factor_bcpstvlo_valuation_selected_divides)))) /\ forall bpv_candidate_bcpstvlo_valuation. (exists bpv_gap_bcpstvlo_valuation_candidate_bound. bpv_gap_bcpstvlo_valuation_candidate_bound + bpv_candidate_bcpstvlo_valuation = C) -> (exists bpv_result_bcpstvlo_valuation_candidate. ((exists ff_b_bcpstvlo_valuation_candidate_power ff_c_bcpstvlo_valuation_candidate_power. ((forall ff_i_bcpstvlo_valuation_candidate_power_repeat. (exists ff_lt_bcpstvlo_valuation_candidate_power_repeat_bound. ff_lt_bcpstvlo_valuation_candidate_power_repeat_bound + S ff_i_bcpstvlo_valuation_candidate_power_repeat = bpv_candidate_bcpstvlo_valuation) -> (((exists ff_h_bcpstvlo_valuation_candidate_power_repeat_decoded. ff_h_bcpstvlo_valuation_candidate_power_repeat_decoded + S (p) = S ((S (ff_i_bcpstvlo_valuation_candidate_power_repeat)) * ff_c_bcpstvlo_valuation_candidate_power)) /\ exists ff_q_bcpstvlo_valuation_candidate_power_repeat_decoded. ff_b_bcpstvlo_valuation_candidate_power = ff_q_bcpstvlo_valuation_candidate_power_repeat_decoded * S ((S (ff_i_bcpstvlo_valuation_candidate_power_repeat)) * ff_c_bcpstvlo_valuation_candidate_power) + (p)))) /\ (exists ff_u_bcpstvlo_valuation_candidate_power_product ff_v_bcpstvlo_valuation_candidate_power_product. ((((exists ff_h_bcpstvlo_valuation_candidate_power_product_start. ff_h_bcpstvlo_valuation_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_bcpstvlo_valuation_candidate_power_product)) /\ exists ff_q_bcpstvlo_valuation_candidate_power_product_start. ff_u_bcpstvlo_valuation_candidate_power_product = ff_q_bcpstvlo_valuation_candidate_power_product_start * S ((S (0)) * ff_v_bcpstvlo_valuation_candidate_power_product) + (1))) /\ ((((exists ff_h_bcpstvlo_valuation_candidate_power_product_terminal. ff_h_bcpstvlo_valuation_candidate_power_product_terminal + S (bpv_result_bcpstvlo_valuation_candidate) = S ((S (bpv_candidate_bcpstvlo_valuation)) * ff_v_bcpstvlo_valuation_candidate_power_product)) /\ exists ff_q_bcpstvlo_valuation_candidate_power_product_terminal. ff_u_bcpstvlo_valuation_candidate_power_product = ff_q_bcpstvlo_valuation_candidate_power_product_terminal * S ((S (bpv_candidate_bcpstvlo_valuation)) * ff_v_bcpstvlo_valuation_candidate_power_product) + (bpv_result_bcpstvlo_valuation_candidate))) /\ forall ff_i_bcpstvlo_valuation_candidate_power_product. (exists ff_lt_bcpstvlo_valuation_candidate_power_product_bound. ff_lt_bcpstvlo_valuation_candidate_power_product_bound + S ff_i_bcpstvlo_valuation_candidate_power_product = bpv_candidate_bcpstvlo_valuation) -> exists ff_p_bcpstvlo_valuation_candidate_power_product ff_r_bcpstvlo_valuation_candidate_power_product ff_s_bcpstvlo_valuation_candidate_power_product. ((((exists ff_h_bcpstvlo_valuation_candidate_power_product_factor. ff_h_bcpstvlo_valuation_candidate_power_product_factor + S (ff_p_bcpstvlo_valuation_candidate_power_product) = S ((S (ff_i_bcpstvlo_valuation_candidate_power_product)) * ff_c_bcpstvlo_valuation_candidate_power)) /\ exists ff_q_bcpstvlo_valuation_candidate_power_product_factor. ff_b_bcpstvlo_valuation_candidate_power = ff_q_bcpstvlo_valuation_candidate_power_product_factor * S ((S (ff_i_bcpstvlo_valuation_candidate_power_product)) * ff_c_bcpstvlo_valuation_candidate_power) + (ff_p_bcpstvlo_valuation_candidate_power_product))) /\ ((((exists ff_h_bcpstvlo_valuation_candidate_power_product_partial. ff_h_bcpstvlo_valuation_candidate_power_product_partial + S (ff_r_bcpstvlo_valuation_candidate_power_product) = S ((S (ff_i_bcpstvlo_valuation_candidate_power_product)) * ff_v_bcpstvlo_valuation_candidate_power_product)) /\ exists ff_q_bcpstvlo_valuation_candidate_power_product_partial. ff_u_bcpstvlo_valuation_candidate_power_product = ff_q_bcpstvlo_valuation_candidate_power_product_partial * S ((S (ff_i_bcpstvlo_valuation_candidate_power_product)) * ff_v_bcpstvlo_valuation_candidate_power_product) + (ff_r_bcpstvlo_valuation_candidate_power_product))) /\ ((((exists ff_h_bcpstvlo_valuation_candidate_power_product_successor. ff_h_bcpstvlo_valuation_candidate_power_product_successor + S (ff_s_bcpstvlo_valuation_candidate_power_product) = S ((S (S ff_i_bcpstvlo_valuation_candidate_power_product)) * ff_v_bcpstvlo_valuation_candidate_power_product)) /\ exists ff_q_bcpstvlo_valuation_candidate_power_product_successor. ff_u_bcpstvlo_valuation_candidate_power_product = ff_q_bcpstvlo_valuation_candidate_power_product_successor * S ((S (S ff_i_bcpstvlo_valuation_candidate_power_product)) * ff_v_bcpstvlo_valuation_candidate_power_product) + (ff_s_bcpstvlo_valuation_candidate_power_product))) /\ ff_s_bcpstvlo_valuation_candidate_power_product = ff_r_bcpstvlo_valuation_candidate_power_product * ff_p_bcpstvlo_valuation_candidate_power_product)))))))) /\ (exists bpv_factor_bcpstvlo_valuation_candidate_divides. C = bpv_result_bcpstvlo_valuation_candidate * bpv_factor_bcpstvlo_valuation_candidate_divides))) -> (exists bpv_gap_bcpstvlo_valuation_maximal. bpv_gap_bcpstvlo_valuation_maximal + bpv_candidate_bcpstvlo_valuation = v)) -> (exists bpvi_b_bcpstvlo_square bpvi_c_bcpstvlo_square. ((forall bpvi_i_bcpstvlo_square. (exists bpvi_repeat_gap_bcpstvlo_square. bpvi_repeat_gap_bcpstvlo_square + S bpvi_i_bcpstvlo_square = 2) -> (((exists bpvi_h_bcpstvlo_square_repeat. bpvi_h_bcpstvlo_square_repeat + S (p) = S ((S (bpvi_i_bcpstvlo_square)) * bpvi_c_bcpstvlo_square)) /\ exists bpvi_q_bcpstvlo_square_repeat. bpvi_b_bcpstvlo_square = bpvi_q_bcpstvlo_square_repeat * S ((S (bpvi_i_bcpstvlo_square)) * bpvi_c_bcpstvlo_square) + (p)))) /\ (exists bpvi_u_bcpstvlo_square bpvi_v_bcpstvlo_square. ((((exists bpvi_h_bcpstvlo_square_start. bpvi_h_bcpstvlo_square_start + S (1) = S ((S (0)) * bpvi_v_bcpstvlo_square)) /\ exists bpvi_q_bcpstvlo_square_start. bpvi_u_bcpstvlo_square = bpvi_q_bcpstvlo_square_start * S ((S (0)) * bpvi_v_bcpstvlo_square) + (1))) /\ ((((exists bpvi_h_bcpstvlo_square_terminal. bpvi_h_bcpstvlo_square_terminal + S (s) = S ((S (2)) * bpvi_v_bcpstvlo_square)) /\ exists bpvi_q_bcpstvlo_square_terminal. bpvi_u_bcpstvlo_square = bpvi_q_bcpstvlo_square_terminal * S ((S (2)) * bpvi_v_bcpstvlo_square) + (s))) /\ forall bpvi_j_bcpstvlo_square. (exists bpvi_product_gap_bcpstvlo_square. bpvi_product_gap_bcpstvlo_square + S bpvi_j_bcpstvlo_square = 2) -> exists bpvi_factor_bcpstvlo_square bpvi_partial_bcpstvlo_square bpvi_successor_bcpstvlo_square. ((((exists bpvi_h_bcpstvlo_square_factor. bpvi_h_bcpstvlo_square_factor + S (bpvi_factor_bcpstvlo_square) = S ((S (bpvi_j_bcpstvlo_square)) * bpvi_c_bcpstvlo_square)) /\ exists bpvi_q_bcpstvlo_square_factor. bpvi_b_bcpstvlo_square = bpvi_q_bcpstvlo_square_factor * S ((S (bpvi_j_bcpstvlo_square)) * bpvi_c_bcpstvlo_square) + (bpvi_factor_bcpstvlo_square))) /\ ((((exists bpvi_h_bcpstvlo_square_partial. bpvi_h_bcpstvlo_square_partial + S (bpvi_partial_bcpstvlo_square) = S ((S (bpvi_j_bcpstvlo_square)) * bpvi_v_bcpstvlo_square)) /\ exists bpvi_q_bcpstvlo_square_partial. bpvi_u_bcpstvlo_square = bpvi_q_bcpstvlo_square_partial * S ((S (bpvi_j_bcpstvlo_square)) * bpvi_v_bcpstvlo_square) + (bpvi_partial_bcpstvlo_square))) /\ ((((exists bpvi_h_bcpstvlo_square_successor. bpvi_h_bcpstvlo_square_successor + S (bpvi_successor_bcpstvlo_square) = S ((S (S bpvi_j_bcpstvlo_square)) * bpvi_v_bcpstvlo_square)) /\ exists bpvi_q_bcpstvlo_square_successor. bpvi_u_bcpstvlo_square = bpvi_q_bcpstvlo_square_successor * S ((S (S bpvi_j_bcpstvlo_square)) * bpvi_v_bcpstvlo_square) + (bpvi_successor_bcpstvlo_square))) /\ bpvi_successor_bcpstvlo_square = bpvi_partial_bcpstvlo_square * bpvi_factor_bcpstvlo_square)))))))) -> (exists bcf_lt_gap_bcpstvlo_strict. bcf_lt_gap_bcpstvlo_strict + S (n + n) = s) -> (exists bcf_le_gap_bcpstvlo_result. bcf_le_gap_bcpstvlo_result + (v) = 1)

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

31 script commands · 8 reading checkpoints · 1 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 (2)
01Fix variables and assumptionsL1–10

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

  1. L1
    intro p
  2. L2
    intro n
  3. L3
    intro C
  4. L4
    intro v
  5. L5
    intro s
  6. L6
    intro hp
  7. L7
    intro hpositive
  8. L8
    intro hcentral
  9. L9
    intro hvaluation
  10. L10
    intro hsquare
02Fix variables and assumptionsL11–11

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

  1. L11
    intro hstrict
03Establish horderL12–15

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

  1. L12
    have horder : Le(v,1) ∨ Lt(1,v)Definitions: Le(v,1)Lt(1,v)Original native command in the exact edition
  2. L13
    specialize le_or_lt v
  3. L14
    specialize le_or_lt 1
  4. L15
    exact le_or_lt
04Separate the logical casesL16–16

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

  1. L16
    cases horder
05Use earlier factsL17–17

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

  1. L17
    exact horder_left
06Separate the logical casesL18–18

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

  1. L18
    exfalso
07Use earlier factsL19–28

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

  1. L19
    specialize central_binom_prime_square_tail_exponent_not_two_le p
  2. L20
    specialize central_binom_prime_square_tail_exponent_not_two_le n
  3. L21
    specialize central_binom_prime_square_tail_exponent_not_two_le C
  4. L22
    specialize central_binom_prime_square_tail_exponent_not_two_le v
  5. L23
    specialize central_binom_prime_square_tail_exponent_not_two_le s
  6. L24
    apply central_binom_prime_square_tail_exponent_not_two_le
  7. L25
    exact hp
  8. L26
    exact hpositive
  9. L27
    exact hcentral
  10. L28
    exact hvaluation
08Use earlier factsL29–31

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

  1. L29
    exact hsquare
  2. L30
    exact hstrict
  3. L31
    exact horder_right

Library-wide reading audit

Original defined command ledger · 31 lines
  1. 0001intro p
  2. 0002intro n
  3. 0003intro C
  4. 0004intro v
  5. 0005intro s
  6. 0006intro hp
  7. 0007intro hpositive
  8. 0008intro hcentral
  9. 0009intro hvaluation
  10. 0010intro hsquare
  11. 0011intro hstrict
  12. 0012have horder : Le(v,1)Lt(1,v)
    Exact native replay linehave horder : (exists bcf_le_gap_bcpstvlo_result. bcf_le_gap_bcpstvlo_result + (v) = 1) \/ (exists bcf_lt_gap_bcpstvlo_alternative. bcf_lt_gap_bcpstvlo_alternative + S (1) = v)
  13. 0013specialize le_or_lt v
  14. 0014specialize le_or_lt 1
  15. 0015exact le_or_lt
  16. 0016cases horder
  17. 0017exact horder_left
  18. 0018exfalso
  19. 0019specialize central_binom_prime_square_tail_exponent_not_two_le p
  20. 0020specialize central_binom_prime_square_tail_exponent_not_two_le n
  21. 0021specialize central_binom_prime_square_tail_exponent_not_two_le C
  22. 0022specialize central_binom_prime_square_tail_exponent_not_two_le v
  23. 0023specialize central_binom_prime_square_tail_exponent_not_two_le s
  24. 0024apply central_binom_prime_square_tail_exponent_not_two_le
  25. 0025exact hp
  26. 0026exact hpositive
  27. 0027exact hcentral
  28. 0028exact hvaluation
  29. 0029exact hsquare
  30. 0030exact hstrict
  31. 0031exact horder_right