BT00YG · Bertrand theorem

central_binom_prime_valuation_zero_above_third_quotient

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

Valuation vanishes above the floor of two-thirds and at most n.

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. ∀ q. ∀ r. Prime(p)Lt(2,n)DivRem(n + n,3,q,r)Lt(q,p)Le(p,n)CentralBinom(n,C)PowerValuation(p,C,v) → v = 0

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

1 occurrences

Exact expanded native-PA statement
forall p n C v q r. ((~(p = 1) /\ forall frm_prime_left_bcpvzatq_prime frm_prime_right_bcpvzatq_prime. p = frm_prime_left_bcpvzatq_prime * frm_prime_right_bcpvzatq_prime -> frm_prime_left_bcpvzatq_prime = 1 \/ frm_prime_right_bcpvzatq_prime = 1)) -> (exists bcf_lt_gap_bcpvzatq_positive. bcf_lt_gap_bcpvzatq_positive + S (2) = n) -> (((n + n) = (3) * (q) + (r) /\ (exists bcf_lt_gap_bcpvzatq_division_bound. bcf_lt_gap_bcpvzatq_division_bound + S (r) = 3))) -> (exists bcf_lt_gap_bcpvzatq_above. bcf_lt_gap_bcpvzatq_above + S (q) = p) -> (exists bcf_le_gap_bcpvzatq_bound. bcf_le_gap_bcpvzatq_bound + (p) = n) -> (((exists bcf_lt_gap_bcpvzatq_central_out_of_range. bcf_lt_gap_bcpvzatq_central_out_of_range + S (n + n) = n) /\ C = 0) \/ ((exists bcf_le_gap_bcpvzatq_central_in_range. bcf_le_gap_bcpvzatq_central_in_range + (n) = n + n) /\ (exists bcf_row_code_code_bcpvzatq_central bcf_row_code_scale_bcpvzatq_central bcf_row_scale_code_bcpvzatq_central bcf_row_scale_scale_bcpvzatq_central bcf_row_code_bcpvzatq_central bcf_row_scale_bcpvzatq_central. ((forall bcf_row_index_bcpvzatq_central_table. (exists bcf_lt_gap_bcpvzatq_central_table_row_bound. bcf_lt_gap_bcpvzatq_central_table_row_bound + S (bcf_row_index_bcpvzatq_central_table) = S (n + n)) -> exists bcf_row_code_bcpvzatq_central_table bcf_row_scale_bcpvzatq_central_table. ((((exists bcf_height_bcpvzatq_central_table_decoded_row_code. bcf_height_bcpvzatq_central_table_decoded_row_code + S (bcf_row_code_bcpvzatq_central_table) = S ((S (bcf_row_index_bcpvzatq_central_table)) * bcf_row_code_scale_bcpvzatq_central)) /\ exists bcf_quotient_bcpvzatq_central_table_decoded_row_code. bcf_row_code_code_bcpvzatq_central = bcf_quotient_bcpvzatq_central_table_decoded_row_code * S ((S (bcf_row_index_bcpvzatq_central_table)) * bcf_row_code_scale_bcpvzatq_central) + (bcf_row_code_bcpvzatq_central_table))) /\ ((((exists bcf_height_bcpvzatq_central_table_decoded_row_scale. bcf_height_bcpvzatq_central_table_decoded_row_scale + S (bcf_row_scale_bcpvzatq_central_table) = S ((S (bcf_row_index_bcpvzatq_central_table)) * bcf_row_scale_scale_bcpvzatq_central)) /\ exists bcf_quotient_bcpvzatq_central_table_decoded_row_scale. bcf_row_scale_code_bcpvzatq_central = bcf_quotient_bcpvzatq_central_table_decoded_row_scale * S ((S (bcf_row_index_bcpvzatq_central_table)) * bcf_row_scale_scale_bcpvzatq_central) + (bcf_row_scale_bcpvzatq_central_table))) /\ ((bcf_row_index_bcpvzatq_central_table = 0 /\ (forall bcf_index_bcpvzatq_central_table_zero_row. (exists bcf_lt_gap_bcpvzatq_central_table_zero_row_bound. bcf_lt_gap_bcpvzatq_central_table_zero_row_bound + S (bcf_index_bcpvzatq_central_table_zero_row) = S (n + n)) -> exists bcf_value_bcpvzatq_central_table_zero_row. ((((exists bcf_height_bcpvzatq_central_table_zero_row_entry. bcf_height_bcpvzatq_central_table_zero_row_entry + S (bcf_value_bcpvzatq_central_table_zero_row) = S ((S (bcf_index_bcpvzatq_central_table_zero_row)) * bcf_row_scale_bcpvzatq_central_table)) /\ exists bcf_quotient_bcpvzatq_central_table_zero_row_entry. bcf_row_code_bcpvzatq_central_table = bcf_quotient_bcpvzatq_central_table_zero_row_entry * S ((S (bcf_index_bcpvzatq_central_table_zero_row)) * bcf_row_scale_bcpvzatq_central_table) + (bcf_value_bcpvzatq_central_table_zero_row))) /\ ((bcf_index_bcpvzatq_central_table_zero_row = 0 /\ bcf_value_bcpvzatq_central_table_zero_row = 1) \/ exists bcf_predecessor_bcpvzatq_central_table_zero_row. bcf_index_bcpvzatq_central_table_zero_row = S bcf_predecessor_bcpvzatq_central_table_zero_row /\ bcf_value_bcpvzatq_central_table_zero_row = 0)))) \/ exists bcf_predecessor_bcpvzatq_central_table bcf_previous_code_bcpvzatq_central_table bcf_previous_scale_bcpvzatq_central_table. bcf_row_index_bcpvzatq_central_table = S bcf_predecessor_bcpvzatq_central_table /\ ((((exists bcf_height_bcpvzatq_central_table_decoded_previous_code. bcf_height_bcpvzatq_central_table_decoded_previous_code + S (bcf_previous_code_bcpvzatq_central_table) = S ((S (bcf_predecessor_bcpvzatq_central_table)) * bcf_row_code_scale_bcpvzatq_central)) /\ exists bcf_quotient_bcpvzatq_central_table_decoded_previous_code. bcf_row_code_code_bcpvzatq_central = bcf_quotient_bcpvzatq_central_table_decoded_previous_code * S ((S (bcf_predecessor_bcpvzatq_central_table)) * bcf_row_code_scale_bcpvzatq_central) + (bcf_previous_code_bcpvzatq_central_table))) /\ ((((exists bcf_height_bcpvzatq_central_table_decoded_previous_scale. bcf_height_bcpvzatq_central_table_decoded_previous_scale + S (bcf_previous_scale_bcpvzatq_central_table) = S ((S (bcf_predecessor_bcpvzatq_central_table)) * bcf_row_scale_scale_bcpvzatq_central)) /\ exists bcf_quotient_bcpvzatq_central_table_decoded_previous_scale. bcf_row_scale_code_bcpvzatq_central = bcf_quotient_bcpvzatq_central_table_decoded_previous_scale * S ((S (bcf_predecessor_bcpvzatq_central_table)) * bcf_row_scale_scale_bcpvzatq_central) + (bcf_previous_scale_bcpvzatq_central_table))) /\ (forall bcf_index_bcpvzatq_central_table_row_step. (exists bcf_lt_gap_bcpvzatq_central_table_row_step_bound. bcf_lt_gap_bcpvzatq_central_table_row_step_bound + S (bcf_index_bcpvzatq_central_table_row_step) = S (n + n)) -> exists bcf_value_bcpvzatq_central_table_row_step. ((((exists bcf_height_bcpvzatq_central_table_row_step_entry. bcf_height_bcpvzatq_central_table_row_step_entry + S (bcf_value_bcpvzatq_central_table_row_step) = S ((S (bcf_index_bcpvzatq_central_table_row_step)) * bcf_row_scale_bcpvzatq_central_table)) /\ exists bcf_quotient_bcpvzatq_central_table_row_step_entry. bcf_row_code_bcpvzatq_central_table = bcf_quotient_bcpvzatq_central_table_row_step_entry * S ((S (bcf_index_bcpvzatq_central_table_row_step)) * bcf_row_scale_bcpvzatq_central_table) + (bcf_value_bcpvzatq_central_table_row_step))) /\ ((bcf_index_bcpvzatq_central_table_row_step = 0 /\ bcf_value_bcpvzatq_central_table_row_step = 1) \/ exists bcf_predecessor_bcpvzatq_central_table_row_step bcf_left_bcpvzatq_central_table_row_step bcf_right_bcpvzatq_central_table_row_step. bcf_index_bcpvzatq_central_table_row_step = S bcf_predecessor_bcpvzatq_central_table_row_step /\ ((((exists bcf_height_bcpvzatq_central_table_row_step_previous_left. bcf_height_bcpvzatq_central_table_row_step_previous_left + S (bcf_left_bcpvzatq_central_table_row_step) = S ((S (bcf_predecessor_bcpvzatq_central_table_row_step)) * bcf_previous_scale_bcpvzatq_central_table)) /\ exists bcf_quotient_bcpvzatq_central_table_row_step_previous_left. bcf_previous_code_bcpvzatq_central_table = bcf_quotient_bcpvzatq_central_table_row_step_previous_left * S ((S (bcf_predecessor_bcpvzatq_central_table_row_step)) * bcf_previous_scale_bcpvzatq_central_table) + (bcf_left_bcpvzatq_central_table_row_step))) /\ ((((exists bcf_height_bcpvzatq_central_table_row_step_previous_right. bcf_height_bcpvzatq_central_table_row_step_previous_right + S (bcf_right_bcpvzatq_central_table_row_step) = S ((S (S (bcf_predecessor_bcpvzatq_central_table_row_step))) * bcf_previous_scale_bcpvzatq_central_table)) /\ exists bcf_quotient_bcpvzatq_central_table_row_step_previous_right. bcf_previous_code_bcpvzatq_central_table = bcf_quotient_bcpvzatq_central_table_row_step_previous_right * S ((S (S (bcf_predecessor_bcpvzatq_central_table_row_step))) * bcf_previous_scale_bcpvzatq_central_table) + (bcf_right_bcpvzatq_central_table_row_step))) /\ bcf_value_bcpvzatq_central_table_row_step = bcf_left_bcpvzatq_central_table_row_step + bcf_right_bcpvzatq_central_table_row_step))))))))))) /\ ((((exists bcf_height_bcpvzatq_central_decoded_row_code. bcf_height_bcpvzatq_central_decoded_row_code + S (bcf_row_code_bcpvzatq_central) = S ((S (n + n)) * bcf_row_code_scale_bcpvzatq_central)) /\ exists bcf_quotient_bcpvzatq_central_decoded_row_code. bcf_row_code_code_bcpvzatq_central = bcf_quotient_bcpvzatq_central_decoded_row_code * S ((S (n + n)) * bcf_row_code_scale_bcpvzatq_central) + (bcf_row_code_bcpvzatq_central))) /\ ((((exists bcf_height_bcpvzatq_central_decoded_row_scale. bcf_height_bcpvzatq_central_decoded_row_scale + S (bcf_row_scale_bcpvzatq_central) = S ((S (n + n)) * bcf_row_scale_scale_bcpvzatq_central)) /\ exists bcf_quotient_bcpvzatq_central_decoded_row_scale. bcf_row_scale_code_bcpvzatq_central = bcf_quotient_bcpvzatq_central_decoded_row_scale * S ((S (n + n)) * bcf_row_scale_scale_bcpvzatq_central) + (bcf_row_scale_bcpvzatq_central))) /\ (((exists bcf_height_bcpvzatq_central_decoded_value. bcf_height_bcpvzatq_central_decoded_value + S (C) = S ((S (n)) * bcf_row_scale_bcpvzatq_central)) /\ exists bcf_quotient_bcpvzatq_central_decoded_value. bcf_row_code_bcpvzatq_central = bcf_quotient_bcpvzatq_central_decoded_value * S ((S (n)) * bcf_row_scale_bcpvzatq_central) + (C))))))))) -> (((exists bpv_gap_bcpvzatq_valuation_exponent_bound. bpv_gap_bcpvzatq_valuation_exponent_bound + v = C) /\ (exists bpv_result_bcpvzatq_valuation_selected. ((exists ff_b_bcpvzatq_valuation_selected_power ff_c_bcpvzatq_valuation_selected_power. ((forall ff_i_bcpvzatq_valuation_selected_power_repeat. (exists ff_lt_bcpvzatq_valuation_selected_power_repeat_bound. ff_lt_bcpvzatq_valuation_selected_power_repeat_bound + S ff_i_bcpvzatq_valuation_selected_power_repeat = v) -> (((exists ff_h_bcpvzatq_valuation_selected_power_repeat_decoded. ff_h_bcpvzatq_valuation_selected_power_repeat_decoded + S (p) = S ((S (ff_i_bcpvzatq_valuation_selected_power_repeat)) * ff_c_bcpvzatq_valuation_selected_power)) /\ exists ff_q_bcpvzatq_valuation_selected_power_repeat_decoded. ff_b_bcpvzatq_valuation_selected_power = ff_q_bcpvzatq_valuation_selected_power_repeat_decoded * S ((S (ff_i_bcpvzatq_valuation_selected_power_repeat)) * ff_c_bcpvzatq_valuation_selected_power) + (p)))) /\ (exists ff_u_bcpvzatq_valuation_selected_power_product ff_v_bcpvzatq_valuation_selected_power_product. ((((exists ff_h_bcpvzatq_valuation_selected_power_product_start. ff_h_bcpvzatq_valuation_selected_power_product_start + S (1) = S ((S (0)) * ff_v_bcpvzatq_valuation_selected_power_product)) /\ exists ff_q_bcpvzatq_valuation_selected_power_product_start. ff_u_bcpvzatq_valuation_selected_power_product = ff_q_bcpvzatq_valuation_selected_power_product_start * S ((S (0)) * ff_v_bcpvzatq_valuation_selected_power_product) + (1))) /\ ((((exists ff_h_bcpvzatq_valuation_selected_power_product_terminal. ff_h_bcpvzatq_valuation_selected_power_product_terminal + S (bpv_result_bcpvzatq_valuation_selected) = S ((S (v)) * ff_v_bcpvzatq_valuation_selected_power_product)) /\ exists ff_q_bcpvzatq_valuation_selected_power_product_terminal. ff_u_bcpvzatq_valuation_selected_power_product = ff_q_bcpvzatq_valuation_selected_power_product_terminal * S ((S (v)) * ff_v_bcpvzatq_valuation_selected_power_product) + (bpv_result_bcpvzatq_valuation_selected))) /\ forall ff_i_bcpvzatq_valuation_selected_power_product. (exists ff_lt_bcpvzatq_valuation_selected_power_product_bound. ff_lt_bcpvzatq_valuation_selected_power_product_bound + S ff_i_bcpvzatq_valuation_selected_power_product = v) -> exists ff_p_bcpvzatq_valuation_selected_power_product ff_r_bcpvzatq_valuation_selected_power_product ff_s_bcpvzatq_valuation_selected_power_product. ((((exists ff_h_bcpvzatq_valuation_selected_power_product_factor. ff_h_bcpvzatq_valuation_selected_power_product_factor + S (ff_p_bcpvzatq_valuation_selected_power_product) = S ((S (ff_i_bcpvzatq_valuation_selected_power_product)) * ff_c_bcpvzatq_valuation_selected_power)) /\ exists ff_q_bcpvzatq_valuation_selected_power_product_factor. ff_b_bcpvzatq_valuation_selected_power = ff_q_bcpvzatq_valuation_selected_power_product_factor * S ((S (ff_i_bcpvzatq_valuation_selected_power_product)) * ff_c_bcpvzatq_valuation_selected_power) + (ff_p_bcpvzatq_valuation_selected_power_product))) /\ ((((exists ff_h_bcpvzatq_valuation_selected_power_product_partial. ff_h_bcpvzatq_valuation_selected_power_product_partial + S (ff_r_bcpvzatq_valuation_selected_power_product) = S ((S (ff_i_bcpvzatq_valuation_selected_power_product)) * ff_v_bcpvzatq_valuation_selected_power_product)) /\ exists ff_q_bcpvzatq_valuation_selected_power_product_partial. ff_u_bcpvzatq_valuation_selected_power_product = ff_q_bcpvzatq_valuation_selected_power_product_partial * S ((S (ff_i_bcpvzatq_valuation_selected_power_product)) * ff_v_bcpvzatq_valuation_selected_power_product) + (ff_r_bcpvzatq_valuation_selected_power_product))) /\ ((((exists ff_h_bcpvzatq_valuation_selected_power_product_successor. ff_h_bcpvzatq_valuation_selected_power_product_successor + S (ff_s_bcpvzatq_valuation_selected_power_product) = S ((S (S ff_i_bcpvzatq_valuation_selected_power_product)) * ff_v_bcpvzatq_valuation_selected_power_product)) /\ exists ff_q_bcpvzatq_valuation_selected_power_product_successor. ff_u_bcpvzatq_valuation_selected_power_product = ff_q_bcpvzatq_valuation_selected_power_product_successor * S ((S (S ff_i_bcpvzatq_valuation_selected_power_product)) * ff_v_bcpvzatq_valuation_selected_power_product) + (ff_s_bcpvzatq_valuation_selected_power_product))) /\ ff_s_bcpvzatq_valuation_selected_power_product = ff_r_bcpvzatq_valuation_selected_power_product * ff_p_bcpvzatq_valuation_selected_power_product)))))))) /\ (exists bpv_factor_bcpvzatq_valuation_selected_divides. C = bpv_result_bcpvzatq_valuation_selected * bpv_factor_bcpvzatq_valuation_selected_divides)))) /\ forall bpv_candidate_bcpvzatq_valuation. (exists bpv_gap_bcpvzatq_valuation_candidate_bound. bpv_gap_bcpvzatq_valuation_candidate_bound + bpv_candidate_bcpvzatq_valuation = C) -> (exists bpv_result_bcpvzatq_valuation_candidate. ((exists ff_b_bcpvzatq_valuation_candidate_power ff_c_bcpvzatq_valuation_candidate_power. ((forall ff_i_bcpvzatq_valuation_candidate_power_repeat. (exists ff_lt_bcpvzatq_valuation_candidate_power_repeat_bound. ff_lt_bcpvzatq_valuation_candidate_power_repeat_bound + S ff_i_bcpvzatq_valuation_candidate_power_repeat = bpv_candidate_bcpvzatq_valuation) -> (((exists ff_h_bcpvzatq_valuation_candidate_power_repeat_decoded. ff_h_bcpvzatq_valuation_candidate_power_repeat_decoded + S (p) = S ((S (ff_i_bcpvzatq_valuation_candidate_power_repeat)) * ff_c_bcpvzatq_valuation_candidate_power)) /\ exists ff_q_bcpvzatq_valuation_candidate_power_repeat_decoded. ff_b_bcpvzatq_valuation_candidate_power = ff_q_bcpvzatq_valuation_candidate_power_repeat_decoded * S ((S (ff_i_bcpvzatq_valuation_candidate_power_repeat)) * ff_c_bcpvzatq_valuation_candidate_power) + (p)))) /\ (exists ff_u_bcpvzatq_valuation_candidate_power_product ff_v_bcpvzatq_valuation_candidate_power_product. ((((exists ff_h_bcpvzatq_valuation_candidate_power_product_start. ff_h_bcpvzatq_valuation_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_bcpvzatq_valuation_candidate_power_product)) /\ exists ff_q_bcpvzatq_valuation_candidate_power_product_start. ff_u_bcpvzatq_valuation_candidate_power_product = ff_q_bcpvzatq_valuation_candidate_power_product_start * S ((S (0)) * ff_v_bcpvzatq_valuation_candidate_power_product) + (1))) /\ ((((exists ff_h_bcpvzatq_valuation_candidate_power_product_terminal. ff_h_bcpvzatq_valuation_candidate_power_product_terminal + S (bpv_result_bcpvzatq_valuation_candidate) = S ((S (bpv_candidate_bcpvzatq_valuation)) * ff_v_bcpvzatq_valuation_candidate_power_product)) /\ exists ff_q_bcpvzatq_valuation_candidate_power_product_terminal. ff_u_bcpvzatq_valuation_candidate_power_product = ff_q_bcpvzatq_valuation_candidate_power_product_terminal * S ((S (bpv_candidate_bcpvzatq_valuation)) * ff_v_bcpvzatq_valuation_candidate_power_product) + (bpv_result_bcpvzatq_valuation_candidate))) /\ forall ff_i_bcpvzatq_valuation_candidate_power_product. (exists ff_lt_bcpvzatq_valuation_candidate_power_product_bound. ff_lt_bcpvzatq_valuation_candidate_power_product_bound + S ff_i_bcpvzatq_valuation_candidate_power_product = bpv_candidate_bcpvzatq_valuation) -> exists ff_p_bcpvzatq_valuation_candidate_power_product ff_r_bcpvzatq_valuation_candidate_power_product ff_s_bcpvzatq_valuation_candidate_power_product. ((((exists ff_h_bcpvzatq_valuation_candidate_power_product_factor. ff_h_bcpvzatq_valuation_candidate_power_product_factor + S (ff_p_bcpvzatq_valuation_candidate_power_product) = S ((S (ff_i_bcpvzatq_valuation_candidate_power_product)) * ff_c_bcpvzatq_valuation_candidate_power)) /\ exists ff_q_bcpvzatq_valuation_candidate_power_product_factor. ff_b_bcpvzatq_valuation_candidate_power = ff_q_bcpvzatq_valuation_candidate_power_product_factor * S ((S (ff_i_bcpvzatq_valuation_candidate_power_product)) * ff_c_bcpvzatq_valuation_candidate_power) + (ff_p_bcpvzatq_valuation_candidate_power_product))) /\ ((((exists ff_h_bcpvzatq_valuation_candidate_power_product_partial. ff_h_bcpvzatq_valuation_candidate_power_product_partial + S (ff_r_bcpvzatq_valuation_candidate_power_product) = S ((S (ff_i_bcpvzatq_valuation_candidate_power_product)) * ff_v_bcpvzatq_valuation_candidate_power_product)) /\ exists ff_q_bcpvzatq_valuation_candidate_power_product_partial. ff_u_bcpvzatq_valuation_candidate_power_product = ff_q_bcpvzatq_valuation_candidate_power_product_partial * S ((S (ff_i_bcpvzatq_valuation_candidate_power_product)) * ff_v_bcpvzatq_valuation_candidate_power_product) + (ff_r_bcpvzatq_valuation_candidate_power_product))) /\ ((((exists ff_h_bcpvzatq_valuation_candidate_power_product_successor. ff_h_bcpvzatq_valuation_candidate_power_product_successor + S (ff_s_bcpvzatq_valuation_candidate_power_product) = S ((S (S ff_i_bcpvzatq_valuation_candidate_power_product)) * ff_v_bcpvzatq_valuation_candidate_power_product)) /\ exists ff_q_bcpvzatq_valuation_candidate_power_product_successor. ff_u_bcpvzatq_valuation_candidate_power_product = ff_q_bcpvzatq_valuation_candidate_power_product_successor * S ((S (S ff_i_bcpvzatq_valuation_candidate_power_product)) * ff_v_bcpvzatq_valuation_candidate_power_product) + (ff_s_bcpvzatq_valuation_candidate_power_product))) /\ ff_s_bcpvzatq_valuation_candidate_power_product = ff_r_bcpvzatq_valuation_candidate_power_product * ff_p_bcpvzatq_valuation_candidate_power_product)))))))) /\ (exists bpv_factor_bcpvzatq_valuation_candidate_divides. C = bpv_result_bcpvzatq_valuation_candidate * bpv_factor_bcpvzatq_valuation_candidate_divides))) -> (exists bpv_gap_bcpvzatq_valuation_maximal. bpv_gap_bcpvzatq_valuation_maximal + bpv_candidate_bcpvzatq_valuation = v)) -> v = 0

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

