BT010Y · Bertrand theorem

no_bertrand_small_contribution_product_le_power

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

The small contribution Product is bounded by (2n)^s.

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. ∀ z. ∀ A. (∀ 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. (∀ m. Lt(m,s) → ∃ k. BetaAt(x,y,m,k) ∧ (Prime(S m) ∧ (∃ i. PowerValuation(S m,C,i)Pow(S m,i,k)) ∨ ¬Prime(S m) ∧ k = 1)) ∧ Product(x,y,s,z)) → Pow(n + n,s,A)Le(z,A)

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

16 occurrences

In local proof propositions

9 occurrences

Exact expanded native-PA statement
forall n s q r C z A. (forall bpr_prime_candidate_b5nbscplp_exclusion. ((exists bpr_gap_b5nbscplp_exclusion_lower. bpr_gap_b5nbscplp_exclusion_lower + S (n) = bpr_prime_candidate_b5nbscplp_exclusion) /\ (exists bpr_le_gap_b5nbscplp_exclusion_upper. bpr_le_gap_b5nbscplp_exclusion_upper + (bpr_prime_candidate_b5nbscplp_exclusion) = (n + n))) -> ~((~(bpr_prime_candidate_b5nbscplp_exclusion = 1) /\ forall bpr_left_b5nbscplp_exclusion_prime bpr_right_b5nbscplp_exclusion_prime. bpr_prime_candidate_b5nbscplp_exclusion = bpr_left_b5nbscplp_exclusion_prime * bpr_right_b5nbscplp_exclusion_prime -> bpr_left_b5nbscplp_exclusion_prime = 1 \/ bpr_right_b5nbscplp_exclusion_prime = 1))) -> (exists bcf_lt_gap_b5nbscplp_positive. bcf_lt_gap_b5nbscplp_positive + S (2) = n) -> (((exists bcs_sqrt_lower_gap_b5nbscplp_floor. bcs_sqrt_lower_gap_b5nbscplp_floor + (s) * (s) = (n + n)) /\ exists bcs_sqrt_upper_gap_b5nbscplp_floor. bcs_sqrt_upper_gap_b5nbscplp_floor + S (n + n) = S (s) * S (s))) -> (((n + n) = (3) * (q) + (r) /\ (exists bcf_lt_gap_b5nbscplp_division_bound. bcf_lt_gap_b5nbscplp_division_bound + S (r) = 3))) -> (((exists bcf_lt_gap_b5nbscplp_central_out_of_range. bcf_lt_gap_b5nbscplp_central_out_of_range + S (n + n) = n) /\ C = 0) \/ ((exists bcf_le_gap_b5nbscplp_central_in_range. bcf_le_gap_b5nbscplp_central_in_range + (n) = n + n) /\ (exists bcf_row_code_code_b5nbscplp_central bcf_row_code_scale_b5nbscplp_central bcf_row_scale_code_b5nbscplp_central bcf_row_scale_scale_b5nbscplp_central bcf_row_code_b5nbscplp_central bcf_row_scale_b5nbscplp_central. ((forall bcf_row_index_b5nbscplp_central_table. (exists bcf_lt_gap_b5nbscplp_central_table_row_bound. bcf_lt_gap_b5nbscplp_central_table_row_bound + S (bcf_row_index_b5nbscplp_central_table) = S (n + n)) -> exists bcf_row_code_b5nbscplp_central_table bcf_row_scale_b5nbscplp_central_table. ((((exists bcf_height_b5nbscplp_central_table_decoded_row_code. bcf_height_b5nbscplp_central_table_decoded_row_code + S (bcf_row_code_b5nbscplp_central_table) = S ((S (bcf_row_index_b5nbscplp_central_table)) * bcf_row_code_scale_b5nbscplp_central)) /\ exists bcf_quotient_b5nbscplp_central_table_decoded_row_code. bcf_row_code_code_b5nbscplp_central = bcf_quotient_b5nbscplp_central_table_decoded_row_code * S ((S (bcf_row_index_b5nbscplp_central_table)) * bcf_row_code_scale_b5nbscplp_central) + (bcf_row_code_b5nbscplp_central_table))) /\ ((((exists bcf_height_b5nbscplp_central_table_decoded_row_scale. bcf_height_b5nbscplp_central_table_decoded_row_scale + S (bcf_row_scale_b5nbscplp_central_table) = S ((S (bcf_row_index_b5nbscplp_central_table)) * bcf_row_scale_scale_b5nbscplp_central)) /\ exists bcf_quotient_b5nbscplp_central_table_decoded_row_scale. bcf_row_scale_code_b5nbscplp_central = bcf_quotient_b5nbscplp_central_table_decoded_row_scale * S ((S (bcf_row_index_b5nbscplp_central_table)) * bcf_row_scale_scale_b5nbscplp_central) + (bcf_row_scale_b5nbscplp_central_table))) /\ ((bcf_row_index_b5nbscplp_central_table = 0 /\ (forall bcf_index_b5nbscplp_central_table_zero_row. (exists bcf_lt_gap_b5nbscplp_central_table_zero_row_bound. bcf_lt_gap_b5nbscplp_central_table_zero_row_bound + S (bcf_index_b5nbscplp_central_table_zero_row) = S (n + n)) -> exists bcf_value_b5nbscplp_central_table_zero_row. ((((exists bcf_height_b5nbscplp_central_table_zero_row_entry. bcf_height_b5nbscplp_central_table_zero_row_entry + S (bcf_value_b5nbscplp_central_table_zero_row) = S ((S (bcf_index_b5nbscplp_central_table_zero_row)) * bcf_row_scale_b5nbscplp_central_table)) /\ exists bcf_quotient_b5nbscplp_central_table_zero_row_entry. bcf_row_code_b5nbscplp_central_table = bcf_quotient_b5nbscplp_central_table_zero_row_entry * S ((S (bcf_index_b5nbscplp_central_table_zero_row)) * bcf_row_scale_b5nbscplp_central_table) + (bcf_value_b5nbscplp_central_table_zero_row))) /\ ((bcf_index_b5nbscplp_central_table_zero_row = 0 /\ bcf_value_b5nbscplp_central_table_zero_row = 1) \/ exists bcf_predecessor_b5nbscplp_central_table_zero_row. bcf_index_b5nbscplp_central_table_zero_row = S bcf_predecessor_b5nbscplp_central_table_zero_row /\ bcf_value_b5nbscplp_central_table_zero_row = 0)))) \/ exists bcf_predecessor_b5nbscplp_central_table bcf_previous_code_b5nbscplp_central_table bcf_previous_scale_b5nbscplp_central_table. bcf_row_index_b5nbscplp_central_table = S bcf_predecessor_b5nbscplp_central_table /\ ((((exists bcf_height_b5nbscplp_central_table_decoded_previous_code. bcf_height_b5nbscplp_central_table_decoded_previous_code + S (bcf_previous_code_b5nbscplp_central_table) = S ((S (bcf_predecessor_b5nbscplp_central_table)) * bcf_row_code_scale_b5nbscplp_central)) /\ exists bcf_quotient_b5nbscplp_central_table_decoded_previous_code. bcf_row_code_code_b5nbscplp_central = bcf_quotient_b5nbscplp_central_table_decoded_previous_code * S ((S (bcf_predecessor_b5nbscplp_central_table)) * bcf_row_code_scale_b5nbscplp_central) + (bcf_previous_code_b5nbscplp_central_table))) /\ ((((exists bcf_height_b5nbscplp_central_table_decoded_previous_scale. bcf_height_b5nbscplp_central_table_decoded_previous_scale + S (bcf_previous_scale_b5nbscplp_central_table) = S ((S (bcf_predecessor_b5nbscplp_central_table)) * bcf_row_scale_scale_b5nbscplp_central)) /\ exists bcf_quotient_b5nbscplp_central_table_decoded_previous_scale. bcf_row_scale_code_b5nbscplp_central = bcf_quotient_b5nbscplp_central_table_decoded_previous_scale * S ((S (bcf_predecessor_b5nbscplp_central_table)) * bcf_row_scale_scale_b5nbscplp_central) + (bcf_previous_scale_b5nbscplp_central_table))) /\ (forall bcf_index_b5nbscplp_central_table_row_step. (exists bcf_lt_gap_b5nbscplp_central_table_row_step_bound. bcf_lt_gap_b5nbscplp_central_table_row_step_bound + S (bcf_index_b5nbscplp_central_table_row_step) = S (n + n)) -> exists bcf_value_b5nbscplp_central_table_row_step. ((((exists bcf_height_b5nbscplp_central_table_row_step_entry. bcf_height_b5nbscplp_central_table_row_step_entry + S (bcf_value_b5nbscplp_central_table_row_step) = S ((S (bcf_index_b5nbscplp_central_table_row_step)) * bcf_row_scale_b5nbscplp_central_table)) /\ exists bcf_quotient_b5nbscplp_central_table_row_step_entry. bcf_row_code_b5nbscplp_central_table = bcf_quotient_b5nbscplp_central_table_row_step_entry * S ((S (bcf_index_b5nbscplp_central_table_row_step)) * bcf_row_scale_b5nbscplp_central_table) + (bcf_value_b5nbscplp_central_table_row_step))) /\ ((bcf_index_b5nbscplp_central_table_row_step = 0 /\ bcf_value_b5nbscplp_central_table_row_step = 1) \/ exists bcf_predecessor_b5nbscplp_central_table_row_step bcf_left_b5nbscplp_central_table_row_step bcf_right_b5nbscplp_central_table_row_step. bcf_index_b5nbscplp_central_table_row_step = S bcf_predecessor_b5nbscplp_central_table_row_step /\ ((((exists bcf_height_b5nbscplp_central_table_row_step_previous_left. bcf_height_b5nbscplp_central_table_row_step_previous_left + S (bcf_left_b5nbscplp_central_table_row_step) = S ((S (bcf_predecessor_b5nbscplp_central_table_row_step)) * bcf_previous_scale_b5nbscplp_central_table)) /\ exists bcf_quotient_b5nbscplp_central_table_row_step_previous_left. bcf_previous_code_b5nbscplp_central_table = bcf_quotient_b5nbscplp_central_table_row_step_previous_left * S ((S (bcf_predecessor_b5nbscplp_central_table_row_step)) * bcf_previous_scale_b5nbscplp_central_table) + (bcf_left_b5nbscplp_central_table_row_step))) /\ ((((exists bcf_height_b5nbscplp_central_table_row_step_previous_right. bcf_height_b5nbscplp_central_table_row_step_previous_right + S (bcf_right_b5nbscplp_central_table_row_step) = S ((S (S (bcf_predecessor_b5nbscplp_central_table_row_step))) * bcf_previous_scale_b5nbscplp_central_table)) /\ exists bcf_quotient_b5nbscplp_central_table_row_step_previous_right. bcf_previous_code_b5nbscplp_central_table = bcf_quotient_b5nbscplp_central_table_row_step_previous_right * S ((S (S (bcf_predecessor_b5nbscplp_central_table_row_step))) * bcf_previous_scale_b5nbscplp_central_table) + (bcf_right_b5nbscplp_central_table_row_step))) /\ bcf_value_b5nbscplp_central_table_row_step = bcf_left_b5nbscplp_central_table_row_step + bcf_right_b5nbscplp_central_table_row_step))))))))))) /\ ((((exists bcf_height_b5nbscplp_central_decoded_row_code. bcf_height_b5nbscplp_central_decoded_row_code + S (bcf_row_code_b5nbscplp_central) = S ((S (n + n)) * bcf_row_code_scale_b5nbscplp_central)) /\ exists bcf_quotient_b5nbscplp_central_decoded_row_code. bcf_row_code_code_b5nbscplp_central = bcf_quotient_b5nbscplp_central_decoded_row_code * S ((S (n + n)) * bcf_row_code_scale_b5nbscplp_central) + (bcf_row_code_b5nbscplp_central))) /\ ((((exists bcf_height_b5nbscplp_central_decoded_row_scale. bcf_height_b5nbscplp_central_decoded_row_scale + S (bcf_row_scale_b5nbscplp_central) = S ((S (n + n)) * bcf_row_scale_scale_b5nbscplp_central)) /\ exists bcf_quotient_b5nbscplp_central_decoded_row_scale. bcf_row_scale_code_b5nbscplp_central = bcf_quotient_b5nbscplp_central_decoded_row_scale * S ((S (n + n)) * bcf_row_scale_scale_b5nbscplp_central) + (bcf_row_scale_b5nbscplp_central))) /\ (((exists bcf_height_b5nbscplp_central_decoded_value. bcf_height_b5nbscplp_central_decoded_value + S (C) = S ((S (n)) * bcf_row_scale_b5nbscplp_central)) /\ exists bcf_quotient_b5nbscplp_central_decoded_value. bcf_row_code_b5nbscplp_central = bcf_quotient_b5nbscplp_central_decoded_value * S ((S (n)) * bcf_row_scale_b5nbscplp_central) + (C))))))))) -> (exists bpr_product_code_b5nbscplp_source bpr_product_scale_b5nbscplp_source. ((forall bpr_prefix_index_b5nbscplp_source_prefix. (exists bpr_gap_b5nbscplp_source_prefix_bound. bpr_gap_b5nbscplp_source_prefix_bound + S (bpr_prefix_index_b5nbscplp_source_prefix) = s) -> exists bpr_prefix_value_b5nbscplp_source_prefix. ((((exists bpr_height_b5nbscplp_source_prefix_decoded. bpr_height_b5nbscplp_source_prefix_decoded + S (bpr_prefix_value_b5nbscplp_source_prefix) = S ((S (bpr_prefix_index_b5nbscplp_source_prefix)) * bpr_product_scale_b5nbscplp_source)) /\ exists bpr_quotient_b5nbscplp_source_prefix_decoded. bpr_product_code_b5nbscplp_source = bpr_quotient_b5nbscplp_source_prefix_decoded * S ((S (bpr_prefix_index_b5nbscplp_source_prefix)) * bpr_product_scale_b5nbscplp_source) + (bpr_prefix_value_b5nbscplp_source_prefix))) /\ (((((~(S (bpr_prefix_index_b5nbscplp_source_prefix) = 1) /\ forall bpr_left_b5nbscplp_source_prefix_choice_prime bpr_right_b5nbscplp_source_prefix_choice_prime. S (bpr_prefix_index_b5nbscplp_source_prefix) = bpr_left_b5nbscplp_source_prefix_choice_prime * bpr_right_b5nbscplp_source_prefix_choice_prime -> bpr_left_b5nbscplp_source_prefix_choice_prime = 1 \/ bpr_right_b5nbscplp_source_prefix_choice_prime = 1)) /\ exists bpr_choice_exponent_b5nbscplp_source_prefix_choice. ((((exists bpr_le_gap_b5nbscplp_source_prefix_choice_valuation_selected_bound. bpr_le_gap_b5nbscplp_source_prefix_choice_valuation_selected_bound + (bpr_choice_exponent_b5nbscplp_source_prefix_choice) = (C)) /\ (exists bpr_power_value_b5nbscplp_source_prefix_choice_valuation_selected. ((exists bpr_power_code_b5nbscplp_source_prefix_choice_valuation_selected_power bpr_power_scale_b5nbscplp_source_prefix_choice_valuation_selected_power. ((forall bpr_power_index_b5nbscplp_source_prefix_choice_valuation_selected_power. (exists bpr_gap_b5nbscplp_source_prefix_choice_valuation_selected_power_repeat_bound. bpr_gap_b5nbscplp_source_prefix_choice_valuation_selected_power_repeat_bound + S (bpr_power_index_b5nbscplp_source_prefix_choice_valuation_selected_power) = bpr_choice_exponent_b5nbscplp_source_prefix_choice) -> (((exists bpr_height_b5nbscplp_source_prefix_choice_valuation_selected_power_repeat_entry. bpr_height_b5nbscplp_source_prefix_choice_valuation_selected_power_repeat_entry + S (S (bpr_prefix_index_b5nbscplp_source_prefix)) = S ((S (bpr_power_index_b5nbscplp_source_prefix_choice_valuation_selected_power)) * bpr_power_scale_b5nbscplp_source_prefix_choice_valuation_selected_power)) /\ exists bpr_quotient_b5nbscplp_source_prefix_choice_valuation_selected_power_repeat_entry. bpr_power_code_b5nbscplp_source_prefix_choice_valuation_selected_power = bpr_quotient_b5nbscplp_source_prefix_choice_valuation_selected_power_repeat_entry * S ((S (bpr_power_index_b5nbscplp_source_prefix_choice_valuation_selected_power)) * bpr_power_scale_b5nbscplp_source_prefix_choice_valuation_selected_power) + (S (bpr_prefix_index_b5nbscplp_source_prefix))))) /\ (exists ff_u_b5nbscplp_source_prefix_choice_valuation_selected_power_product ff_v_b5nbscplp_source_prefix_choice_valuation_selected_power_product. ((((exists ff_h_b5nbscplp_source_prefix_choice_valuation_selected_power_product_start. ff_h_b5nbscplp_source_prefix_choice_valuation_selected_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbscplp_source_prefix_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbscplp_source_prefix_choice_valuation_selected_power_product_start. ff_u_b5nbscplp_source_prefix_choice_valuation_selected_power_product = ff_q_b5nbscplp_source_prefix_choice_valuation_selected_power_product_start * S ((S (0)) * ff_v_b5nbscplp_source_prefix_choice_valuation_selected_power_product) + (1))) /\ ((((exists ff_h_b5nbscplp_source_prefix_choice_valuation_selected_power_product_terminal. ff_h_b5nbscplp_source_prefix_choice_valuation_selected_power_product_terminal + S (bpr_power_value_b5nbscplp_source_prefix_choice_valuation_selected) = S ((S (bpr_choice_exponent_b5nbscplp_source_prefix_choice)) * ff_v_b5nbscplp_source_prefix_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbscplp_source_prefix_choice_valuation_selected_power_product_terminal. ff_u_b5nbscplp_source_prefix_choice_valuation_selected_power_product = ff_q_b5nbscplp_source_prefix_choice_valuation_selected_power_product_terminal * S ((S (bpr_choice_exponent_b5nbscplp_source_prefix_choice)) * ff_v_b5nbscplp_source_prefix_choice_valuation_selected_power_product) + (bpr_power_value_b5nbscplp_source_prefix_choice_valuation_selected))) /\ forall ff_i_b5nbscplp_source_prefix_choice_valuation_selected_power_product. (exists ff_lt_b5nbscplp_source_prefix_choice_valuation_selected_power_product_bound. ff_lt_b5nbscplp_source_prefix_choice_valuation_selected_power_product_bound + S ff_i_b5nbscplp_source_prefix_choice_valuation_selected_power_product = bpr_choice_exponent_b5nbscplp_source_prefix_choice) -> exists ff_p_b5nbscplp_source_prefix_choice_valuation_selected_power_product ff_r_b5nbscplp_source_prefix_choice_valuation_selected_power_product ff_s_b5nbscplp_source_prefix_choice_valuation_selected_power_product. ((((exists ff_h_b5nbscplp_source_prefix_choice_valuation_selected_power_product_factor. ff_h_b5nbscplp_source_prefix_choice_valuation_selected_power_product_factor + S (ff_p_b5nbscplp_source_prefix_choice_valuation_selected_power_product) = S ((S (ff_i_b5nbscplp_source_prefix_choice_valuation_selected_power_product)) * bpr_power_scale_b5nbscplp_source_prefix_choice_valuation_selected_power)) /\ exists ff_q_b5nbscplp_source_prefix_choice_valuation_selected_power_product_factor. bpr_power_code_b5nbscplp_source_prefix_choice_valuation_selected_power = ff_q_b5nbscplp_source_prefix_choice_valuation_selected_power_product_factor * S ((S (ff_i_b5nbscplp_source_prefix_choice_valuation_selected_power_product)) * bpr_power_scale_b5nbscplp_source_prefix_choice_valuation_selected_power) + (ff_p_b5nbscplp_source_prefix_choice_valuation_selected_power_product))) /\ ((((exists ff_h_b5nbscplp_source_prefix_choice_valuation_selected_power_product_partial. ff_h_b5nbscplp_source_prefix_choice_valuation_selected_power_product_partial + S (ff_r_b5nbscplp_source_prefix_choice_valuation_selected_power_product) = S ((S (ff_i_b5nbscplp_source_prefix_choice_valuation_selected_power_product)) * ff_v_b5nbscplp_source_prefix_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbscplp_source_prefix_choice_valuation_selected_power_product_partial. ff_u_b5nbscplp_source_prefix_choice_valuation_selected_power_product = ff_q_b5nbscplp_source_prefix_choice_valuation_selected_power_product_partial * S ((S (ff_i_b5nbscplp_source_prefix_choice_valuation_selected_power_product)) * ff_v_b5nbscplp_source_prefix_choice_valuation_selected_power_product) + (ff_r_b5nbscplp_source_prefix_choice_valuation_selected_power_product))) /\ ((((exists ff_h_b5nbscplp_source_prefix_choice_valuation_selected_power_product_successor. ff_h_b5nbscplp_source_prefix_choice_valuation_selected_power_product_successor + S (ff_s_b5nbscplp_source_prefix_choice_valuation_selected_power_product) = S ((S (S ff_i_b5nbscplp_source_prefix_choice_valuation_selected_power_product)) * ff_v_b5nbscplp_source_prefix_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbscplp_source_prefix_choice_valuation_selected_power_product_successor. ff_u_b5nbscplp_source_prefix_choice_valuation_selected_power_product = ff_q_b5nbscplp_source_prefix_choice_valuation_selected_power_product_successor * S ((S (S ff_i_b5nbscplp_source_prefix_choice_valuation_selected_power_product)) * ff_v_b5nbscplp_source_prefix_choice_valuation_selected_power_product) + (ff_s_b5nbscplp_source_prefix_choice_valuation_selected_power_product))) /\ ff_s_b5nbscplp_source_prefix_choice_valuation_selected_power_product = ff_r_b5nbscplp_source_prefix_choice_valuation_selected_power_product * ff_p_b5nbscplp_source_prefix_choice_valuation_selected_power_product)))))))) /\ (exists bpr_divides_quotient_b5nbscplp_source_prefix_choice_valuation_selected_divides. C = (bpr_power_value_b5nbscplp_source_prefix_choice_valuation_selected) * bpr_divides_quotient_b5nbscplp_source_prefix_choice_valuation_selected_divides)))) /\ forall bpr_valuation_candidate_b5nbscplp_source_prefix_choice_valuation. (exists bpr_le_gap_b5nbscplp_source_prefix_choice_valuation_candidate_bound. bpr_le_gap_b5nbscplp_source_prefix_choice_valuation_candidate_bound + (bpr_valuation_candidate_b5nbscplp_source_prefix_choice_valuation) = (C)) -> (exists bpr_power_value_b5nbscplp_source_prefix_choice_valuation_candidate. ((exists bpr_power_code_b5nbscplp_source_prefix_choice_valuation_candidate_power bpr_power_scale_b5nbscplp_source_prefix_choice_valuation_candidate_power. ((forall bpr_power_index_b5nbscplp_source_prefix_choice_valuation_candidate_power. (exists bpr_gap_b5nbscplp_source_prefix_choice_valuation_candidate_power_repeat_bound. bpr_gap_b5nbscplp_source_prefix_choice_valuation_candidate_power_repeat_bound + S (bpr_power_index_b5nbscplp_source_prefix_choice_valuation_candidate_power) = bpr_valuation_candidate_b5nbscplp_source_prefix_choice_valuation) -> (((exists bpr_height_b5nbscplp_source_prefix_choice_valuation_candidate_power_repeat_entry. bpr_height_b5nbscplp_source_prefix_choice_valuation_candidate_power_repeat_entry + S (S (bpr_prefix_index_b5nbscplp_source_prefix)) = S ((S (bpr_power_index_b5nbscplp_source_prefix_choice_valuation_candidate_power)) * bpr_power_scale_b5nbscplp_source_prefix_choice_valuation_candidate_power)) /\ exists bpr_quotient_b5nbscplp_source_prefix_choice_valuation_candidate_power_repeat_entry. bpr_power_code_b5nbscplp_source_prefix_choice_valuation_candidate_power = bpr_quotient_b5nbscplp_source_prefix_choice_valuation_candidate_power_repeat_entry * S ((S (bpr_power_index_b5nbscplp_source_prefix_choice_valuation_candidate_power)) * bpr_power_scale_b5nbscplp_source_prefix_choice_valuation_candidate_power) + (S (bpr_prefix_index_b5nbscplp_source_prefix))))) /\ (exists ff_u_b5nbscplp_source_prefix_choice_valuation_candidate_power_product ff_v_b5nbscplp_source_prefix_choice_valuation_candidate_power_product. ((((exists ff_h_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_start. ff_h_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbscplp_source_prefix_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_start. ff_u_b5nbscplp_source_prefix_choice_valuation_candidate_power_product = ff_q_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_start * S ((S (0)) * ff_v_b5nbscplp_source_prefix_choice_valuation_candidate_power_product) + (1))) /\ ((((exists ff_h_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_terminal. ff_h_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_terminal + S (bpr_power_value_b5nbscplp_source_prefix_choice_valuation_candidate) = S ((S (bpr_valuation_candidate_b5nbscplp_source_prefix_choice_valuation)) * ff_v_b5nbscplp_source_prefix_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_terminal. ff_u_b5nbscplp_source_prefix_choice_valuation_candidate_power_product = ff_q_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_terminal * S ((S (bpr_valuation_candidate_b5nbscplp_source_prefix_choice_valuation)) * ff_v_b5nbscplp_source_prefix_choice_valuation_candidate_power_product) + (bpr_power_value_b5nbscplp_source_prefix_choice_valuation_candidate))) /\ forall ff_i_b5nbscplp_source_prefix_choice_valuation_candidate_power_product. (exists ff_lt_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_bound. ff_lt_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_bound + S ff_i_b5nbscplp_source_prefix_choice_valuation_candidate_power_product = bpr_valuation_candidate_b5nbscplp_source_prefix_choice_valuation) -> exists ff_p_b5nbscplp_source_prefix_choice_valuation_candidate_power_product ff_r_b5nbscplp_source_prefix_choice_valuation_candidate_power_product ff_s_b5nbscplp_source_prefix_choice_valuation_candidate_power_product. ((((exists ff_h_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_factor. ff_h_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_factor + S (ff_p_b5nbscplp_source_prefix_choice_valuation_candidate_power_product) = S ((S (ff_i_b5nbscplp_source_prefix_choice_valuation_candidate_power_product)) * bpr_power_scale_b5nbscplp_source_prefix_choice_valuation_candidate_power)) /\ exists ff_q_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_factor. bpr_power_code_b5nbscplp_source_prefix_choice_valuation_candidate_power = ff_q_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_factor * S ((S (ff_i_b5nbscplp_source_prefix_choice_valuation_candidate_power_product)) * bpr_power_scale_b5nbscplp_source_prefix_choice_valuation_candidate_power) + (ff_p_b5nbscplp_source_prefix_choice_valuation_candidate_power_product))) /\ ((((exists ff_h_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_partial. ff_h_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_partial + S (ff_r_b5nbscplp_source_prefix_choice_valuation_candidate_power_product) = S ((S (ff_i_b5nbscplp_source_prefix_choice_valuation_candidate_power_product)) * ff_v_b5nbscplp_source_prefix_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_partial. ff_u_b5nbscplp_source_prefix_choice_valuation_candidate_power_product = ff_q_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_partial * S ((S (ff_i_b5nbscplp_source_prefix_choice_valuation_candidate_power_product)) * ff_v_b5nbscplp_source_prefix_choice_valuation_candidate_power_product) + (ff_r_b5nbscplp_source_prefix_choice_valuation_candidate_power_product))) /\ ((((exists ff_h_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_successor. ff_h_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_successor + S (ff_s_b5nbscplp_source_prefix_choice_valuation_candidate_power_product) = S ((S (S ff_i_b5nbscplp_source_prefix_choice_valuation_candidate_power_product)) * ff_v_b5nbscplp_source_prefix_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_successor. ff_u_b5nbscplp_source_prefix_choice_valuation_candidate_power_product = ff_q_b5nbscplp_source_prefix_choice_valuation_candidate_power_product_successor * S ((S (S ff_i_b5nbscplp_source_prefix_choice_valuation_candidate_power_product)) * ff_v_b5nbscplp_source_prefix_choice_valuation_candidate_power_product) + (ff_s_b5nbscplp_source_prefix_choice_valuation_candidate_power_product))) /\ ff_s_b5nbscplp_source_prefix_choice_valuation_candidate_power_product = ff_r_b5nbscplp_source_prefix_choice_valuation_candidate_power_product * ff_p_b5nbscplp_source_prefix_choice_valuation_candidate_power_product)))))))) /\ (exists bpr_divides_quotient_b5nbscplp_source_prefix_choice_valuation_candidate_divides. C = (bpr_power_value_b5nbscplp_source_prefix_choice_valuation_candidate) * bpr_divides_quotient_b5nbscplp_source_prefix_choice_valuation_candidate_divides))) -> (exists bpr_le_gap_b5nbscplp_source_prefix_choice_valuation_candidate_below. bpr_le_gap_b5nbscplp_source_prefix_choice_valuation_candidate_below + (bpr_valuation_candidate_b5nbscplp_source_prefix_choice_valuation) = (bpr_choice_exponent_b5nbscplp_source_prefix_choice))) /\ (exists bpr_power_code_b5nbscplp_source_prefix_choice_power bpr_power_scale_b5nbscplp_source_prefix_choice_power. ((forall bpr_power_index_b5nbscplp_source_prefix_choice_power. (exists bpr_gap_b5nbscplp_source_prefix_choice_power_repeat_bound. bpr_gap_b5nbscplp_source_prefix_choice_power_repeat_bound + S (bpr_power_index_b5nbscplp_source_prefix_choice_power) = bpr_choice_exponent_b5nbscplp_source_prefix_choice) -> (((exists bpr_height_b5nbscplp_source_prefix_choice_power_repeat_entry. bpr_height_b5nbscplp_source_prefix_choice_power_repeat_entry + S (S (bpr_prefix_index_b5nbscplp_source_prefix)) = S ((S (bpr_power_index_b5nbscplp_source_prefix_choice_power)) * bpr_power_scale_b5nbscplp_source_prefix_choice_power)) /\ exists bpr_quotient_b5nbscplp_source_prefix_choice_power_repeat_entry. bpr_power_code_b5nbscplp_source_prefix_choice_power = bpr_quotient_b5nbscplp_source_prefix_choice_power_repeat_entry * S ((S (bpr_power_index_b5nbscplp_source_prefix_choice_power)) * bpr_power_scale_b5nbscplp_source_prefix_choice_power) + (S (bpr_prefix_index_b5nbscplp_source_prefix))))) /\ (exists ff_u_b5nbscplp_source_prefix_choice_power_product ff_v_b5nbscplp_source_prefix_choice_power_product. ((((exists ff_h_b5nbscplp_source_prefix_choice_power_product_start. ff_h_b5nbscplp_source_prefix_choice_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbscplp_source_prefix_choice_power_product)) /\ exists ff_q_b5nbscplp_source_prefix_choice_power_product_start. ff_u_b5nbscplp_source_prefix_choice_power_product = ff_q_b5nbscplp_source_prefix_choice_power_product_start * S ((S (0)) * ff_v_b5nbscplp_source_prefix_choice_power_product) + (1))) /\ ((((exists ff_h_b5nbscplp_source_prefix_choice_power_product_terminal. ff_h_b5nbscplp_source_prefix_choice_power_product_terminal + S (bpr_prefix_value_b5nbscplp_source_prefix) = S ((S (bpr_choice_exponent_b5nbscplp_source_prefix_choice)) * ff_v_b5nbscplp_source_prefix_choice_power_product)) /\ exists ff_q_b5nbscplp_source_prefix_choice_power_product_terminal. ff_u_b5nbscplp_source_prefix_choice_power_product = ff_q_b5nbscplp_source_prefix_choice_power_product_terminal * S ((S (bpr_choice_exponent_b5nbscplp_source_prefix_choice)) * ff_v_b5nbscplp_source_prefix_choice_power_product) + (bpr_prefix_value_b5nbscplp_source_prefix))) /\ forall ff_i_b5nbscplp_source_prefix_choice_power_product. (exists ff_lt_b5nbscplp_source_prefix_choice_power_product_bound. ff_lt_b5nbscplp_source_prefix_choice_power_product_bound + S ff_i_b5nbscplp_source_prefix_choice_power_product = bpr_choice_exponent_b5nbscplp_source_prefix_choice) -> exists ff_p_b5nbscplp_source_prefix_choice_power_product ff_r_b5nbscplp_source_prefix_choice_power_product ff_s_b5nbscplp_source_prefix_choice_power_product. ((((exists ff_h_b5nbscplp_source_prefix_choice_power_product_factor. ff_h_b5nbscplp_source_prefix_choice_power_product_factor + S (ff_p_b5nbscplp_source_prefix_choice_power_product) = S ((S (ff_i_b5nbscplp_source_prefix_choice_power_product)) * bpr_power_scale_b5nbscplp_source_prefix_choice_power)) /\ exists ff_q_b5nbscplp_source_prefix_choice_power_product_factor. bpr_power_code_b5nbscplp_source_prefix_choice_power = ff_q_b5nbscplp_source_prefix_choice_power_product_factor * S ((S (ff_i_b5nbscplp_source_prefix_choice_power_product)) * bpr_power_scale_b5nbscplp_source_prefix_choice_power) + (ff_p_b5nbscplp_source_prefix_choice_power_product))) /\ ((((exists ff_h_b5nbscplp_source_prefix_choice_power_product_partial. ff_h_b5nbscplp_source_prefix_choice_power_product_partial + S (ff_r_b5nbscplp_source_prefix_choice_power_product) = S ((S (ff_i_b5nbscplp_source_prefix_choice_power_product)) * ff_v_b5nbscplp_source_prefix_choice_power_product)) /\ exists ff_q_b5nbscplp_source_prefix_choice_power_product_partial. ff_u_b5nbscplp_source_prefix_choice_power_product = ff_q_b5nbscplp_source_prefix_choice_power_product_partial * S ((S (ff_i_b5nbscplp_source_prefix_choice_power_product)) * ff_v_b5nbscplp_source_prefix_choice_power_product) + (ff_r_b5nbscplp_source_prefix_choice_power_product))) /\ ((((exists ff_h_b5nbscplp_source_prefix_choice_power_product_successor. ff_h_b5nbscplp_source_prefix_choice_power_product_successor + S (ff_s_b5nbscplp_source_prefix_choice_power_product) = S ((S (S ff_i_b5nbscplp_source_prefix_choice_power_product)) * ff_v_b5nbscplp_source_prefix_choice_power_product)) /\ exists ff_q_b5nbscplp_source_prefix_choice_power_product_successor. ff_u_b5nbscplp_source_prefix_choice_power_product = ff_q_b5nbscplp_source_prefix_choice_power_product_successor * S ((S (S ff_i_b5nbscplp_source_prefix_choice_power_product)) * ff_v_b5nbscplp_source_prefix_choice_power_product) + (ff_s_b5nbscplp_source_prefix_choice_power_product))) /\ ff_s_b5nbscplp_source_prefix_choice_power_product = ff_r_b5nbscplp_source_prefix_choice_power_product * ff_p_b5nbscplp_source_prefix_choice_power_product)))))))))) \/ (~((~(S (bpr_prefix_index_b5nbscplp_source_prefix) = 1) /\ forall bpr_left_b5nbscplp_source_prefix_choice_prime bpr_right_b5nbscplp_source_prefix_choice_prime. S (bpr_prefix_index_b5nbscplp_source_prefix) = bpr_left_b5nbscplp_source_prefix_choice_prime * bpr_right_b5nbscplp_source_prefix_choice_prime -> bpr_left_b5nbscplp_source_prefix_choice_prime = 1 \/ bpr_right_b5nbscplp_source_prefix_choice_prime = 1)) /\ bpr_prefix_value_b5nbscplp_source_prefix = 1))))) /\ (exists ff_u_b5nbscplp_source_product ff_v_b5nbscplp_source_product. ((((exists ff_h_b5nbscplp_source_product_start. ff_h_b5nbscplp_source_product_start + S (1) = S ((S (0)) * ff_v_b5nbscplp_source_product)) /\ exists ff_q_b5nbscplp_source_product_start. ff_u_b5nbscplp_source_product = ff_q_b5nbscplp_source_product_start * S ((S (0)) * ff_v_b5nbscplp_source_product) + (1))) /\ ((((exists ff_h_b5nbscplp_source_product_terminal. ff_h_b5nbscplp_source_product_terminal + S (z) = S ((S (s)) * ff_v_b5nbscplp_source_product)) /\ exists ff_q_b5nbscplp_source_product_terminal. ff_u_b5nbscplp_source_product = ff_q_b5nbscplp_source_product_terminal * S ((S (s)) * ff_v_b5nbscplp_source_product) + (z))) /\ forall ff_i_b5nbscplp_source_product. (exists ff_lt_b5nbscplp_source_product_bound. ff_lt_b5nbscplp_source_product_bound + S ff_i_b5nbscplp_source_product = s) -> exists ff_p_b5nbscplp_source_product ff_r_b5nbscplp_source_product ff_s_b5nbscplp_source_product. ((((exists ff_h_b5nbscplp_source_product_factor. ff_h_b5nbscplp_source_product_factor + S (ff_p_b5nbscplp_source_product) = S ((S (ff_i_b5nbscplp_source_product)) * bpr_product_scale_b5nbscplp_source)) /\ exists ff_q_b5nbscplp_source_product_factor. bpr_product_code_b5nbscplp_source = ff_q_b5nbscplp_source_product_factor * S ((S (ff_i_b5nbscplp_source_product)) * bpr_product_scale_b5nbscplp_source) + (ff_p_b5nbscplp_source_product))) /\ ((((exists ff_h_b5nbscplp_source_product_partial. ff_h_b5nbscplp_source_product_partial + S (ff_r_b5nbscplp_source_product) = S ((S (ff_i_b5nbscplp_source_product)) * ff_v_b5nbscplp_source_product)) /\ exists ff_q_b5nbscplp_source_product_partial. ff_u_b5nbscplp_source_product = ff_q_b5nbscplp_source_product_partial * S ((S (ff_i_b5nbscplp_source_product)) * ff_v_b5nbscplp_source_product) + (ff_r_b5nbscplp_source_product))) /\ ((((exists ff_h_b5nbscplp_source_product_successor. ff_h_b5nbscplp_source_product_successor + S (ff_s_b5nbscplp_source_product) = S ((S (S ff_i_b5nbscplp_source_product)) * ff_v_b5nbscplp_source_product)) /\ exists ff_q_b5nbscplp_source_product_successor. ff_u_b5nbscplp_source_product = ff_q_b5nbscplp_source_product_successor * S ((S (S ff_i_b5nbscplp_source_product)) * ff_v_b5nbscplp_source_product) + (ff_s_b5nbscplp_source_product))) /\ ff_s_b5nbscplp_source_product = ff_r_b5nbscplp_source_product * ff_p_b5nbscplp_source_product)))))))) -> (exists bpvi_b_b5nbscplp_power bpvi_c_b5nbscplp_power. ((forall bpvi_i_b5nbscplp_power. (exists bpvi_repeat_gap_b5nbscplp_power. bpvi_repeat_gap_b5nbscplp_power + S bpvi_i_b5nbscplp_power = s) -> (((exists bpvi_h_b5nbscplp_power_repeat. bpvi_h_b5nbscplp_power_repeat + S (n + n) = S ((S (bpvi_i_b5nbscplp_power)) * bpvi_c_b5nbscplp_power)) /\ exists bpvi_q_b5nbscplp_power_repeat. bpvi_b_b5nbscplp_power = bpvi_q_b5nbscplp_power_repeat * S ((S (bpvi_i_b5nbscplp_power)) * bpvi_c_b5nbscplp_power) + (n + n)))) /\ (exists bpvi_u_b5nbscplp_power bpvi_v_b5nbscplp_power. ((((exists bpvi_h_b5nbscplp_power_start. bpvi_h_b5nbscplp_power_start + S (1) = S ((S (0)) * bpvi_v_b5nbscplp_power)) /\ exists bpvi_q_b5nbscplp_power_start. bpvi_u_b5nbscplp_power = bpvi_q_b5nbscplp_power_start * S ((S (0)) * bpvi_v_b5nbscplp_power) + (1))) /\ ((((exists bpvi_h_b5nbscplp_power_terminal. bpvi_h_b5nbscplp_power_terminal + S (A) = S ((S (s)) * bpvi_v_b5nbscplp_power)) /\ exists bpvi_q_b5nbscplp_power_terminal. bpvi_u_b5nbscplp_power = bpvi_q_b5nbscplp_power_terminal * S ((S (s)) * bpvi_v_b5nbscplp_power) + (A))) /\ forall bpvi_j_b5nbscplp_power. (exists bpvi_product_gap_b5nbscplp_power. bpvi_product_gap_b5nbscplp_power + S bpvi_j_b5nbscplp_power = s) -> exists bpvi_factor_b5nbscplp_power bpvi_partial_b5nbscplp_power bpvi_successor_b5nbscplp_power. ((((exists bpvi_h_b5nbscplp_power_factor. bpvi_h_b5nbscplp_power_factor + S (bpvi_factor_b5nbscplp_power) = S ((S (bpvi_j_b5nbscplp_power)) * bpvi_c_b5nbscplp_power)) /\ exists bpvi_q_b5nbscplp_power_factor. bpvi_b_b5nbscplp_power = bpvi_q_b5nbscplp_power_factor * S ((S (bpvi_j_b5nbscplp_power)) * bpvi_c_b5nbscplp_power) + (bpvi_factor_b5nbscplp_power))) /\ ((((exists bpvi_h_b5nbscplp_power_partial. bpvi_h_b5nbscplp_power_partial + S (bpvi_partial_b5nbscplp_power) = S ((S (bpvi_j_b5nbscplp_power)) * bpvi_v_b5nbscplp_power)) /\ exists bpvi_q_b5nbscplp_power_partial. bpvi_u_b5nbscplp_power = bpvi_q_b5nbscplp_power_partial * S ((S (bpvi_j_b5nbscplp_power)) * bpvi_v_b5nbscplp_power) + (bpvi_partial_b5nbscplp_power))) /\ ((((exists bpvi_h_b5nbscplp_power_successor. bpvi_h_b5nbscplp_power_successor + S (bpvi_successor_b5nbscplp_power) = S ((S (S bpvi_j_b5nbscplp_power)) * bpvi_v_b5nbscplp_power)) /\ exists bpvi_q_b5nbscplp_power_successor. bpvi_u_b5nbscplp_power = bpvi_q_b5nbscplp_power_successor * S ((S (S bpvi_j_b5nbscplp_power)) * bpvi_v_b5nbscplp_power) + (bpvi_successor_b5nbscplp_power))) /\ bpvi_successor_b5nbscplp_power = bpvi_partial_b5nbscplp_power * bpvi_factor_b5nbscplp_power)))))))) -> (exists bcf_le_gap_b5nbscplp_result. bcf_le_gap_b5nbscplp_result + (z) = A)

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

64 script commands · 12 reading checkpoints · 4 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 (3)
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 z
  7. L7
    intro A
  8. L8
    intro hexclusion
  9. L9
    intro hpositive
  10. L10
    intro hfloor
02Fix variables and assumptionsL11–14

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

  1. L11
    intro hdivision
  2. L12
    intro hcentral
  3. L13
    intro hsource
  4. L14
    intro hpower
03Separate the logical casesL15–17

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

  1. L15
    cases hsource
  2. L16
    cases hsource_witness
  3. L17
    cases hsource_witness_witness
04Establish huniformL18–22

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

  1. L18
    have huniform : ∀ i. ∀ a. Lt(i,s) → BetaAt(x,x1,i,a) → Le(a,n + n)Definitions: Lt(i,s)BetaAt(x,x1,i,a)Le(a,n + n)Original native command in the exact edition
  2. L19
    intro i
  3. L20
    intro a
  4. L21
    intro hi
  5. L22
    intro hdecoded
05Establish hentryL23–25

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

  1. L23
    have hentry : ∃ p. BetaAt(x,x1,i,p) ∧ (Prime(S i) ∧ (∃ y. PowerValuation(S i,C,y) ∧ Pow(S i,y,p)) ∨ ¬Prime(S i) ∧ p = 1)Definitions: BetaAt(x,x1,i,p)Prime(S i)PowerValuation(S i,C,y)Pow(S i,y,p)Original native command in the exact edition
  2. L24
    apply hsource_witness_witness_left
  3. L25
    exact hi
06Separate the logical casesL26–27

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

  1. L26
    cases hentry
  2. L27
    cases hentry_witness
07Establish heqL28–36

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

  1. L28
    have heq : a = x2
  2. L29
    specialize beta_at_unique x
  3. L30
    specialize beta_at_unique x1
  4. L31
    specialize beta_at_unique i
  5. L32
    specialize beta_at_unique a
  6. L33
    specialize beta_at_unique x2
  7. L34
    apply beta_at_unique
  8. L35
    exact hdecoded
  9. L36
    exact hentry_witness_left
08Establish hfactorL37–46

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply no bertrand small contribution choice le double.

  1. L37
    have hfactor : Le(x2,n + n)Definitions: Le(x2,n + n)Original native command in the exact edition
  2. L38
    specialize no_bertrand_small_contribution_choice_le_double n
  3. L39
    specialize no_bertrand_small_contribution_choice_le_double s
  4. L40
    specialize no_bertrand_small_contribution_choice_le_double q
  5. L41
    specialize no_bertrand_small_contribution_choice_le_double r
  6. L42
    specialize no_bertrand_small_contribution_choice_le_double C
  7. L43
    specialize no_bertrand_small_contribution_choice_le_double i
  8. L44
    specialize no_bertrand_small_contribution_choice_le_double x2
  9. L45
    apply no_bertrand_small_contribution_choice_le_double
  10. L46
    exact hexclusion
09Use earlier factsL47–52

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

  1. L47
    exact hpositive
  2. L48
    exact hfloor
  3. L49
    exact hdivision
  4. L50
    exact hcentral
  5. L51
    exact hi
  6. L52
    exact hentry_witness_right
10Calculate and transport equalitiesL53–53

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

  1. L53
    rewrite heq
11Use earlier factsL54–63

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

  1. L54
    exact hfactor
  2. L55
    specialize beta_product_uniform_le_pow x
  3. L56
    specialize beta_product_uniform_le_pow x1
  4. L57
    specialize beta_product_uniform_le_pow (n + n)
  5. L58
    specialize beta_product_uniform_le_pow s
  6. L59
    specialize beta_product_uniform_le_pow z
  7. L60
    specialize beta_product_uniform_le_pow A
  8. L61
    apply beta_product_uniform_le_pow
  9. L62
    exact huniform
  10. L63
    exact hsource_witness_witness_right
12Use earlier factsL64–64

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

  1. L64
    exact hpower

Library-wide reading audit

Original defined command ledger · 64 lines
  1. 0001intro n
  2. 0002intro s
  3. 0003intro q
  4. 0004intro r
  5. 0005intro C
  6. 0006intro z
  7. 0007intro A
  8. 0008intro hexclusion
  9. 0009intro hpositive
  10. 0010intro hfloor
  11. 0011intro hdivision
  12. 0012intro hcentral
  13. 0013intro hsource
  14. 0014intro hpower
  15. 0015cases hsource
  16. 0016cases hsource_witness
  17. 0017cases hsource_witness_witness
  18. 0018have huniform : ∀ i. ∀ a. Lt(i,s)BetaAt(x,x1,i,a)Le(a,n + n)
    Exact native replay linehave huniform : forall i a. (exists bcf_lt_gap_b5nbscplp_uniform_bound. bcf_lt_gap_b5nbscplp_uniform_bound + S (i) = s) -> (((exists bpr_height_b5nbscplp_uniform_decoded. bpr_height_b5nbscplp_uniform_decoded + S (a) = S ((S (i)) * x1)) /\ exists bpr_quotient_b5nbscplp_uniform_decoded. x = bpr_quotient_b5nbscplp_uniform_decoded * S ((S (i)) * x1) + (a))) -> (exists bcf_le_gap_b5nbscplp_uniform_result. bcf_le_gap_b5nbscplp_uniform_result + (a) = n + n)
  19. 0019intro i
  20. 0020intro a
  21. 0021intro hi
  22. 0022intro hdecoded
  23. 0023have hentry : ∃ p. BetaAt(x,x1,i,p) ∧ (Prime(S i) ∧ (∃ y. PowerValuation(S i,C,y)Pow(S i,y,p)) ∨ ¬Prime(S i) ∧ p = 1)
    Exact native replay linehave hentry : exists p. (((exists bpr_height_b5nbscplp_entry_decoded. bpr_height_b5nbscplp_entry_decoded + S (p) = S ((S (i)) * x1)) /\ exists bpr_quotient_b5nbscplp_entry_decoded. x = bpr_quotient_b5nbscplp_entry_decoded * S ((S (i)) * x1) + (p))) /\ (((((~(S (i) = 1) /\ forall bpr_left_b5nbscplp_entry_choice_prime bpr_right_b5nbscplp_entry_choice_prime. S (i) = bpr_left_b5nbscplp_entry_choice_prime * bpr_right_b5nbscplp_entry_choice_prime -> bpr_left_b5nbscplp_entry_choice_prime = 1 \/ bpr_right_b5nbscplp_entry_choice_prime = 1)) /\ exists bpr_choice_exponent_b5nbscplp_entry_choice. ((((exists bpr_le_gap_b5nbscplp_entry_choice_valuation_selected_bound. bpr_le_gap_b5nbscplp_entry_choice_valuation_selected_bound + (bpr_choice_exponent_b5nbscplp_entry_choice) = (C)) /\ (exists bpr_power_value_b5nbscplp_entry_choice_valuation_selected. ((exists bpr_power_code_b5nbscplp_entry_choice_valuation_selected_power bpr_power_scale_b5nbscplp_entry_choice_valuation_selected_power. ((forall bpr_power_index_b5nbscplp_entry_choice_valuation_selected_power. (exists bpr_gap_b5nbscplp_entry_choice_valuation_selected_power_repeat_bound. bpr_gap_b5nbscplp_entry_choice_valuation_selected_power_repeat_bound + S (bpr_power_index_b5nbscplp_entry_choice_valuation_selected_power) = bpr_choice_exponent_b5nbscplp_entry_choice) -> (((exists bpr_height_b5nbscplp_entry_choice_valuation_selected_power_repeat_entry. bpr_height_b5nbscplp_entry_choice_valuation_selected_power_repeat_entry + S (S (i)) = S ((S (bpr_power_index_b5nbscplp_entry_choice_valuation_selected_power)) * bpr_power_scale_b5nbscplp_entry_choice_valuation_selected_power)) /\ exists bpr_quotient_b5nbscplp_entry_choice_valuation_selected_power_repeat_entry. bpr_power_code_b5nbscplp_entry_choice_valuation_selected_power = bpr_quotient_b5nbscplp_entry_choice_valuation_selected_power_repeat_entry * S ((S (bpr_power_index_b5nbscplp_entry_choice_valuation_selected_power)) * bpr_power_scale_b5nbscplp_entry_choice_valuation_selected_power) + (S (i))))) /\ (exists ff_u_b5nbscplp_entry_choice_valuation_selected_power_product ff_v_b5nbscplp_entry_choice_valuation_selected_power_product. ((((exists ff_h_b5nbscplp_entry_choice_valuation_selected_power_product_start. ff_h_b5nbscplp_entry_choice_valuation_selected_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbscplp_entry_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbscplp_entry_choice_valuation_selected_power_product_start. ff_u_b5nbscplp_entry_choice_valuation_selected_power_product = ff_q_b5nbscplp_entry_choice_valuation_selected_power_product_start * S ((S (0)) * ff_v_b5nbscplp_entry_choice_valuation_selected_power_product) + (1))) /\ ((((exists ff_h_b5nbscplp_entry_choice_valuation_selected_power_product_terminal. ff_h_b5nbscplp_entry_choice_valuation_selected_power_product_terminal + S (bpr_power_value_b5nbscplp_entry_choice_valuation_selected) = S ((S (bpr_choice_exponent_b5nbscplp_entry_choice)) * ff_v_b5nbscplp_entry_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbscplp_entry_choice_valuation_selected_power_product_terminal. ff_u_b5nbscplp_entry_choice_valuation_selected_power_product = ff_q_b5nbscplp_entry_choice_valuation_selected_power_product_terminal * S ((S (bpr_choice_exponent_b5nbscplp_entry_choice)) * ff_v_b5nbscplp_entry_choice_valuation_selected_power_product) + (bpr_power_value_b5nbscplp_entry_choice_valuation_selected))) /\ forall ff_i_b5nbscplp_entry_choice_valuation_selected_power_product. (exists ff_lt_b5nbscplp_entry_choice_valuation_selected_power_product_bound. ff_lt_b5nbscplp_entry_choice_valuation_selected_power_product_bound + S ff_i_b5nbscplp_entry_choice_valuation_selected_power_product = bpr_choice_exponent_b5nbscplp_entry_choice) -> exists ff_p_b5nbscplp_entry_choice_valuation_selected_power_product ff_r_b5nbscplp_entry_choice_valuation_selected_power_product ff_s_b5nbscplp_entry_choice_valuation_selected_power_product. ((((exists ff_h_b5nbscplp_entry_choice_valuation_selected_power_product_factor. ff_h_b5nbscplp_entry_choice_valuation_selected_power_product_factor + S (ff_p_b5nbscplp_entry_choice_valuation_selected_power_product) = S ((S (ff_i_b5nbscplp_entry_choice_valuation_selected_power_product)) * bpr_power_scale_b5nbscplp_entry_choice_valuation_selected_power)) /\ exists ff_q_b5nbscplp_entry_choice_valuation_selected_power_product_factor. bpr_power_code_b5nbscplp_entry_choice_valuation_selected_power = ff_q_b5nbscplp_entry_choice_valuation_selected_power_product_factor * S ((S (ff_i_b5nbscplp_entry_choice_valuation_selected_power_product)) * bpr_power_scale_b5nbscplp_entry_choice_valuation_selected_power) + (ff_p_b5nbscplp_entry_choice_valuation_selected_power_product))) /\ ((((exists ff_h_b5nbscplp_entry_choice_valuation_selected_power_product_partial. ff_h_b5nbscplp_entry_choice_valuation_selected_power_product_partial + S (ff_r_b5nbscplp_entry_choice_valuation_selected_power_product) = S ((S (ff_i_b5nbscplp_entry_choice_valuation_selected_power_product)) * ff_v_b5nbscplp_entry_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbscplp_entry_choice_valuation_selected_power_product_partial. ff_u_b5nbscplp_entry_choice_valuation_selected_power_product = ff_q_b5nbscplp_entry_choice_valuation_selected_power_product_partial * S ((S (ff_i_b5nbscplp_entry_choice_valuation_selected_power_product)) * ff_v_b5nbscplp_entry_choice_valuation_selected_power_product) + (ff_r_b5nbscplp_entry_choice_valuation_selected_power_product))) /\ ((((exists ff_h_b5nbscplp_entry_choice_valuation_selected_power_product_successor. ff_h_b5nbscplp_entry_choice_valuation_selected_power_product_successor + S (ff_s_b5nbscplp_entry_choice_valuation_selected_power_product) = S ((S (S ff_i_b5nbscplp_entry_choice_valuation_selected_power_product)) * ff_v_b5nbscplp_entry_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbscplp_entry_choice_valuation_selected_power_product_successor. ff_u_b5nbscplp_entry_choice_valuation_selected_power_product = ff_q_b5nbscplp_entry_choice_valuation_selected_power_product_successor * S ((S (S ff_i_b5nbscplp_entry_choice_valuation_selected_power_product)) * ff_v_b5nbscplp_entry_choice_valuation_selected_power_product) + (ff_s_b5nbscplp_entry_choice_valuation_selected_power_product))) /\ ff_s_b5nbscplp_entry_choice_valuation_selected_power_product = ff_r_b5nbscplp_entry_choice_valuation_selected_power_product * ff_p_b5nbscplp_entry_choice_valuation_selected_power_product)))))))) /\ (exists bpr_divides_quotient_b5nbscplp_entry_choice_valuation_selected_divides. C = (bpr_power_value_b5nbscplp_entry_choice_valuation_selected) * bpr_divides_quotient_b5nbscplp_entry_choice_valuation_selected_divides)))) /\ forall bpr_valuation_candidate_b5nbscplp_entry_choice_valuation. (exists bpr_le_gap_b5nbscplp_entry_choice_valuation_candidate_bound. bpr_le_gap_b5nbscplp_entry_choice_valuation_candidate_bound + (bpr_valuation_candidate_b5nbscplp_entry_choice_valuation) = (C)) -> (exists bpr_power_value_b5nbscplp_entry_choice_valuation_candidate. ((exists bpr_power_code_b5nbscplp_entry_choice_valuation_candidate_power bpr_power_scale_b5nbscplp_entry_choice_valuation_candidate_power. ((forall bpr_power_index_b5nbscplp_entry_choice_valuation_candidate_power. (exists bpr_gap_b5nbscplp_entry_choice_valuation_candidate_power_repeat_bound. bpr_gap_b5nbscplp_entry_choice_valuation_candidate_power_repeat_bound + S (bpr_power_index_b5nbscplp_entry_choice_valuation_candidate_power) = bpr_valuation_candidate_b5nbscplp_entry_choice_valuation) -> (((exists bpr_height_b5nbscplp_entry_choice_valuation_candidate_power_repeat_entry. bpr_height_b5nbscplp_entry_choice_valuation_candidate_power_repeat_entry + S (S (i)) = S ((S (bpr_power_index_b5nbscplp_entry_choice_valuation_candidate_power)) * bpr_power_scale_b5nbscplp_entry_choice_valuation_candidate_power)) /\ exists bpr_quotient_b5nbscplp_entry_choice_valuation_candidate_power_repeat_entry. bpr_power_code_b5nbscplp_entry_choice_valuation_candidate_power = bpr_quotient_b5nbscplp_entry_choice_valuation_candidate_power_repeat_entry * S ((S (bpr_power_index_b5nbscplp_entry_choice_valuation_candidate_power)) * bpr_power_scale_b5nbscplp_entry_choice_valuation_candidate_power) + (S (i))))) /\ (exists ff_u_b5nbscplp_entry_choice_valuation_candidate_power_product ff_v_b5nbscplp_entry_choice_valuation_candidate_power_product. ((((exists ff_h_b5nbscplp_entry_choice_valuation_candidate_power_product_start. ff_h_b5nbscplp_entry_choice_valuation_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbscplp_entry_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbscplp_entry_choice_valuation_candidate_power_product_start. ff_u_b5nbscplp_entry_choice_valuation_candidate_power_product = ff_q_b5nbscplp_entry_choice_valuation_candidate_power_product_start * S ((S (0)) * ff_v_b5nbscplp_entry_choice_valuation_candidate_power_product) + (1))) /\ ((((exists ff_h_b5nbscplp_entry_choice_valuation_candidate_power_product_terminal. ff_h_b5nbscplp_entry_choice_valuation_candidate_power_product_terminal + S (bpr_power_value_b5nbscplp_entry_choice_valuation_candidate) = S ((S (bpr_valuation_candidate_b5nbscplp_entry_choice_valuation)) * ff_v_b5nbscplp_entry_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbscplp_entry_choice_valuation_candidate_power_product_terminal. ff_u_b5nbscplp_entry_choice_valuation_candidate_power_product = ff_q_b5nbscplp_entry_choice_valuation_candidate_power_product_terminal * S ((S (bpr_valuation_candidate_b5nbscplp_entry_choice_valuation)) * ff_v_b5nbscplp_entry_choice_valuation_candidate_power_product) + (bpr_power_value_b5nbscplp_entry_choice_valuation_candidate))) /\ forall ff_i_b5nbscplp_entry_choice_valuation_candidate_power_product. (exists ff_lt_b5nbscplp_entry_choice_valuation_candidate_power_product_bound. ff_lt_b5nbscplp_entry_choice_valuation_candidate_power_product_bound + S ff_i_b5nbscplp_entry_choice_valuation_candidate_power_product = bpr_valuation_candidate_b5nbscplp_entry_choice_valuation) -> exists ff_p_b5nbscplp_entry_choice_valuation_candidate_power_product ff_r_b5nbscplp_entry_choice_valuation_candidate_power_product ff_s_b5nbscplp_entry_choice_valuation_candidate_power_product. ((((exists ff_h_b5nbscplp_entry_choice_valuation_candidate_power_product_factor. ff_h_b5nbscplp_entry_choice_valuation_candidate_power_product_factor + S (ff_p_b5nbscplp_entry_choice_valuation_candidate_power_product) = S ((S (ff_i_b5nbscplp_entry_choice_valuation_candidate_power_product)) * bpr_power_scale_b5nbscplp_entry_choice_valuation_candidate_power)) /\ exists ff_q_b5nbscplp_entry_choice_valuation_candidate_power_product_factor. bpr_power_code_b5nbscplp_entry_choice_valuation_candidate_power = ff_q_b5nbscplp_entry_choice_valuation_candidate_power_product_factor * S ((S (ff_i_b5nbscplp_entry_choice_valuation_candidate_power_product)) * bpr_power_scale_b5nbscplp_entry_choice_valuation_candidate_power) + (ff_p_b5nbscplp_entry_choice_valuation_candidate_power_product))) /\ ((((exists ff_h_b5nbscplp_entry_choice_valuation_candidate_power_product_partial. ff_h_b5nbscplp_entry_choice_valuation_candidate_power_product_partial + S (ff_r_b5nbscplp_entry_choice_valuation_candidate_power_product) = S ((S (ff_i_b5nbscplp_entry_choice_valuation_candidate_power_product)) * ff_v_b5nbscplp_entry_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbscplp_entry_choice_valuation_candidate_power_product_partial. ff_u_b5nbscplp_entry_choice_valuation_candidate_power_product = ff_q_b5nbscplp_entry_choice_valuation_candidate_power_product_partial * S ((S (ff_i_b5nbscplp_entry_choice_valuation_candidate_power_product)) * ff_v_b5nbscplp_entry_choice_valuation_candidate_power_product) + (ff_r_b5nbscplp_entry_choice_valuation_candidate_power_product))) /\ ((((exists ff_h_b5nbscplp_entry_choice_valuation_candidate_power_product_successor. ff_h_b5nbscplp_entry_choice_valuation_candidate_power_product_successor + S (ff_s_b5nbscplp_entry_choice_valuation_candidate_power_product) = S ((S (S ff_i_b5nbscplp_entry_choice_valuation_candidate_power_product)) * ff_v_b5nbscplp_entry_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbscplp_entry_choice_valuation_candidate_power_product_successor. ff_u_b5nbscplp_entry_choice_valuation_candidate_power_product = ff_q_b5nbscplp_entry_choice_valuation_candidate_power_product_successor * S ((S (S ff_i_b5nbscplp_entry_choice_valuation_candidate_power_product)) * ff_v_b5nbscplp_entry_choice_valuation_candidate_power_product) + (ff_s_b5nbscplp_entry_choice_valuation_candidate_power_product))) /\ ff_s_b5nbscplp_entry_choice_valuation_candidate_power_product = ff_r_b5nbscplp_entry_choice_valuation_candidate_power_product * ff_p_b5nbscplp_entry_choice_valuation_candidate_power_product)))))))) /\ (exists bpr_divides_quotient_b5nbscplp_entry_choice_valuation_candidate_divides. C = (bpr_power_value_b5nbscplp_entry_choice_valuation_candidate) * bpr_divides_quotient_b5nbscplp_entry_choice_valuation_candidate_divides))) -> (exists bpr_le_gap_b5nbscplp_entry_choice_valuation_candidate_below. bpr_le_gap_b5nbscplp_entry_choice_valuation_candidate_below + (bpr_valuation_candidate_b5nbscplp_entry_choice_valuation) = (bpr_choice_exponent_b5nbscplp_entry_choice))) /\ (exists bpr_power_code_b5nbscplp_entry_choice_power bpr_power_scale_b5nbscplp_entry_choice_power. ((forall bpr_power_index_b5nbscplp_entry_choice_power. (exists bpr_gap_b5nbscplp_entry_choice_power_repeat_bound. bpr_gap_b5nbscplp_entry_choice_power_repeat_bound + S (bpr_power_index_b5nbscplp_entry_choice_power) = bpr_choice_exponent_b5nbscplp_entry_choice) -> (((exists bpr_height_b5nbscplp_entry_choice_power_repeat_entry. bpr_height_b5nbscplp_entry_choice_power_repeat_entry + S (S (i)) = S ((S (bpr_power_index_b5nbscplp_entry_choice_power)) * bpr_power_scale_b5nbscplp_entry_choice_power)) /\ exists bpr_quotient_b5nbscplp_entry_choice_power_repeat_entry. bpr_power_code_b5nbscplp_entry_choice_power = bpr_quotient_b5nbscplp_entry_choice_power_repeat_entry * S ((S (bpr_power_index_b5nbscplp_entry_choice_power)) * bpr_power_scale_b5nbscplp_entry_choice_power) + (S (i))))) /\ (exists ff_u_b5nbscplp_entry_choice_power_product ff_v_b5nbscplp_entry_choice_power_product. ((((exists ff_h_b5nbscplp_entry_choice_power_product_start. ff_h_b5nbscplp_entry_choice_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbscplp_entry_choice_power_product)) /\ exists ff_q_b5nbscplp_entry_choice_power_product_start. ff_u_b5nbscplp_entry_choice_power_product = ff_q_b5nbscplp_entry_choice_power_product_start * S ((S (0)) * ff_v_b5nbscplp_entry_choice_power_product) + (1))) /\ ((((exists ff_h_b5nbscplp_entry_choice_power_product_terminal. ff_h_b5nbscplp_entry_choice_power_product_terminal + S (p) = S ((S (bpr_choice_exponent_b5nbscplp_entry_choice)) * ff_v_b5nbscplp_entry_choice_power_product)) /\ exists ff_q_b5nbscplp_entry_choice_power_product_terminal. ff_u_b5nbscplp_entry_choice_power_product = ff_q_b5nbscplp_entry_choice_power_product_terminal * S ((S (bpr_choice_exponent_b5nbscplp_entry_choice)) * ff_v_b5nbscplp_entry_choice_power_product) + (p))) /\ forall ff_i_b5nbscplp_entry_choice_power_product. (exists ff_lt_b5nbscplp_entry_choice_power_product_bound. ff_lt_b5nbscplp_entry_choice_power_product_bound + S ff_i_b5nbscplp_entry_choice_power_product = bpr_choice_exponent_b5nbscplp_entry_choice) -> exists ff_p_b5nbscplp_entry_choice_power_product ff_r_b5nbscplp_entry_choice_power_product ff_s_b5nbscplp_entry_choice_power_product. ((((exists ff_h_b5nbscplp_entry_choice_power_product_factor. ff_h_b5nbscplp_entry_choice_power_product_factor + S (ff_p_b5nbscplp_entry_choice_power_product) = S ((S (ff_i_b5nbscplp_entry_choice_power_product)) * bpr_power_scale_b5nbscplp_entry_choice_power)) /\ exists ff_q_b5nbscplp_entry_choice_power_product_factor. bpr_power_code_b5nbscplp_entry_choice_power = ff_q_b5nbscplp_entry_choice_power_product_factor * S ((S (ff_i_b5nbscplp_entry_choice_power_product)) * bpr_power_scale_b5nbscplp_entry_choice_power) + (ff_p_b5nbscplp_entry_choice_power_product))) /\ ((((exists ff_h_b5nbscplp_entry_choice_power_product_partial. ff_h_b5nbscplp_entry_choice_power_product_partial + S (ff_r_b5nbscplp_entry_choice_power_product) = S ((S (ff_i_b5nbscplp_entry_choice_power_product)) * ff_v_b5nbscplp_entry_choice_power_product)) /\ exists ff_q_b5nbscplp_entry_choice_power_product_partial. ff_u_b5nbscplp_entry_choice_power_product = ff_q_b5nbscplp_entry_choice_power_product_partial * S ((S (ff_i_b5nbscplp_entry_choice_power_product)) * ff_v_b5nbscplp_entry_choice_power_product) + (ff_r_b5nbscplp_entry_choice_power_product))) /\ ((((exists ff_h_b5nbscplp_entry_choice_power_product_successor. ff_h_b5nbscplp_entry_choice_power_product_successor + S (ff_s_b5nbscplp_entry_choice_power_product) = S ((S (S ff_i_b5nbscplp_entry_choice_power_product)) * ff_v_b5nbscplp_entry_choice_power_product)) /\ exists ff_q_b5nbscplp_entry_choice_power_product_successor. ff_u_b5nbscplp_entry_choice_power_product = ff_q_b5nbscplp_entry_choice_power_product_successor * S ((S (S ff_i_b5nbscplp_entry_choice_power_product)) * ff_v_b5nbscplp_entry_choice_power_product) + (ff_s_b5nbscplp_entry_choice_power_product))) /\ ff_s_b5nbscplp_entry_choice_power_product = ff_r_b5nbscplp_entry_choice_power_product * ff_p_b5nbscplp_entry_choice_power_product)))))))))) \/ (~((~(S (i) = 1) /\ forall bpr_left_b5nbscplp_entry_choice_prime bpr_right_b5nbscplp_entry_choice_prime. S (i) = bpr_left_b5nbscplp_entry_choice_prime * bpr_right_b5nbscplp_entry_choice_prime -> bpr_left_b5nbscplp_entry_choice_prime = 1 \/ bpr_right_b5nbscplp_entry_choice_prime = 1)) /\ p = 1)))
  24. 0024apply hsource_witness_witness_left
  25. 0025exact hi
  26. 0026cases hentry
  27. 0027cases hentry_witness
  28. 0028have heq : a = x2
  29. 0029specialize beta_at_unique x
  30. 0030specialize beta_at_unique x1
  31. 0031specialize beta_at_unique i
  32. 0032specialize beta_at_unique a
  33. 0033specialize beta_at_unique x2
  34. 0034apply beta_at_unique
  35. 0035exact hdecoded
  36. 0036exact hentry_witness_left
  37. 0037have hfactor : Le(x2,n + n)
    Exact native replay linehave hfactor : exists bcf_le_gap_b5nbscplp_factor. bcf_le_gap_b5nbscplp_factor + (x2) = n + n
  38. 0038specialize no_bertrand_small_contribution_choice_le_double n
  39. 0039specialize no_bertrand_small_contribution_choice_le_double s
  40. 0040specialize no_bertrand_small_contribution_choice_le_double q
  41. 0041specialize no_bertrand_small_contribution_choice_le_double r
  42. 0042specialize no_bertrand_small_contribution_choice_le_double C
  43. 0043specialize no_bertrand_small_contribution_choice_le_double i
  44. 0044specialize no_bertrand_small_contribution_choice_le_double x2
  45. 0045apply no_bertrand_small_contribution_choice_le_double
  46. 0046exact hexclusion
  47. 0047exact hpositive
  48. 0048exact hfloor
  49. 0049exact hdivision
  50. 0050exact hcentral
  51. 0051exact hi
  52. 0052exact hentry_witness_right
  53. 0053rewrite heq
  54. 0054exact hfactor
  55. 0055specialize beta_product_uniform_le_pow x
  56. 0056specialize beta_product_uniform_le_pow x1
  57. 0057specialize beta_product_uniform_le_pow (n + n)
  58. 0058specialize beta_product_uniform_le_pow s
  59. 0059specialize beta_product_uniform_le_pow z
  60. 0060specialize beta_product_uniform_le_pow A
  61. 0061apply beta_product_uniform_le_pow
  62. 0062exact huniform
  63. 0063exact hsource_witness_witness_right
  64. 0064exact hpower