BT0112 · Bertrand theorem

no_bertrand_high_contribution_interval_eq_one

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

The high contribution interval is the multiplicative unit.

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

∀ n. ∀ s. ∀ q. ∀ r. ∀ C. ∀ h. ∀ w. (∀ x. Lt(n,x)Le(x,n + n) → ¬Prime(x)) → Lt(2,n)FloorSqrt(n + n,s)DivRem(n + n,3,q,r)CentralBinom(n,C) → (∃ x. ∃ y. (∀ z. Lt(z,h) → ∃ m. BetaAt(x,y,z,m) ∧ (Prime(S (q + z)) ∧ (∃ k. PowerValuation(S (q + z),C,k)Pow(S (q + z),k,m)) ∨ ¬Prime(S (q + z)) ∧ m = 1)) ∧ Product(x,y,h,w)) → w = 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

14 occurrences

In local proof propositions

8 occurrences

Exact expanded native-PA statement
forall n s q r C h w. (forall bpr_prime_candidate_b5nbhcieu_exclusion. ((exists bpr_gap_b5nbhcieu_exclusion_lower. bpr_gap_b5nbhcieu_exclusion_lower + S (n) = bpr_prime_candidate_b5nbhcieu_exclusion) /\ (exists bpr_le_gap_b5nbhcieu_exclusion_upper. bpr_le_gap_b5nbhcieu_exclusion_upper + (bpr_prime_candidate_b5nbhcieu_exclusion) = (n + n))) -> ~((~(bpr_prime_candidate_b5nbhcieu_exclusion = 1) /\ forall bpr_left_b5nbhcieu_exclusion_prime bpr_right_b5nbhcieu_exclusion_prime. bpr_prime_candidate_b5nbhcieu_exclusion = bpr_left_b5nbhcieu_exclusion_prime * bpr_right_b5nbhcieu_exclusion_prime -> bpr_left_b5nbhcieu_exclusion_prime = 1 \/ bpr_right_b5nbhcieu_exclusion_prime = 1))) -> (exists bcf_lt_gap_b5nbhcieu_positive. bcf_lt_gap_b5nbhcieu_positive + S (2) = n) -> (((exists bcs_sqrt_lower_gap_b5nbhcieu_floor. bcs_sqrt_lower_gap_b5nbhcieu_floor + (s) * (s) = (n + n)) /\ exists bcs_sqrt_upper_gap_b5nbhcieu_floor. bcs_sqrt_upper_gap_b5nbhcieu_floor + S (n + n) = S (s) * S (s))) -> (((n + n) = (3) * (q) + (r) /\ (exists bcf_lt_gap_b5nbhcieu_division_bound. bcf_lt_gap_b5nbhcieu_division_bound + S (r) = 3))) -> (((exists bcf_lt_gap_b5nbhcieu_central_out_of_range. bcf_lt_gap_b5nbhcieu_central_out_of_range + S (n + n) = n) /\ C = 0) \/ ((exists bcf_le_gap_b5nbhcieu_central_in_range. bcf_le_gap_b5nbhcieu_central_in_range + (n) = n + n) /\ (exists bcf_row_code_code_b5nbhcieu_central bcf_row_code_scale_b5nbhcieu_central bcf_row_scale_code_b5nbhcieu_central bcf_row_scale_scale_b5nbhcieu_central bcf_row_code_b5nbhcieu_central bcf_row_scale_b5nbhcieu_central. ((forall bcf_row_index_b5nbhcieu_central_table. (exists bcf_lt_gap_b5nbhcieu_central_table_row_bound. bcf_lt_gap_b5nbhcieu_central_table_row_bound + S (bcf_row_index_b5nbhcieu_central_table) = S (n + n)) -> exists bcf_row_code_b5nbhcieu_central_table bcf_row_scale_b5nbhcieu_central_table. ((((exists bcf_height_b5nbhcieu_central_table_decoded_row_code. bcf_height_b5nbhcieu_central_table_decoded_row_code + S (bcf_row_code_b5nbhcieu_central_table) = S ((S (bcf_row_index_b5nbhcieu_central_table)) * bcf_row_code_scale_b5nbhcieu_central)) /\ exists bcf_quotient_b5nbhcieu_central_table_decoded_row_code. bcf_row_code_code_b5nbhcieu_central = bcf_quotient_b5nbhcieu_central_table_decoded_row_code * S ((S (bcf_row_index_b5nbhcieu_central_table)) * bcf_row_code_scale_b5nbhcieu_central) + (bcf_row_code_b5nbhcieu_central_table))) /\ ((((exists bcf_height_b5nbhcieu_central_table_decoded_row_scale. bcf_height_b5nbhcieu_central_table_decoded_row_scale + S (bcf_row_scale_b5nbhcieu_central_table) = S ((S (bcf_row_index_b5nbhcieu_central_table)) * bcf_row_scale_scale_b5nbhcieu_central)) /\ exists bcf_quotient_b5nbhcieu_central_table_decoded_row_scale. bcf_row_scale_code_b5nbhcieu_central = bcf_quotient_b5nbhcieu_central_table_decoded_row_scale * S ((S (bcf_row_index_b5nbhcieu_central_table)) * bcf_row_scale_scale_b5nbhcieu_central) + (bcf_row_scale_b5nbhcieu_central_table))) /\ ((bcf_row_index_b5nbhcieu_central_table = 0 /\ (forall bcf_index_b5nbhcieu_central_table_zero_row. (exists bcf_lt_gap_b5nbhcieu_central_table_zero_row_bound. bcf_lt_gap_b5nbhcieu_central_table_zero_row_bound + S (bcf_index_b5nbhcieu_central_table_zero_row) = S (n + n)) -> exists bcf_value_b5nbhcieu_central_table_zero_row. ((((exists bcf_height_b5nbhcieu_central_table_zero_row_entry. bcf_height_b5nbhcieu_central_table_zero_row_entry + S (bcf_value_b5nbhcieu_central_table_zero_row) = S ((S (bcf_index_b5nbhcieu_central_table_zero_row)) * bcf_row_scale_b5nbhcieu_central_table)) /\ exists bcf_quotient_b5nbhcieu_central_table_zero_row_entry. bcf_row_code_b5nbhcieu_central_table = bcf_quotient_b5nbhcieu_central_table_zero_row_entry * S ((S (bcf_index_b5nbhcieu_central_table_zero_row)) * bcf_row_scale_b5nbhcieu_central_table) + (bcf_value_b5nbhcieu_central_table_zero_row))) /\ ((bcf_index_b5nbhcieu_central_table_zero_row = 0 /\ bcf_value_b5nbhcieu_central_table_zero_row = 1) \/ exists bcf_predecessor_b5nbhcieu_central_table_zero_row. bcf_index_b5nbhcieu_central_table_zero_row = S bcf_predecessor_b5nbhcieu_central_table_zero_row /\ bcf_value_b5nbhcieu_central_table_zero_row = 0)))) \/ exists bcf_predecessor_b5nbhcieu_central_table bcf_previous_code_b5nbhcieu_central_table bcf_previous_scale_b5nbhcieu_central_table. bcf_row_index_b5nbhcieu_central_table = S bcf_predecessor_b5nbhcieu_central_table /\ ((((exists bcf_height_b5nbhcieu_central_table_decoded_previous_code. bcf_height_b5nbhcieu_central_table_decoded_previous_code + S (bcf_previous_code_b5nbhcieu_central_table) = S ((S (bcf_predecessor_b5nbhcieu_central_table)) * bcf_row_code_scale_b5nbhcieu_central)) /\ exists bcf_quotient_b5nbhcieu_central_table_decoded_previous_code. bcf_row_code_code_b5nbhcieu_central = bcf_quotient_b5nbhcieu_central_table_decoded_previous_code * S ((S (bcf_predecessor_b5nbhcieu_central_table)) * bcf_row_code_scale_b5nbhcieu_central) + (bcf_previous_code_b5nbhcieu_central_table))) /\ ((((exists bcf_height_b5nbhcieu_central_table_decoded_previous_scale. bcf_height_b5nbhcieu_central_table_decoded_previous_scale + S (bcf_previous_scale_b5nbhcieu_central_table) = S ((S (bcf_predecessor_b5nbhcieu_central_table)) * bcf_row_scale_scale_b5nbhcieu_central)) /\ exists bcf_quotient_b5nbhcieu_central_table_decoded_previous_scale. bcf_row_scale_code_b5nbhcieu_central = bcf_quotient_b5nbhcieu_central_table_decoded_previous_scale * S ((S (bcf_predecessor_b5nbhcieu_central_table)) * bcf_row_scale_scale_b5nbhcieu_central) + (bcf_previous_scale_b5nbhcieu_central_table))) /\ (forall bcf_index_b5nbhcieu_central_table_row_step. (exists bcf_lt_gap_b5nbhcieu_central_table_row_step_bound. bcf_lt_gap_b5nbhcieu_central_table_row_step_bound + S (bcf_index_b5nbhcieu_central_table_row_step) = S (n + n)) -> exists bcf_value_b5nbhcieu_central_table_row_step. ((((exists bcf_height_b5nbhcieu_central_table_row_step_entry. bcf_height_b5nbhcieu_central_table_row_step_entry + S (bcf_value_b5nbhcieu_central_table_row_step) = S ((S (bcf_index_b5nbhcieu_central_table_row_step)) * bcf_row_scale_b5nbhcieu_central_table)) /\ exists bcf_quotient_b5nbhcieu_central_table_row_step_entry. bcf_row_code_b5nbhcieu_central_table = bcf_quotient_b5nbhcieu_central_table_row_step_entry * S ((S (bcf_index_b5nbhcieu_central_table_row_step)) * bcf_row_scale_b5nbhcieu_central_table) + (bcf_value_b5nbhcieu_central_table_row_step))) /\ ((bcf_index_b5nbhcieu_central_table_row_step = 0 /\ bcf_value_b5nbhcieu_central_table_row_step = 1) \/ exists bcf_predecessor_b5nbhcieu_central_table_row_step bcf_left_b5nbhcieu_central_table_row_step bcf_right_b5nbhcieu_central_table_row_step. bcf_index_b5nbhcieu_central_table_row_step = S bcf_predecessor_b5nbhcieu_central_table_row_step /\ ((((exists bcf_height_b5nbhcieu_central_table_row_step_previous_left. bcf_height_b5nbhcieu_central_table_row_step_previous_left + S (bcf_left_b5nbhcieu_central_table_row_step) = S ((S (bcf_predecessor_b5nbhcieu_central_table_row_step)) * bcf_previous_scale_b5nbhcieu_central_table)) /\ exists bcf_quotient_b5nbhcieu_central_table_row_step_previous_left. bcf_previous_code_b5nbhcieu_central_table = bcf_quotient_b5nbhcieu_central_table_row_step_previous_left * S ((S (bcf_predecessor_b5nbhcieu_central_table_row_step)) * bcf_previous_scale_b5nbhcieu_central_table) + (bcf_left_b5nbhcieu_central_table_row_step))) /\ ((((exists bcf_height_b5nbhcieu_central_table_row_step_previous_right. bcf_height_b5nbhcieu_central_table_row_step_previous_right + S (bcf_right_b5nbhcieu_central_table_row_step) = S ((S (S (bcf_predecessor_b5nbhcieu_central_table_row_step))) * bcf_previous_scale_b5nbhcieu_central_table)) /\ exists bcf_quotient_b5nbhcieu_central_table_row_step_previous_right. bcf_previous_code_b5nbhcieu_central_table = bcf_quotient_b5nbhcieu_central_table_row_step_previous_right * S ((S (S (bcf_predecessor_b5nbhcieu_central_table_row_step))) * bcf_previous_scale_b5nbhcieu_central_table) + (bcf_right_b5nbhcieu_central_table_row_step))) /\ bcf_value_b5nbhcieu_central_table_row_step = bcf_left_b5nbhcieu_central_table_row_step + bcf_right_b5nbhcieu_central_table_row_step))))))))))) /\ ((((exists bcf_height_b5nbhcieu_central_decoded_row_code. bcf_height_b5nbhcieu_central_decoded_row_code + S (bcf_row_code_b5nbhcieu_central) = S ((S (n + n)) * bcf_row_code_scale_b5nbhcieu_central)) /\ exists bcf_quotient_b5nbhcieu_central_decoded_row_code. bcf_row_code_code_b5nbhcieu_central = bcf_quotient_b5nbhcieu_central_decoded_row_code * S ((S (n + n)) * bcf_row_code_scale_b5nbhcieu_central) + (bcf_row_code_b5nbhcieu_central))) /\ ((((exists bcf_height_b5nbhcieu_central_decoded_row_scale. bcf_height_b5nbhcieu_central_decoded_row_scale + S (bcf_row_scale_b5nbhcieu_central) = S ((S (n + n)) * bcf_row_scale_scale_b5nbhcieu_central)) /\ exists bcf_quotient_b5nbhcieu_central_decoded_row_scale. bcf_row_scale_code_b5nbhcieu_central = bcf_quotient_b5nbhcieu_central_decoded_row_scale * S ((S (n + n)) * bcf_row_scale_scale_b5nbhcieu_central) + (bcf_row_scale_b5nbhcieu_central))) /\ (((exists bcf_height_b5nbhcieu_central_decoded_value. bcf_height_b5nbhcieu_central_decoded_value + S (C) = S ((S (n)) * bcf_row_scale_b5nbhcieu_central)) /\ exists bcf_quotient_b5nbhcieu_central_decoded_value. bcf_row_code_b5nbhcieu_central = bcf_quotient_b5nbhcieu_central_decoded_value * S ((S (n)) * bcf_row_scale_b5nbhcieu_central) + (C))))))))) -> (exists bpr_code_b5nbhcieu_interval bpr_scale_b5nbhcieu_interval. ((forall bpr_index_b5nbhcieu_interval_prefix. (exists bpr_gap_b5nbhcieu_interval_prefix_bound. bpr_gap_b5nbhcieu_interval_prefix_bound + S (bpr_index_b5nbhcieu_interval_prefix) = h) -> exists bpr_value_b5nbhcieu_interval_prefix. ((((exists bpr_height_b5nbhcieu_interval_prefix_decoded. bpr_height_b5nbhcieu_interval_prefix_decoded + S (bpr_value_b5nbhcieu_interval_prefix) = S ((S (bpr_index_b5nbhcieu_interval_prefix)) * bpr_scale_b5nbhcieu_interval)) /\ exists bpr_quotient_b5nbhcieu_interval_prefix_decoded. bpr_code_b5nbhcieu_interval = bpr_quotient_b5nbhcieu_interval_prefix_decoded * S ((S (bpr_index_b5nbhcieu_interval_prefix)) * bpr_scale_b5nbhcieu_interval) + (bpr_value_b5nbhcieu_interval_prefix))) /\ (((((~(S (q + bpr_index_b5nbhcieu_interval_prefix) = 1) /\ forall bpr_left_b5nbhcieu_interval_prefix_choice_prime bpr_right_b5nbhcieu_interval_prefix_choice_prime. S (q + bpr_index_b5nbhcieu_interval_prefix) = bpr_left_b5nbhcieu_interval_prefix_choice_prime * bpr_right_b5nbhcieu_interval_prefix_choice_prime -> bpr_left_b5nbhcieu_interval_prefix_choice_prime = 1 \/ bpr_right_b5nbhcieu_interval_prefix_choice_prime = 1)) /\ exists bpr_choice_exponent_b5nbhcieu_interval_prefix_choice. ((((exists bpr_le_gap_b5nbhcieu_interval_prefix_choice_valuation_selected_bound. bpr_le_gap_b5nbhcieu_interval_prefix_choice_valuation_selected_bound + (bpr_choice_exponent_b5nbhcieu_interval_prefix_choice) = (C)) /\ (exists bpr_power_value_b5nbhcieu_interval_prefix_choice_valuation_selected. ((exists bpr_power_code_b5nbhcieu_interval_prefix_choice_valuation_selected_power bpr_power_scale_b5nbhcieu_interval_prefix_choice_valuation_selected_power. ((forall bpr_power_index_b5nbhcieu_interval_prefix_choice_valuation_selected_power. (exists bpr_gap_b5nbhcieu_interval_prefix_choice_valuation_selected_power_repeat_bound. bpr_gap_b5nbhcieu_interval_prefix_choice_valuation_selected_power_repeat_bound + S (bpr_power_index_b5nbhcieu_interval_prefix_choice_valuation_selected_power) = bpr_choice_exponent_b5nbhcieu_interval_prefix_choice) -> (((exists bpr_height_b5nbhcieu_interval_prefix_choice_valuation_selected_power_repeat_entry. bpr_height_b5nbhcieu_interval_prefix_choice_valuation_selected_power_repeat_entry + S (S (q + bpr_index_b5nbhcieu_interval_prefix)) = S ((S (bpr_power_index_b5nbhcieu_interval_prefix_choice_valuation_selected_power)) * bpr_power_scale_b5nbhcieu_interval_prefix_choice_valuation_selected_power)) /\ exists bpr_quotient_b5nbhcieu_interval_prefix_choice_valuation_selected_power_repeat_entry. bpr_power_code_b5nbhcieu_interval_prefix_choice_valuation_selected_power = bpr_quotient_b5nbhcieu_interval_prefix_choice_valuation_selected_power_repeat_entry * S ((S (bpr_power_index_b5nbhcieu_interval_prefix_choice_valuation_selected_power)) * bpr_power_scale_b5nbhcieu_interval_prefix_choice_valuation_selected_power) + (S (q + bpr_index_b5nbhcieu_interval_prefix))))) /\ (exists ff_u_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product ff_v_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product. ((((exists ff_h_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_start. ff_h_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_start. ff_u_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product = ff_q_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_start * S ((S (0)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product) + (1))) /\ ((((exists ff_h_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_terminal. ff_h_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_terminal + S (bpr_power_value_b5nbhcieu_interval_prefix_choice_valuation_selected) = S ((S (bpr_choice_exponent_b5nbhcieu_interval_prefix_choice)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_terminal. ff_u_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product = ff_q_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_terminal * S ((S (bpr_choice_exponent_b5nbhcieu_interval_prefix_choice)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product) + (bpr_power_value_b5nbhcieu_interval_prefix_choice_valuation_selected))) /\ forall ff_i_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product. (exists ff_lt_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_bound. ff_lt_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_bound + S ff_i_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product = bpr_choice_exponent_b5nbhcieu_interval_prefix_choice) -> exists ff_p_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product ff_r_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product ff_s_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product. ((((exists ff_h_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_factor. ff_h_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_factor + S (ff_p_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product) = S ((S (ff_i_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product)) * bpr_power_scale_b5nbhcieu_interval_prefix_choice_valuation_selected_power)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_factor. bpr_power_code_b5nbhcieu_interval_prefix_choice_valuation_selected_power = ff_q_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_factor * S ((S (ff_i_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product)) * bpr_power_scale_b5nbhcieu_interval_prefix_choice_valuation_selected_power) + (ff_p_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product))) /\ ((((exists ff_h_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_partial. ff_h_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_partial + S (ff_r_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product) = S ((S (ff_i_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_partial. ff_u_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product = ff_q_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_partial * S ((S (ff_i_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product) + (ff_r_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product))) /\ ((((exists ff_h_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_successor. ff_h_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_successor + S (ff_s_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product) = S ((S (S ff_i_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_successor. ff_u_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product = ff_q_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product_successor * S ((S (S ff_i_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product) + (ff_s_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product))) /\ ff_s_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product = ff_r_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product * ff_p_b5nbhcieu_interval_prefix_choice_valuation_selected_power_product)))))))) /\ (exists bpr_divides_quotient_b5nbhcieu_interval_prefix_choice_valuation_selected_divides. C = (bpr_power_value_b5nbhcieu_interval_prefix_choice_valuation_selected) * bpr_divides_quotient_b5nbhcieu_interval_prefix_choice_valuation_selected_divides)))) /\ forall bpr_valuation_candidate_b5nbhcieu_interval_prefix_choice_valuation. (exists bpr_le_gap_b5nbhcieu_interval_prefix_choice_valuation_candidate_bound. bpr_le_gap_b5nbhcieu_interval_prefix_choice_valuation_candidate_bound + (bpr_valuation_candidate_b5nbhcieu_interval_prefix_choice_valuation) = (C)) -> (exists bpr_power_value_b5nbhcieu_interval_prefix_choice_valuation_candidate. ((exists bpr_power_code_b5nbhcieu_interval_prefix_choice_valuation_candidate_power bpr_power_scale_b5nbhcieu_interval_prefix_choice_valuation_candidate_power. ((forall bpr_power_index_b5nbhcieu_interval_prefix_choice_valuation_candidate_power. (exists bpr_gap_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_repeat_bound. bpr_gap_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_repeat_bound + S (bpr_power_index_b5nbhcieu_interval_prefix_choice_valuation_candidate_power) = bpr_valuation_candidate_b5nbhcieu_interval_prefix_choice_valuation) -> (((exists bpr_height_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_repeat_entry. bpr_height_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_repeat_entry + S (S (q + bpr_index_b5nbhcieu_interval_prefix)) = S ((S (bpr_power_index_b5nbhcieu_interval_prefix_choice_valuation_candidate_power)) * bpr_power_scale_b5nbhcieu_interval_prefix_choice_valuation_candidate_power)) /\ exists bpr_quotient_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_repeat_entry. bpr_power_code_b5nbhcieu_interval_prefix_choice_valuation_candidate_power = bpr_quotient_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_repeat_entry * S ((S (bpr_power_index_b5nbhcieu_interval_prefix_choice_valuation_candidate_power)) * bpr_power_scale_b5nbhcieu_interval_prefix_choice_valuation_candidate_power) + (S (q + bpr_index_b5nbhcieu_interval_prefix))))) /\ (exists ff_u_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product ff_v_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product. ((((exists ff_h_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_start. ff_h_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_start. ff_u_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product = ff_q_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_start * S ((S (0)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product) + (1))) /\ ((((exists ff_h_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_terminal. ff_h_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_terminal + S (bpr_power_value_b5nbhcieu_interval_prefix_choice_valuation_candidate) = S ((S (bpr_valuation_candidate_b5nbhcieu_interval_prefix_choice_valuation)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_terminal. ff_u_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product = ff_q_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_terminal * S ((S (bpr_valuation_candidate_b5nbhcieu_interval_prefix_choice_valuation)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product) + (bpr_power_value_b5nbhcieu_interval_prefix_choice_valuation_candidate))) /\ forall ff_i_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product. (exists ff_lt_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_bound. ff_lt_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_bound + S ff_i_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product = bpr_valuation_candidate_b5nbhcieu_interval_prefix_choice_valuation) -> exists ff_p_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product ff_r_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product ff_s_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product. ((((exists ff_h_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_factor. ff_h_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_factor + S (ff_p_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product) = S ((S (ff_i_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product)) * bpr_power_scale_b5nbhcieu_interval_prefix_choice_valuation_candidate_power)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_factor. bpr_power_code_b5nbhcieu_interval_prefix_choice_valuation_candidate_power = ff_q_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_factor * S ((S (ff_i_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product)) * bpr_power_scale_b5nbhcieu_interval_prefix_choice_valuation_candidate_power) + (ff_p_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product))) /\ ((((exists ff_h_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_partial. ff_h_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_partial + S (ff_r_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product) = S ((S (ff_i_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_partial. ff_u_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product = ff_q_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_partial * S ((S (ff_i_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product) + (ff_r_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product))) /\ ((((exists ff_h_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_successor. ff_h_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_successor + S (ff_s_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product) = S ((S (S ff_i_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_successor. ff_u_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product = ff_q_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product_successor * S ((S (S ff_i_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product)) * ff_v_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product) + (ff_s_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product))) /\ ff_s_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product = ff_r_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product * ff_p_b5nbhcieu_interval_prefix_choice_valuation_candidate_power_product)))))))) /\ (exists bpr_divides_quotient_b5nbhcieu_interval_prefix_choice_valuation_candidate_divides. C = (bpr_power_value_b5nbhcieu_interval_prefix_choice_valuation_candidate) * bpr_divides_quotient_b5nbhcieu_interval_prefix_choice_valuation_candidate_divides))) -> (exists bpr_le_gap_b5nbhcieu_interval_prefix_choice_valuation_candidate_below. bpr_le_gap_b5nbhcieu_interval_prefix_choice_valuation_candidate_below + (bpr_valuation_candidate_b5nbhcieu_interval_prefix_choice_valuation) = (bpr_choice_exponent_b5nbhcieu_interval_prefix_choice))) /\ (exists bpr_power_code_b5nbhcieu_interval_prefix_choice_power bpr_power_scale_b5nbhcieu_interval_prefix_choice_power. ((forall bpr_power_index_b5nbhcieu_interval_prefix_choice_power. (exists bpr_gap_b5nbhcieu_interval_prefix_choice_power_repeat_bound. bpr_gap_b5nbhcieu_interval_prefix_choice_power_repeat_bound + S (bpr_power_index_b5nbhcieu_interval_prefix_choice_power) = bpr_choice_exponent_b5nbhcieu_interval_prefix_choice) -> (((exists bpr_height_b5nbhcieu_interval_prefix_choice_power_repeat_entry. bpr_height_b5nbhcieu_interval_prefix_choice_power_repeat_entry + S (S (q + bpr_index_b5nbhcieu_interval_prefix)) = S ((S (bpr_power_index_b5nbhcieu_interval_prefix_choice_power)) * bpr_power_scale_b5nbhcieu_interval_prefix_choice_power)) /\ exists bpr_quotient_b5nbhcieu_interval_prefix_choice_power_repeat_entry. bpr_power_code_b5nbhcieu_interval_prefix_choice_power = bpr_quotient_b5nbhcieu_interval_prefix_choice_power_repeat_entry * S ((S (bpr_power_index_b5nbhcieu_interval_prefix_choice_power)) * bpr_power_scale_b5nbhcieu_interval_prefix_choice_power) + (S (q + bpr_index_b5nbhcieu_interval_prefix))))) /\ (exists ff_u_b5nbhcieu_interval_prefix_choice_power_product ff_v_b5nbhcieu_interval_prefix_choice_power_product. ((((exists ff_h_b5nbhcieu_interval_prefix_choice_power_product_start. ff_h_b5nbhcieu_interval_prefix_choice_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbhcieu_interval_prefix_choice_power_product)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_power_product_start. ff_u_b5nbhcieu_interval_prefix_choice_power_product = ff_q_b5nbhcieu_interval_prefix_choice_power_product_start * S ((S (0)) * ff_v_b5nbhcieu_interval_prefix_choice_power_product) + (1))) /\ ((((exists ff_h_b5nbhcieu_interval_prefix_choice_power_product_terminal. ff_h_b5nbhcieu_interval_prefix_choice_power_product_terminal + S (bpr_value_b5nbhcieu_interval_prefix) = S ((S (bpr_choice_exponent_b5nbhcieu_interval_prefix_choice)) * ff_v_b5nbhcieu_interval_prefix_choice_power_product)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_power_product_terminal. ff_u_b5nbhcieu_interval_prefix_choice_power_product = ff_q_b5nbhcieu_interval_prefix_choice_power_product_terminal * S ((S (bpr_choice_exponent_b5nbhcieu_interval_prefix_choice)) * ff_v_b5nbhcieu_interval_prefix_choice_power_product) + (bpr_value_b5nbhcieu_interval_prefix))) /\ forall ff_i_b5nbhcieu_interval_prefix_choice_power_product. (exists ff_lt_b5nbhcieu_interval_prefix_choice_power_product_bound. ff_lt_b5nbhcieu_interval_prefix_choice_power_product_bound + S ff_i_b5nbhcieu_interval_prefix_choice_power_product = bpr_choice_exponent_b5nbhcieu_interval_prefix_choice) -> exists ff_p_b5nbhcieu_interval_prefix_choice_power_product ff_r_b5nbhcieu_interval_prefix_choice_power_product ff_s_b5nbhcieu_interval_prefix_choice_power_product. ((((exists ff_h_b5nbhcieu_interval_prefix_choice_power_product_factor. ff_h_b5nbhcieu_interval_prefix_choice_power_product_factor + S (ff_p_b5nbhcieu_interval_prefix_choice_power_product) = S ((S (ff_i_b5nbhcieu_interval_prefix_choice_power_product)) * bpr_power_scale_b5nbhcieu_interval_prefix_choice_power)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_power_product_factor. bpr_power_code_b5nbhcieu_interval_prefix_choice_power = ff_q_b5nbhcieu_interval_prefix_choice_power_product_factor * S ((S (ff_i_b5nbhcieu_interval_prefix_choice_power_product)) * bpr_power_scale_b5nbhcieu_interval_prefix_choice_power) + (ff_p_b5nbhcieu_interval_prefix_choice_power_product))) /\ ((((exists ff_h_b5nbhcieu_interval_prefix_choice_power_product_partial. ff_h_b5nbhcieu_interval_prefix_choice_power_product_partial + S (ff_r_b5nbhcieu_interval_prefix_choice_power_product) = S ((S (ff_i_b5nbhcieu_interval_prefix_choice_power_product)) * ff_v_b5nbhcieu_interval_prefix_choice_power_product)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_power_product_partial. ff_u_b5nbhcieu_interval_prefix_choice_power_product = ff_q_b5nbhcieu_interval_prefix_choice_power_product_partial * S ((S (ff_i_b5nbhcieu_interval_prefix_choice_power_product)) * ff_v_b5nbhcieu_interval_prefix_choice_power_product) + (ff_r_b5nbhcieu_interval_prefix_choice_power_product))) /\ ((((exists ff_h_b5nbhcieu_interval_prefix_choice_power_product_successor. ff_h_b5nbhcieu_interval_prefix_choice_power_product_successor + S (ff_s_b5nbhcieu_interval_prefix_choice_power_product) = S ((S (S ff_i_b5nbhcieu_interval_prefix_choice_power_product)) * ff_v_b5nbhcieu_interval_prefix_choice_power_product)) /\ exists ff_q_b5nbhcieu_interval_prefix_choice_power_product_successor. ff_u_b5nbhcieu_interval_prefix_choice_power_product = ff_q_b5nbhcieu_interval_prefix_choice_power_product_successor * S ((S (S ff_i_b5nbhcieu_interval_prefix_choice_power_product)) * ff_v_b5nbhcieu_interval_prefix_choice_power_product) + (ff_s_b5nbhcieu_interval_prefix_choice_power_product))) /\ ff_s_b5nbhcieu_interval_prefix_choice_power_product = ff_r_b5nbhcieu_interval_prefix_choice_power_product * ff_p_b5nbhcieu_interval_prefix_choice_power_product)))))))))) \/ (~((~(S (q + bpr_index_b5nbhcieu_interval_prefix) = 1) /\ forall bpr_left_b5nbhcieu_interval_prefix_choice_prime bpr_right_b5nbhcieu_interval_prefix_choice_prime. S (q + bpr_index_b5nbhcieu_interval_prefix) = bpr_left_b5nbhcieu_interval_prefix_choice_prime * bpr_right_b5nbhcieu_interval_prefix_choice_prime -> bpr_left_b5nbhcieu_interval_prefix_choice_prime = 1 \/ bpr_right_b5nbhcieu_interval_prefix_choice_prime = 1)) /\ bpr_value_b5nbhcieu_interval_prefix = 1))))) /\ (exists ff_u_b5nbhcieu_interval_product ff_v_b5nbhcieu_interval_product. ((((exists ff_h_b5nbhcieu_interval_product_start. ff_h_b5nbhcieu_interval_product_start + S (1) = S ((S (0)) * ff_v_b5nbhcieu_interval_product)) /\ exists ff_q_b5nbhcieu_interval_product_start. ff_u_b5nbhcieu_interval_product = ff_q_b5nbhcieu_interval_product_start * S ((S (0)) * ff_v_b5nbhcieu_interval_product) + (1))) /\ ((((exists ff_h_b5nbhcieu_interval_product_terminal. ff_h_b5nbhcieu_interval_product_terminal + S (w) = S ((S (h)) * ff_v_b5nbhcieu_interval_product)) /\ exists ff_q_b5nbhcieu_interval_product_terminal. ff_u_b5nbhcieu_interval_product = ff_q_b5nbhcieu_interval_product_terminal * S ((S (h)) * ff_v_b5nbhcieu_interval_product) + (w))) /\ forall ff_i_b5nbhcieu_interval_product. (exists ff_lt_b5nbhcieu_interval_product_bound. ff_lt_b5nbhcieu_interval_product_bound + S ff_i_b5nbhcieu_interval_product = h) -> exists ff_p_b5nbhcieu_interval_product ff_r_b5nbhcieu_interval_product ff_s_b5nbhcieu_interval_product. ((((exists ff_h_b5nbhcieu_interval_product_factor. ff_h_b5nbhcieu_interval_product_factor + S (ff_p_b5nbhcieu_interval_product) = S ((S (ff_i_b5nbhcieu_interval_product)) * bpr_scale_b5nbhcieu_interval)) /\ exists ff_q_b5nbhcieu_interval_product_factor. bpr_code_b5nbhcieu_interval = ff_q_b5nbhcieu_interval_product_factor * S ((S (ff_i_b5nbhcieu_interval_product)) * bpr_scale_b5nbhcieu_interval) + (ff_p_b5nbhcieu_interval_product))) /\ ((((exists ff_h_b5nbhcieu_interval_product_partial. ff_h_b5nbhcieu_interval_product_partial + S (ff_r_b5nbhcieu_interval_product) = S ((S (ff_i_b5nbhcieu_interval_product)) * ff_v_b5nbhcieu_interval_product)) /\ exists ff_q_b5nbhcieu_interval_product_partial. ff_u_b5nbhcieu_interval_product = ff_q_b5nbhcieu_interval_product_partial * S ((S (ff_i_b5nbhcieu_interval_product)) * ff_v_b5nbhcieu_interval_product) + (ff_r_b5nbhcieu_interval_product))) /\ ((((exists ff_h_b5nbhcieu_interval_product_successor. ff_h_b5nbhcieu_interval_product_successor + S (ff_s_b5nbhcieu_interval_product) = S ((S (S ff_i_b5nbhcieu_interval_product)) * ff_v_b5nbhcieu_interval_product)) /\ exists ff_q_b5nbhcieu_interval_product_successor. ff_u_b5nbhcieu_interval_product = ff_q_b5nbhcieu_interval_product_successor * S ((S (S ff_i_b5nbhcieu_interval_product)) * ff_v_b5nbhcieu_interval_product) + (ff_s_b5nbhcieu_interval_product))) /\ ff_s_b5nbhcieu_interval_product = ff_r_b5nbhcieu_interval_product * ff_p_b5nbhcieu_interval_product)))))))) -> w = 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

68 script commands · 17 reading checkpoints · 5 local claims

This is a reading aid, not a new proof or a proof-tree certificate. Checkpoint groups are consecutive commands, not inferred branch boundaries. Every step links to the preserved script.

Definition notation is shown below. Open the paired exact edition for the original native formulas. Source pairing is not a new equivalence certificate.

Named ingredients (4)
01Fix variables and assumptionsL1–10

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

  1. L1
    intro n
  2. L2
    intro s
  3. L3
    intro q
  4. L4
    intro r
  5. L5
    intro C
  6. L6
    intro h
  7. L7
    intro w
  8. L8
    intro hexclusion
  9. L9
    intro hpositive
  10. L10
    intro hfloor
02Fix variables and assumptionsL11–13

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

  1. L11
    intro hdivision
  2. L12
    intro hcentral
  3. L13
    intro hinterval
03Separate the logical casesL14–16

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

  1. L14
    cases hinterval
  2. L15
    cases hinterval_witness
  3. L16
    cases hinterval_witness_witness
04Establish hallL17–21

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

  1. L17
    have hall : ∀ i. ∀ a. Lt(i,h) → BetaAt(x,x1,i,a) → a = 1Definitions: Lt(i,h)BetaAt(x,x1,i,a)Original native command in the exact edition
  2. L18
    intro i
  3. L19
    intro a
  4. L20
    intro hi
  5. L21
    intro ha
05Establish hlocalL22–24

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply hinterval witness witness left.

  1. L22
    have hlocal : ∃ p. BetaAt(x,x1,i,p) ∧ (Prime(S (q + i)) ∧ (∃ y. PowerValuation(S (q + i),C,y) ∧ Pow(S (q + i),y,p)) ∨ ¬Prime(S (q + i)) ∧ p = 1)Definitions: BetaAt(x,x1,i,p)Prime(S (q + i))PowerValuation(S (q + i),C,y)Pow(S (q + i),y,p)Original native command in the exact edition
  2. L23
    apply hinterval_witness_witness_left
  3. L24
    exact hi
06Separate the logical casesL25–26

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

  1. L25
    cases hlocal
  2. L26
    cases hlocal_witness
07Establish heqL27–35

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply beta at unique.

  1. L27
    have heq : a = x2
  2. L28
    specialize beta_at_unique x
  3. L29
    specialize beta_at_unique x1
  4. L30
    specialize beta_at_unique i
  5. L31
    specialize beta_at_unique a
  6. L32
    specialize beta_at_unique x2
  7. L33
    apply beta_at_unique
  8. L34
    exact ha
  9. L35
    exact hlocal_witness_left
08Establish haboveL36–36

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

  1. L36
    have habove : Lt(q,S (q + i))Definitions: Lt(q,S (q + i))Original native command in the exact edition
09Construct an explicit witnessL37–37

Supply the displayed value, then prove that it has the required property.

  1. L37
    exists i
10Calculate and transport equalitiesL38–38

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

  1. L38
    trans S (i + q)
11Use earlier factsL39–39

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

  1. L39
    apply PA4
12Calculate and transport equalitiesL40–40

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

  1. L40
    congr
13Use earlier factsL41–43

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

  1. L41
    specialize add_comm i
  2. L42
    specialize add_comm q
  3. L43
    exact add_comm
14Establish hfactor_oneL44–53

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply no bertrand high contribution choice eq one.

  1. L44
    have hfactor_one : x2 = 1
  2. L45
    specialize no_bertrand_high_contribution_choice_eq_one n
  3. L46
    specialize no_bertrand_high_contribution_choice_eq_one s
  4. L47
    specialize no_bertrand_high_contribution_choice_eq_one q
  5. L48
    specialize no_bertrand_high_contribution_choice_eq_one r
  6. L49
    specialize no_bertrand_high_contribution_choice_eq_one C
  7. L50
    specialize no_bertrand_high_contribution_choice_eq_one (q + i)
  8. L51
    specialize no_bertrand_high_contribution_choice_eq_one x2
  9. L52
    apply no_bertrand_high_contribution_choice_eq_one
  10. L53
    exact hexclusion
15Use earlier factsL54–59

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

  1. L54
    exact hpositive
  2. L55
    exact hfloor
  3. L56
    exact hdivision
  4. L57
    exact hcentral
  5. L58
    exact habove
  6. L59
    exact hlocal_witness_right
16Calculate and transport equalitiesL60–60

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

  1. L60
    rewrite heq
17Use earlier factsL61–68

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

  1. L61
    exact hfactor_one
  2. L62
    specialize beta_product_all_one_exact x
  3. L63
    specialize beta_product_all_one_exact x1
  4. L64
    specialize beta_product_all_one_exact h
  5. L65
    specialize beta_product_all_one_exact w
  6. L66
    apply beta_product_all_one_exact
  7. L67
    exact hall
  8. L68
    exact hinterval_witness_witness_right

Library-wide reading audit

Original defined command ledger · 68 lines
  1. 0001intro n
  2. 0002intro s
  3. 0003intro q
  4. 0004intro r
  5. 0005intro C
  6. 0006intro h
  7. 0007intro w
  8. 0008intro hexclusion
  9. 0009intro hpositive
  10. 0010intro hfloor
  11. 0011intro hdivision
  12. 0012intro hcentral
  13. 0013intro hinterval
  14. 0014cases hinterval
  15. 0015cases hinterval_witness
  16. 0016cases hinterval_witness_witness
  17. 0017have hall : ∀ i. ∀ a. Lt(i,h)BetaAt(x,x1,i,a) → a = 1
    Exact native replay linehave hall : forall i a. (exists bcf_lt_gap_b5nbhcieu_all_bound. bcf_lt_gap_b5nbhcieu_all_bound + S (i) = h) -> (((exists bpr_height_b5nbhcieu_all_entry. bpr_height_b5nbhcieu_all_entry + S (a) = S ((S (i)) * x1)) /\ exists bpr_quotient_b5nbhcieu_all_entry. x = bpr_quotient_b5nbhcieu_all_entry * S ((S (i)) * x1) + (a))) -> a = 1
  18. 0018intro i
  19. 0019intro a
  20. 0020intro hi
  21. 0021intro ha
  22. 0022have hlocal : ∃ p. BetaAt(x,x1,i,p) ∧ (Prime(S (q + i)) ∧ (∃ y. PowerValuation(S (q + i),C,y)Pow(S (q + i),y,p)) ∨ ¬Prime(S (q + i)) ∧ p = 1)
    Exact native replay linehave hlocal : exists p. (((exists bpr_height_b5nbhcieu_local_decoded. bpr_height_b5nbhcieu_local_decoded + S (p) = S ((S (i)) * x1)) /\ exists bpr_quotient_b5nbhcieu_local_decoded. x = bpr_quotient_b5nbhcieu_local_decoded * S ((S (i)) * x1) + (p))) /\ (((((~(S (q + i) = 1) /\ forall bpr_left_b5nbhcieu_local_choice_prime bpr_right_b5nbhcieu_local_choice_prime. S (q + i) = bpr_left_b5nbhcieu_local_choice_prime * bpr_right_b5nbhcieu_local_choice_prime -> bpr_left_b5nbhcieu_local_choice_prime = 1 \/ bpr_right_b5nbhcieu_local_choice_prime = 1)) /\ exists bpr_choice_exponent_b5nbhcieu_local_choice. ((((exists bpr_le_gap_b5nbhcieu_local_choice_valuation_selected_bound. bpr_le_gap_b5nbhcieu_local_choice_valuation_selected_bound + (bpr_choice_exponent_b5nbhcieu_local_choice) = (C)) /\ (exists bpr_power_value_b5nbhcieu_local_choice_valuation_selected. ((exists bpr_power_code_b5nbhcieu_local_choice_valuation_selected_power bpr_power_scale_b5nbhcieu_local_choice_valuation_selected_power. ((forall bpr_power_index_b5nbhcieu_local_choice_valuation_selected_power. (exists bpr_gap_b5nbhcieu_local_choice_valuation_selected_power_repeat_bound. bpr_gap_b5nbhcieu_local_choice_valuation_selected_power_repeat_bound + S (bpr_power_index_b5nbhcieu_local_choice_valuation_selected_power) = bpr_choice_exponent_b5nbhcieu_local_choice) -> (((exists bpr_height_b5nbhcieu_local_choice_valuation_selected_power_repeat_entry. bpr_height_b5nbhcieu_local_choice_valuation_selected_power_repeat_entry + S (S (q + i)) = S ((S (bpr_power_index_b5nbhcieu_local_choice_valuation_selected_power)) * bpr_power_scale_b5nbhcieu_local_choice_valuation_selected_power)) /\ exists bpr_quotient_b5nbhcieu_local_choice_valuation_selected_power_repeat_entry. bpr_power_code_b5nbhcieu_local_choice_valuation_selected_power = bpr_quotient_b5nbhcieu_local_choice_valuation_selected_power_repeat_entry * S ((S (bpr_power_index_b5nbhcieu_local_choice_valuation_selected_power)) * bpr_power_scale_b5nbhcieu_local_choice_valuation_selected_power) + (S (q + i))))) /\ (exists ff_u_b5nbhcieu_local_choice_valuation_selected_power_product ff_v_b5nbhcieu_local_choice_valuation_selected_power_product. ((((exists ff_h_b5nbhcieu_local_choice_valuation_selected_power_product_start. ff_h_b5nbhcieu_local_choice_valuation_selected_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbhcieu_local_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbhcieu_local_choice_valuation_selected_power_product_start. ff_u_b5nbhcieu_local_choice_valuation_selected_power_product = ff_q_b5nbhcieu_local_choice_valuation_selected_power_product_start * S ((S (0)) * ff_v_b5nbhcieu_local_choice_valuation_selected_power_product) + (1))) /\ ((((exists ff_h_b5nbhcieu_local_choice_valuation_selected_power_product_terminal. ff_h_b5nbhcieu_local_choice_valuation_selected_power_product_terminal + S (bpr_power_value_b5nbhcieu_local_choice_valuation_selected) = S ((S (bpr_choice_exponent_b5nbhcieu_local_choice)) * ff_v_b5nbhcieu_local_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbhcieu_local_choice_valuation_selected_power_product_terminal. ff_u_b5nbhcieu_local_choice_valuation_selected_power_product = ff_q_b5nbhcieu_local_choice_valuation_selected_power_product_terminal * S ((S (bpr_choice_exponent_b5nbhcieu_local_choice)) * ff_v_b5nbhcieu_local_choice_valuation_selected_power_product) + (bpr_power_value_b5nbhcieu_local_choice_valuation_selected))) /\ forall ff_i_b5nbhcieu_local_choice_valuation_selected_power_product. (exists ff_lt_b5nbhcieu_local_choice_valuation_selected_power_product_bound. ff_lt_b5nbhcieu_local_choice_valuation_selected_power_product_bound + S ff_i_b5nbhcieu_local_choice_valuation_selected_power_product = bpr_choice_exponent_b5nbhcieu_local_choice) -> exists ff_p_b5nbhcieu_local_choice_valuation_selected_power_product ff_r_b5nbhcieu_local_choice_valuation_selected_power_product ff_s_b5nbhcieu_local_choice_valuation_selected_power_product. ((((exists ff_h_b5nbhcieu_local_choice_valuation_selected_power_product_factor. ff_h_b5nbhcieu_local_choice_valuation_selected_power_product_factor + S (ff_p_b5nbhcieu_local_choice_valuation_selected_power_product) = S ((S (ff_i_b5nbhcieu_local_choice_valuation_selected_power_product)) * bpr_power_scale_b5nbhcieu_local_choice_valuation_selected_power)) /\ exists ff_q_b5nbhcieu_local_choice_valuation_selected_power_product_factor. bpr_power_code_b5nbhcieu_local_choice_valuation_selected_power = ff_q_b5nbhcieu_local_choice_valuation_selected_power_product_factor * S ((S (ff_i_b5nbhcieu_local_choice_valuation_selected_power_product)) * bpr_power_scale_b5nbhcieu_local_choice_valuation_selected_power) + (ff_p_b5nbhcieu_local_choice_valuation_selected_power_product))) /\ ((((exists ff_h_b5nbhcieu_local_choice_valuation_selected_power_product_partial. ff_h_b5nbhcieu_local_choice_valuation_selected_power_product_partial + S (ff_r_b5nbhcieu_local_choice_valuation_selected_power_product) = S ((S (ff_i_b5nbhcieu_local_choice_valuation_selected_power_product)) * ff_v_b5nbhcieu_local_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbhcieu_local_choice_valuation_selected_power_product_partial. ff_u_b5nbhcieu_local_choice_valuation_selected_power_product = ff_q_b5nbhcieu_local_choice_valuation_selected_power_product_partial * S ((S (ff_i_b5nbhcieu_local_choice_valuation_selected_power_product)) * ff_v_b5nbhcieu_local_choice_valuation_selected_power_product) + (ff_r_b5nbhcieu_local_choice_valuation_selected_power_product))) /\ ((((exists ff_h_b5nbhcieu_local_choice_valuation_selected_power_product_successor. ff_h_b5nbhcieu_local_choice_valuation_selected_power_product_successor + S (ff_s_b5nbhcieu_local_choice_valuation_selected_power_product) = S ((S (S ff_i_b5nbhcieu_local_choice_valuation_selected_power_product)) * ff_v_b5nbhcieu_local_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbhcieu_local_choice_valuation_selected_power_product_successor. ff_u_b5nbhcieu_local_choice_valuation_selected_power_product = ff_q_b5nbhcieu_local_choice_valuation_selected_power_product_successor * S ((S (S ff_i_b5nbhcieu_local_choice_valuation_selected_power_product)) * ff_v_b5nbhcieu_local_choice_valuation_selected_power_product) + (ff_s_b5nbhcieu_local_choice_valuation_selected_power_product))) /\ ff_s_b5nbhcieu_local_choice_valuation_selected_power_product = ff_r_b5nbhcieu_local_choice_valuation_selected_power_product * ff_p_b5nbhcieu_local_choice_valuation_selected_power_product)))))))) /\ (exists bpr_divides_quotient_b5nbhcieu_local_choice_valuation_selected_divides. C = (bpr_power_value_b5nbhcieu_local_choice_valuation_selected) * bpr_divides_quotient_b5nbhcieu_local_choice_valuation_selected_divides)))) /\ forall bpr_valuation_candidate_b5nbhcieu_local_choice_valuation. (exists bpr_le_gap_b5nbhcieu_local_choice_valuation_candidate_bound. bpr_le_gap_b5nbhcieu_local_choice_valuation_candidate_bound + (bpr_valuation_candidate_b5nbhcieu_local_choice_valuation) = (C)) -> (exists bpr_power_value_b5nbhcieu_local_choice_valuation_candidate. ((exists bpr_power_code_b5nbhcieu_local_choice_valuation_candidate_power bpr_power_scale_b5nbhcieu_local_choice_valuation_candidate_power. ((forall bpr_power_index_b5nbhcieu_local_choice_valuation_candidate_power. (exists bpr_gap_b5nbhcieu_local_choice_valuation_candidate_power_repeat_bound. bpr_gap_b5nbhcieu_local_choice_valuation_candidate_power_repeat_bound + S (bpr_power_index_b5nbhcieu_local_choice_valuation_candidate_power) = bpr_valuation_candidate_b5nbhcieu_local_choice_valuation) -> (((exists bpr_height_b5nbhcieu_local_choice_valuation_candidate_power_repeat_entry. bpr_height_b5nbhcieu_local_choice_valuation_candidate_power_repeat_entry + S (S (q + i)) = S ((S (bpr_power_index_b5nbhcieu_local_choice_valuation_candidate_power)) * bpr_power_scale_b5nbhcieu_local_choice_valuation_candidate_power)) /\ exists bpr_quotient_b5nbhcieu_local_choice_valuation_candidate_power_repeat_entry. bpr_power_code_b5nbhcieu_local_choice_valuation_candidate_power = bpr_quotient_b5nbhcieu_local_choice_valuation_candidate_power_repeat_entry * S ((S (bpr_power_index_b5nbhcieu_local_choice_valuation_candidate_power)) * bpr_power_scale_b5nbhcieu_local_choice_valuation_candidate_power) + (S (q + i))))) /\ (exists ff_u_b5nbhcieu_local_choice_valuation_candidate_power_product ff_v_b5nbhcieu_local_choice_valuation_candidate_power_product. ((((exists ff_h_b5nbhcieu_local_choice_valuation_candidate_power_product_start. ff_h_b5nbhcieu_local_choice_valuation_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbhcieu_local_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbhcieu_local_choice_valuation_candidate_power_product_start. ff_u_b5nbhcieu_local_choice_valuation_candidate_power_product = ff_q_b5nbhcieu_local_choice_valuation_candidate_power_product_start * S ((S (0)) * ff_v_b5nbhcieu_local_choice_valuation_candidate_power_product) + (1))) /\ ((((exists ff_h_b5nbhcieu_local_choice_valuation_candidate_power_product_terminal. ff_h_b5nbhcieu_local_choice_valuation_candidate_power_product_terminal + S (bpr_power_value_b5nbhcieu_local_choice_valuation_candidate) = S ((S (bpr_valuation_candidate_b5nbhcieu_local_choice_valuation)) * ff_v_b5nbhcieu_local_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbhcieu_local_choice_valuation_candidate_power_product_terminal. ff_u_b5nbhcieu_local_choice_valuation_candidate_power_product = ff_q_b5nbhcieu_local_choice_valuation_candidate_power_product_terminal * S ((S (bpr_valuation_candidate_b5nbhcieu_local_choice_valuation)) * ff_v_b5nbhcieu_local_choice_valuation_candidate_power_product) + (bpr_power_value_b5nbhcieu_local_choice_valuation_candidate))) /\ forall ff_i_b5nbhcieu_local_choice_valuation_candidate_power_product. (exists ff_lt_b5nbhcieu_local_choice_valuation_candidate_power_product_bound. ff_lt_b5nbhcieu_local_choice_valuation_candidate_power_product_bound + S ff_i_b5nbhcieu_local_choice_valuation_candidate_power_product = bpr_valuation_candidate_b5nbhcieu_local_choice_valuation) -> exists ff_p_b5nbhcieu_local_choice_valuation_candidate_power_product ff_r_b5nbhcieu_local_choice_valuation_candidate_power_product ff_s_b5nbhcieu_local_choice_valuation_candidate_power_product. ((((exists ff_h_b5nbhcieu_local_choice_valuation_candidate_power_product_factor. ff_h_b5nbhcieu_local_choice_valuation_candidate_power_product_factor + S (ff_p_b5nbhcieu_local_choice_valuation_candidate_power_product) = S ((S (ff_i_b5nbhcieu_local_choice_valuation_candidate_power_product)) * bpr_power_scale_b5nbhcieu_local_choice_valuation_candidate_power)) /\ exists ff_q_b5nbhcieu_local_choice_valuation_candidate_power_product_factor. bpr_power_code_b5nbhcieu_local_choice_valuation_candidate_power = ff_q_b5nbhcieu_local_choice_valuation_candidate_power_product_factor * S ((S (ff_i_b5nbhcieu_local_choice_valuation_candidate_power_product)) * bpr_power_scale_b5nbhcieu_local_choice_valuation_candidate_power) + (ff_p_b5nbhcieu_local_choice_valuation_candidate_power_product))) /\ ((((exists ff_h_b5nbhcieu_local_choice_valuation_candidate_power_product_partial. ff_h_b5nbhcieu_local_choice_valuation_candidate_power_product_partial + S (ff_r_b5nbhcieu_local_choice_valuation_candidate_power_product) = S ((S (ff_i_b5nbhcieu_local_choice_valuation_candidate_power_product)) * ff_v_b5nbhcieu_local_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbhcieu_local_choice_valuation_candidate_power_product_partial. ff_u_b5nbhcieu_local_choice_valuation_candidate_power_product = ff_q_b5nbhcieu_local_choice_valuation_candidate_power_product_partial * S ((S (ff_i_b5nbhcieu_local_choice_valuation_candidate_power_product)) * ff_v_b5nbhcieu_local_choice_valuation_candidate_power_product) + (ff_r_b5nbhcieu_local_choice_valuation_candidate_power_product))) /\ ((((exists ff_h_b5nbhcieu_local_choice_valuation_candidate_power_product_successor. ff_h_b5nbhcieu_local_choice_valuation_candidate_power_product_successor + S (ff_s_b5nbhcieu_local_choice_valuation_candidate_power_product) = S ((S (S ff_i_b5nbhcieu_local_choice_valuation_candidate_power_product)) * ff_v_b5nbhcieu_local_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbhcieu_local_choice_valuation_candidate_power_product_successor. ff_u_b5nbhcieu_local_choice_valuation_candidate_power_product = ff_q_b5nbhcieu_local_choice_valuation_candidate_power_product_successor * S ((S (S ff_i_b5nbhcieu_local_choice_valuation_candidate_power_product)) * ff_v_b5nbhcieu_local_choice_valuation_candidate_power_product) + (ff_s_b5nbhcieu_local_choice_valuation_candidate_power_product))) /\ ff_s_b5nbhcieu_local_choice_valuation_candidate_power_product = ff_r_b5nbhcieu_local_choice_valuation_candidate_power_product * ff_p_b5nbhcieu_local_choice_valuation_candidate_power_product)))))))) /\ (exists bpr_divides_quotient_b5nbhcieu_local_choice_valuation_candidate_divides. C = (bpr_power_value_b5nbhcieu_local_choice_valuation_candidate) * bpr_divides_quotient_b5nbhcieu_local_choice_valuation_candidate_divides))) -> (exists bpr_le_gap_b5nbhcieu_local_choice_valuation_candidate_below. bpr_le_gap_b5nbhcieu_local_choice_valuation_candidate_below + (bpr_valuation_candidate_b5nbhcieu_local_choice_valuation) = (bpr_choice_exponent_b5nbhcieu_local_choice))) /\ (exists bpr_power_code_b5nbhcieu_local_choice_power bpr_power_scale_b5nbhcieu_local_choice_power. ((forall bpr_power_index_b5nbhcieu_local_choice_power. (exists bpr_gap_b5nbhcieu_local_choice_power_repeat_bound. bpr_gap_b5nbhcieu_local_choice_power_repeat_bound + S (bpr_power_index_b5nbhcieu_local_choice_power) = bpr_choice_exponent_b5nbhcieu_local_choice) -> (((exists bpr_height_b5nbhcieu_local_choice_power_repeat_entry. bpr_height_b5nbhcieu_local_choice_power_repeat_entry + S (S (q + i)) = S ((S (bpr_power_index_b5nbhcieu_local_choice_power)) * bpr_power_scale_b5nbhcieu_local_choice_power)) /\ exists bpr_quotient_b5nbhcieu_local_choice_power_repeat_entry. bpr_power_code_b5nbhcieu_local_choice_power = bpr_quotient_b5nbhcieu_local_choice_power_repeat_entry * S ((S (bpr_power_index_b5nbhcieu_local_choice_power)) * bpr_power_scale_b5nbhcieu_local_choice_power) + (S (q + i))))) /\ (exists ff_u_b5nbhcieu_local_choice_power_product ff_v_b5nbhcieu_local_choice_power_product. ((((exists ff_h_b5nbhcieu_local_choice_power_product_start. ff_h_b5nbhcieu_local_choice_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbhcieu_local_choice_power_product)) /\ exists ff_q_b5nbhcieu_local_choice_power_product_start. ff_u_b5nbhcieu_local_choice_power_product = ff_q_b5nbhcieu_local_choice_power_product_start * S ((S (0)) * ff_v_b5nbhcieu_local_choice_power_product) + (1))) /\ ((((exists ff_h_b5nbhcieu_local_choice_power_product_terminal. ff_h_b5nbhcieu_local_choice_power_product_terminal + S (p) = S ((S (bpr_choice_exponent_b5nbhcieu_local_choice)) * ff_v_b5nbhcieu_local_choice_power_product)) /\ exists ff_q_b5nbhcieu_local_choice_power_product_terminal. ff_u_b5nbhcieu_local_choice_power_product = ff_q_b5nbhcieu_local_choice_power_product_terminal * S ((S (bpr_choice_exponent_b5nbhcieu_local_choice)) * ff_v_b5nbhcieu_local_choice_power_product) + (p))) /\ forall ff_i_b5nbhcieu_local_choice_power_product. (exists ff_lt_b5nbhcieu_local_choice_power_product_bound. ff_lt_b5nbhcieu_local_choice_power_product_bound + S ff_i_b5nbhcieu_local_choice_power_product = bpr_choice_exponent_b5nbhcieu_local_choice) -> exists ff_p_b5nbhcieu_local_choice_power_product ff_r_b5nbhcieu_local_choice_power_product ff_s_b5nbhcieu_local_choice_power_product. ((((exists ff_h_b5nbhcieu_local_choice_power_product_factor. ff_h_b5nbhcieu_local_choice_power_product_factor + S (ff_p_b5nbhcieu_local_choice_power_product) = S ((S (ff_i_b5nbhcieu_local_choice_power_product)) * bpr_power_scale_b5nbhcieu_local_choice_power)) /\ exists ff_q_b5nbhcieu_local_choice_power_product_factor. bpr_power_code_b5nbhcieu_local_choice_power = ff_q_b5nbhcieu_local_choice_power_product_factor * S ((S (ff_i_b5nbhcieu_local_choice_power_product)) * bpr_power_scale_b5nbhcieu_local_choice_power) + (ff_p_b5nbhcieu_local_choice_power_product))) /\ ((((exists ff_h_b5nbhcieu_local_choice_power_product_partial. ff_h_b5nbhcieu_local_choice_power_product_partial + S (ff_r_b5nbhcieu_local_choice_power_product) = S ((S (ff_i_b5nbhcieu_local_choice_power_product)) * ff_v_b5nbhcieu_local_choice_power_product)) /\ exists ff_q_b5nbhcieu_local_choice_power_product_partial. ff_u_b5nbhcieu_local_choice_power_product = ff_q_b5nbhcieu_local_choice_power_product_partial * S ((S (ff_i_b5nbhcieu_local_choice_power_product)) * ff_v_b5nbhcieu_local_choice_power_product) + (ff_r_b5nbhcieu_local_choice_power_product))) /\ ((((exists ff_h_b5nbhcieu_local_choice_power_product_successor. ff_h_b5nbhcieu_local_choice_power_product_successor + S (ff_s_b5nbhcieu_local_choice_power_product) = S ((S (S ff_i_b5nbhcieu_local_choice_power_product)) * ff_v_b5nbhcieu_local_choice_power_product)) /\ exists ff_q_b5nbhcieu_local_choice_power_product_successor. ff_u_b5nbhcieu_local_choice_power_product = ff_q_b5nbhcieu_local_choice_power_product_successor * S ((S (S ff_i_b5nbhcieu_local_choice_power_product)) * ff_v_b5nbhcieu_local_choice_power_product) + (ff_s_b5nbhcieu_local_choice_power_product))) /\ ff_s_b5nbhcieu_local_choice_power_product = ff_r_b5nbhcieu_local_choice_power_product * ff_p_b5nbhcieu_local_choice_power_product)))))))))) \/ (~((~(S (q + i) = 1) /\ forall bpr_left_b5nbhcieu_local_choice_prime bpr_right_b5nbhcieu_local_choice_prime. S (q + i) = bpr_left_b5nbhcieu_local_choice_prime * bpr_right_b5nbhcieu_local_choice_prime -> bpr_left_b5nbhcieu_local_choice_prime = 1 \/ bpr_right_b5nbhcieu_local_choice_prime = 1)) /\ p = 1)))
  23. 0023apply hinterval_witness_witness_left
  24. 0024exact hi
  25. 0025cases hlocal
  26. 0026cases hlocal_witness
  27. 0027have heq : a = x2
  28. 0028specialize beta_at_unique x
  29. 0029specialize beta_at_unique x1
  30. 0030specialize beta_at_unique i
  31. 0031specialize beta_at_unique a
  32. 0032specialize beta_at_unique x2
  33. 0033apply beta_at_unique
  34. 0034exact ha
  35. 0035exact hlocal_witness_left
  36. 0036have habove : Lt(q,S (q + i))
    Exact native replay linehave habove : exists bcf_lt_gap_b5nbhcieu_global_above. bcf_lt_gap_b5nbhcieu_global_above + S (q) = S (q + i)
  37. 0037exists i
  38. 0038trans S (i + q)
  39. 0039apply PA4
  40. 0040congr
  41. 0041specialize add_comm i
  42. 0042specialize add_comm q
  43. 0043exact add_comm
  44. 0044have hfactor_one : x2 = 1
  45. 0045specialize no_bertrand_high_contribution_choice_eq_one n
  46. 0046specialize no_bertrand_high_contribution_choice_eq_one s
  47. 0047specialize no_bertrand_high_contribution_choice_eq_one q
  48. 0048specialize no_bertrand_high_contribution_choice_eq_one r
  49. 0049specialize no_bertrand_high_contribution_choice_eq_one C
  50. 0050specialize no_bertrand_high_contribution_choice_eq_one (q + i)
  51. 0051specialize no_bertrand_high_contribution_choice_eq_one x2
  52. 0052apply no_bertrand_high_contribution_choice_eq_one
  53. 0053exact hexclusion
  54. 0054exact hpositive
  55. 0055exact hfloor
  56. 0056exact hdivision
  57. 0057exact hcentral
  58. 0058exact habove
  59. 0059exact hlocal_witness_right
  60. 0060rewrite heq
  61. 0061exact hfactor_one
  62. 0062specialize beta_product_all_one_exact x
  63. 0063specialize beta_product_all_one_exact x1
  64. 0064specialize beta_product_all_one_exact h
  65. 0065specialize beta_product_all_one_exact w
  66. 0066apply beta_product_all_one_exact
  67. 0067exact hall
  68. 0068exact hinterval_witness_witness_right