32 script commands · 4 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 q
  6. L6
    intro r
  7. L7
    intro hp
  8. L8
    intro hpositive
  9. L9
    intro hdivision
  10. L10
    intro habove
02Fix variables and assumptionsL11–13

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

  1. L11
    intro hbound
  2. L12
    intro hcentral
  3. L13
    intro hvaluation
03Establish hscaledL14–23

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply division three scaled upper of quotient lt.

  1. L14
    have hscaled : Lt(n + n,p + p + p)Definitions: Lt(n + n,p + p + p)Original native command in the exact edition
  2. L15
    specialize division_three_scaled_upper_of_quotient_lt n
  3. L16
    specialize division_three_scaled_upper_of_quotient_lt q
  4. L17
    specialize division_three_scaled_upper_of_quotient_lt r
  5. L18
    specialize division_three_scaled_upper_of_quotient_lt p
  6. L19
    apply division_three_scaled_upper_of_quotient_lt
  7. L20
    exact hdivision
  8. L21
    exact habove
  9. L22
    specialize central_binom_prime_valuation_zero_two_thirds_range p
  10. L23
    specialize central_binom_prime_valuation_zero_two_thirds_range n
04Use earlier factsL24–32

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

  1. L24
    specialize central_binom_prime_valuation_zero_two_thirds_range C
  2. L25
    specialize central_binom_prime_valuation_zero_two_thirds_range v
  3. L26
    apply central_binom_prime_valuation_zero_two_thirds_range
  4. L27
    exact hp
  5. L28
    exact hpositive
  6. L29
    exact hbound
  7. L30
    exact hscaled
  8. L31
    exact hcentral
  9. L32
    exact hvaluation

Library-wide reading audit

Original defined command ledger · 32 lines
  1. 0001intro p
  2. 0002intro n
  3. 0003intro C
  4. 0004intro v
  5. 0005intro q
  6. 0006intro r
  7. 0007intro hp
  8. 0008intro hpositive
  9. 0009intro hdivision
  10. 0010intro habove
  11. 0011intro hbound
  12. 0012intro hcentral
  13. 0013intro hvaluation
  14. 0014have hscaled : Lt(n + n,p + p + p)
    Exact native replay linehave hscaled : exists bcf_lt_gap_bcpvzatq_scaled. bcf_lt_gap_bcpvzatq_scaled + S (n + n) = (p + p) + p
  15. 0015specialize division_three_scaled_upper_of_quotient_lt n
  16. 0016specialize division_three_scaled_upper_of_quotient_lt q
  17. 0017specialize division_three_scaled_upper_of_quotient_lt r
  18. 0018specialize division_three_scaled_upper_of_quotient_lt p
  19. 0019apply division_three_scaled_upper_of_quotient_lt
  20. 0020exact hdivision
  21. 0021exact habove
  22. 0022specialize central_binom_prime_valuation_zero_two_thirds_range p
  23. 0023specialize central_binom_prime_valuation_zero_two_thirds_range n
  24. 0024specialize central_binom_prime_valuation_zero_two_thirds_range C
  25. 0025specialize central_binom_prime_valuation_zero_two_thirds_range v
  26. 0026apply central_binom_prime_valuation_zero_two_thirds_range
  27. 0027exact hp
  28. 0028exact hpositive
  29. 0029exact hbound
  30. 0030exact hscaled
  31. 0031exact hcentral
  32. 0032exact hvaluation