BT0111 · Bertrand theorem

no_bertrand_middle_contribution_interval_le_four_pow

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

The middle contribution interval is bounded by four to q.

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

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

14 occurrences

Exact expanded native-PA statement
forall n s q r C g y B. (forall bpr_prime_candidate_b5nbmcilfp_exclusion. ((exists bpr_gap_b5nbmcilfp_exclusion_lower. bpr_gap_b5nbmcilfp_exclusion_lower + S (n) = bpr_prime_candidate_b5nbmcilfp_exclusion) /\ (exists bpr_le_gap_b5nbmcilfp_exclusion_upper. bpr_le_gap_b5nbmcilfp_exclusion_upper + (bpr_prime_candidate_b5nbmcilfp_exclusion) = (n + n))) -> ~((~(bpr_prime_candidate_b5nbmcilfp_exclusion = 1) /\ forall bpr_left_b5nbmcilfp_exclusion_prime bpr_right_b5nbmcilfp_exclusion_prime. bpr_prime_candidate_b5nbmcilfp_exclusion = bpr_left_b5nbmcilfp_exclusion_prime * bpr_right_b5nbmcilfp_exclusion_prime -> bpr_left_b5nbmcilfp_exclusion_prime = 1 \/ bpr_right_b5nbmcilfp_exclusion_prime = 1))) -> (exists bcf_lt_gap_b5nbmcilfp_positive. bcf_lt_gap_b5nbmcilfp_positive + S (2) = n) -> (((exists bcs_sqrt_lower_gap_b5nbmcilfp_floor. bcs_sqrt_lower_gap_b5nbmcilfp_floor + (s) * (s) = (n + n)) /\ exists bcs_sqrt_upper_gap_b5nbmcilfp_floor. bcs_sqrt_upper_gap_b5nbmcilfp_floor + S (n + n) = S (s) * S (s))) -> (((n + n) = (3) * (q) + (r) /\ (exists bcf_lt_gap_b5nbmcilfp_division_bound. bcf_lt_gap_b5nbmcilfp_division_bound + S (r) = 3))) -> (((exists bcf_lt_gap_b5nbmcilfp_central_out_of_range. bcf_lt_gap_b5nbmcilfp_central_out_of_range + S (n + n) = n) /\ C = 0) \/ ((exists bcf_le_gap_b5nbmcilfp_central_in_range. bcf_le_gap_b5nbmcilfp_central_in_range + (n) = n + n) /\ (exists bcf_row_code_code_b5nbmcilfp_central bcf_row_code_scale_b5nbmcilfp_central bcf_row_scale_code_b5nbmcilfp_central bcf_row_scale_scale_b5nbmcilfp_central bcf_row_code_b5nbmcilfp_central bcf_row_scale_b5nbmcilfp_central. ((forall bcf_row_index_b5nbmcilfp_central_table. (exists bcf_lt_gap_b5nbmcilfp_central_table_row_bound. bcf_lt_gap_b5nbmcilfp_central_table_row_bound + S (bcf_row_index_b5nbmcilfp_central_table) = S (n + n)) -> exists bcf_row_code_b5nbmcilfp_central_table bcf_row_scale_b5nbmcilfp_central_table. ((((exists bcf_height_b5nbmcilfp_central_table_decoded_row_code. bcf_height_b5nbmcilfp_central_table_decoded_row_code + S (bcf_row_code_b5nbmcilfp_central_table) = S ((S (bcf_row_index_b5nbmcilfp_central_table)) * bcf_row_code_scale_b5nbmcilfp_central)) /\ exists bcf_quotient_b5nbmcilfp_central_table_decoded_row_code. bcf_row_code_code_b5nbmcilfp_central = bcf_quotient_b5nbmcilfp_central_table_decoded_row_code * S ((S (bcf_row_index_b5nbmcilfp_central_table)) * bcf_row_code_scale_b5nbmcilfp_central) + (bcf_row_code_b5nbmcilfp_central_table))) /\ ((((exists bcf_height_b5nbmcilfp_central_table_decoded_row_scale. bcf_height_b5nbmcilfp_central_table_decoded_row_scale + S (bcf_row_scale_b5nbmcilfp_central_table) = S ((S (bcf_row_index_b5nbmcilfp_central_table)) * bcf_row_scale_scale_b5nbmcilfp_central)) /\ exists bcf_quotient_b5nbmcilfp_central_table_decoded_row_scale. bcf_row_scale_code_b5nbmcilfp_central = bcf_quotient_b5nbmcilfp_central_table_decoded_row_scale * S ((S (bcf_row_index_b5nbmcilfp_central_table)) * bcf_row_scale_scale_b5nbmcilfp_central) + (bcf_row_scale_b5nbmcilfp_central_table))) /\ ((bcf_row_index_b5nbmcilfp_central_table = 0 /\ (forall bcf_index_b5nbmcilfp_central_table_zero_row. (exists bcf_lt_gap_b5nbmcilfp_central_table_zero_row_bound. bcf_lt_gap_b5nbmcilfp_central_table_zero_row_bound + S (bcf_index_b5nbmcilfp_central_table_zero_row) = S (n + n)) -> exists bcf_value_b5nbmcilfp_central_table_zero_row. ((((exists bcf_height_b5nbmcilfp_central_table_zero_row_entry. bcf_height_b5nbmcilfp_central_table_zero_row_entry + S (bcf_value_b5nbmcilfp_central_table_zero_row) = S ((S (bcf_index_b5nbmcilfp_central_table_zero_row)) * bcf_row_scale_b5nbmcilfp_central_table)) /\ exists bcf_quotient_b5nbmcilfp_central_table_zero_row_entry. bcf_row_code_b5nbmcilfp_central_table = bcf_quotient_b5nbmcilfp_central_table_zero_row_entry * S ((S (bcf_index_b5nbmcilfp_central_table_zero_row)) * bcf_row_scale_b5nbmcilfp_central_table) + (bcf_value_b5nbmcilfp_central_table_zero_row))) /\ ((bcf_index_b5nbmcilfp_central_table_zero_row = 0 /\ bcf_value_b5nbmcilfp_central_table_zero_row = 1) \/ exists bcf_predecessor_b5nbmcilfp_central_table_zero_row. bcf_index_b5nbmcilfp_central_table_zero_row = S bcf_predecessor_b5nbmcilfp_central_table_zero_row /\ bcf_value_b5nbmcilfp_central_table_zero_row = 0)))) \/ exists bcf_predecessor_b5nbmcilfp_central_table bcf_previous_code_b5nbmcilfp_central_table bcf_previous_scale_b5nbmcilfp_central_table. bcf_row_index_b5nbmcilfp_central_table = S bcf_predecessor_b5nbmcilfp_central_table /\ ((((exists bcf_height_b5nbmcilfp_central_table_decoded_previous_code. bcf_height_b5nbmcilfp_central_table_decoded_previous_code + S (bcf_previous_code_b5nbmcilfp_central_table) = S ((S (bcf_predecessor_b5nbmcilfp_central_table)) * bcf_row_code_scale_b5nbmcilfp_central)) /\ exists bcf_quotient_b5nbmcilfp_central_table_decoded_previous_code. bcf_row_code_code_b5nbmcilfp_central = bcf_quotient_b5nbmcilfp_central_table_decoded_previous_code * S ((S (bcf_predecessor_b5nbmcilfp_central_table)) * bcf_row_code_scale_b5nbmcilfp_central) + (bcf_previous_code_b5nbmcilfp_central_table))) /\ ((((exists bcf_height_b5nbmcilfp_central_table_decoded_previous_scale. bcf_height_b5nbmcilfp_central_table_decoded_previous_scale + S (bcf_previous_scale_b5nbmcilfp_central_table) = S ((S (bcf_predecessor_b5nbmcilfp_central_table)) * bcf_row_scale_scale_b5nbmcilfp_central)) /\ exists bcf_quotient_b5nbmcilfp_central_table_decoded_previous_scale. bcf_row_scale_code_b5nbmcilfp_central = bcf_quotient_b5nbmcilfp_central_table_decoded_previous_scale * S ((S (bcf_predecessor_b5nbmcilfp_central_table)) * bcf_row_scale_scale_b5nbmcilfp_central) + (bcf_previous_scale_b5nbmcilfp_central_table))) /\ (forall bcf_index_b5nbmcilfp_central_table_row_step. (exists bcf_lt_gap_b5nbmcilfp_central_table_row_step_bound. bcf_lt_gap_b5nbmcilfp_central_table_row_step_bound + S (bcf_index_b5nbmcilfp_central_table_row_step) = S (n + n)) -> exists bcf_value_b5nbmcilfp_central_table_row_step. ((((exists bcf_height_b5nbmcilfp_central_table_row_step_entry. bcf_height_b5nbmcilfp_central_table_row_step_entry + S (bcf_value_b5nbmcilfp_central_table_row_step) = S ((S (bcf_index_b5nbmcilfp_central_table_row_step)) * bcf_row_scale_b5nbmcilfp_central_table)) /\ exists bcf_quotient_b5nbmcilfp_central_table_row_step_entry. bcf_row_code_b5nbmcilfp_central_table = bcf_quotient_b5nbmcilfp_central_table_row_step_entry * S ((S (bcf_index_b5nbmcilfp_central_table_row_step)) * bcf_row_scale_b5nbmcilfp_central_table) + (bcf_value_b5nbmcilfp_central_table_row_step))) /\ ((bcf_index_b5nbmcilfp_central_table_row_step = 0 /\ bcf_value_b5nbmcilfp_central_table_row_step = 1) \/ exists bcf_predecessor_b5nbmcilfp_central_table_row_step bcf_left_b5nbmcilfp_central_table_row_step bcf_right_b5nbmcilfp_central_table_row_step. bcf_index_b5nbmcilfp_central_table_row_step = S bcf_predecessor_b5nbmcilfp_central_table_row_step /\ ((((exists bcf_height_b5nbmcilfp_central_table_row_step_previous_left. bcf_height_b5nbmcilfp_central_table_row_step_previous_left + S (bcf_left_b5nbmcilfp_central_table_row_step) = S ((S (bcf_predecessor_b5nbmcilfp_central_table_row_step)) * bcf_previous_scale_b5nbmcilfp_central_table)) /\ exists bcf_quotient_b5nbmcilfp_central_table_row_step_previous_left. bcf_previous_code_b5nbmcilfp_central_table = bcf_quotient_b5nbmcilfp_central_table_row_step_previous_left * S ((S (bcf_predecessor_b5nbmcilfp_central_table_row_step)) * bcf_previous_scale_b5nbmcilfp_central_table) + (bcf_left_b5nbmcilfp_central_table_row_step))) /\ ((((exists bcf_height_b5nbmcilfp_central_table_row_step_previous_right. bcf_height_b5nbmcilfp_central_table_row_step_previous_right + S (bcf_right_b5nbmcilfp_central_table_row_step) = S ((S (S (bcf_predecessor_b5nbmcilfp_central_table_row_step))) * bcf_previous_scale_b5nbmcilfp_central_table)) /\ exists bcf_quotient_b5nbmcilfp_central_table_row_step_previous_right. bcf_previous_code_b5nbmcilfp_central_table = bcf_quotient_b5nbmcilfp_central_table_row_step_previous_right * S ((S (S (bcf_predecessor_b5nbmcilfp_central_table_row_step))) * bcf_previous_scale_b5nbmcilfp_central_table) + (bcf_right_b5nbmcilfp_central_table_row_step))) /\ bcf_value_b5nbmcilfp_central_table_row_step = bcf_left_b5nbmcilfp_central_table_row_step + bcf_right_b5nbmcilfp_central_table_row_step))))))))))) /\ ((((exists bcf_height_b5nbmcilfp_central_decoded_row_code. bcf_height_b5nbmcilfp_central_decoded_row_code + S (bcf_row_code_b5nbmcilfp_central) = S ((S (n + n)) * bcf_row_code_scale_b5nbmcilfp_central)) /\ exists bcf_quotient_b5nbmcilfp_central_decoded_row_code. bcf_row_code_code_b5nbmcilfp_central = bcf_quotient_b5nbmcilfp_central_decoded_row_code * S ((S (n + n)) * bcf_row_code_scale_b5nbmcilfp_central) + (bcf_row_code_b5nbmcilfp_central))) /\ ((((exists bcf_height_b5nbmcilfp_central_decoded_row_scale. bcf_height_b5nbmcilfp_central_decoded_row_scale + S (bcf_row_scale_b5nbmcilfp_central) = S ((S (n + n)) * bcf_row_scale_scale_b5nbmcilfp_central)) /\ exists bcf_quotient_b5nbmcilfp_central_decoded_row_scale. bcf_row_scale_code_b5nbmcilfp_central = bcf_quotient_b5nbmcilfp_central_decoded_row_scale * S ((S (n + n)) * bcf_row_scale_scale_b5nbmcilfp_central) + (bcf_row_scale_b5nbmcilfp_central))) /\ (((exists bcf_height_b5nbmcilfp_central_decoded_value. bcf_height_b5nbmcilfp_central_decoded_value + S (C) = S ((S (n)) * bcf_row_scale_b5nbmcilfp_central)) /\ exists bcf_quotient_b5nbmcilfp_central_decoded_value. bcf_row_code_b5nbmcilfp_central = bcf_quotient_b5nbmcilfp_central_decoded_value * S ((S (n)) * bcf_row_scale_b5nbmcilfp_central) + (C))))))))) -> s + g = q -> (exists bpr_code_b5nbmcilfp_contribution bpr_scale_b5nbmcilfp_contribution. ((forall bpr_index_b5nbmcilfp_contribution_prefix. (exists bpr_gap_b5nbmcilfp_contribution_prefix_bound. bpr_gap_b5nbmcilfp_contribution_prefix_bound + S (bpr_index_b5nbmcilfp_contribution_prefix) = g) -> exists bpr_value_b5nbmcilfp_contribution_prefix. ((((exists bpr_height_b5nbmcilfp_contribution_prefix_decoded. bpr_height_b5nbmcilfp_contribution_prefix_decoded + S (bpr_value_b5nbmcilfp_contribution_prefix) = S ((S (bpr_index_b5nbmcilfp_contribution_prefix)) * bpr_scale_b5nbmcilfp_contribution)) /\ exists bpr_quotient_b5nbmcilfp_contribution_prefix_decoded. bpr_code_b5nbmcilfp_contribution = bpr_quotient_b5nbmcilfp_contribution_prefix_decoded * S ((S (bpr_index_b5nbmcilfp_contribution_prefix)) * bpr_scale_b5nbmcilfp_contribution) + (bpr_value_b5nbmcilfp_contribution_prefix))) /\ (((((~(S (s + bpr_index_b5nbmcilfp_contribution_prefix) = 1) /\ forall bpr_left_b5nbmcilfp_contribution_prefix_choice_prime bpr_right_b5nbmcilfp_contribution_prefix_choice_prime. S (s + bpr_index_b5nbmcilfp_contribution_prefix) = bpr_left_b5nbmcilfp_contribution_prefix_choice_prime * bpr_right_b5nbmcilfp_contribution_prefix_choice_prime -> bpr_left_b5nbmcilfp_contribution_prefix_choice_prime = 1 \/ bpr_right_b5nbmcilfp_contribution_prefix_choice_prime = 1)) /\ exists bpr_choice_exponent_b5nbmcilfp_contribution_prefix_choice. ((((exists bpr_le_gap_b5nbmcilfp_contribution_prefix_choice_valuation_selected_bound. bpr_le_gap_b5nbmcilfp_contribution_prefix_choice_valuation_selected_bound + (bpr_choice_exponent_b5nbmcilfp_contribution_prefix_choice) = (C)) /\ (exists bpr_power_value_b5nbmcilfp_contribution_prefix_choice_valuation_selected. ((exists bpr_power_code_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power. ((forall bpr_power_index_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power. (exists bpr_gap_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_repeat_bound. bpr_gap_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_repeat_bound + S (bpr_power_index_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power) = bpr_choice_exponent_b5nbmcilfp_contribution_prefix_choice) -> (((exists bpr_height_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_repeat_entry. bpr_height_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_repeat_entry + S (S (s + bpr_index_b5nbmcilfp_contribution_prefix)) = S ((S (bpr_power_index_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power)) * bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power)) /\ exists bpr_quotient_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_repeat_entry. bpr_power_code_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power = bpr_quotient_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_repeat_entry * S ((S (bpr_power_index_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power)) * bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power) + (S (s + bpr_index_b5nbmcilfp_contribution_prefix))))) /\ (exists ff_u_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product. ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_start. ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_start. ff_u_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product = ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_start * S ((S (0)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product) + (1))) /\ ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_terminal. ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_terminal + S (bpr_power_value_b5nbmcilfp_contribution_prefix_choice_valuation_selected) = S ((S (bpr_choice_exponent_b5nbmcilfp_contribution_prefix_choice)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_terminal. ff_u_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product = ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_terminal * S ((S (bpr_choice_exponent_b5nbmcilfp_contribution_prefix_choice)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product) + (bpr_power_value_b5nbmcilfp_contribution_prefix_choice_valuation_selected))) /\ forall ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product. (exists ff_lt_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_bound. ff_lt_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_bound + S ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product = bpr_choice_exponent_b5nbmcilfp_contribution_prefix_choice) -> exists ff_p_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product ff_r_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product ff_s_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product. ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_factor. ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_factor + S (ff_p_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product) = S ((S (ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product)) * bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_factor. bpr_power_code_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power = ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_factor * S ((S (ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product)) * bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power) + (ff_p_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product))) /\ ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_partial. ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_partial + S (ff_r_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product) = S ((S (ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_partial. ff_u_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product = ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_partial * S ((S (ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product) + (ff_r_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product))) /\ ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_successor. ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_successor + S (ff_s_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product) = S ((S (S ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_successor. ff_u_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product = ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product_successor * S ((S (S ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product) + (ff_s_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product))) /\ ff_s_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product = ff_r_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product * ff_p_b5nbmcilfp_contribution_prefix_choice_valuation_selected_power_product)))))))) /\ (exists bpr_divides_quotient_b5nbmcilfp_contribution_prefix_choice_valuation_selected_divides. C = (bpr_power_value_b5nbmcilfp_contribution_prefix_choice_valuation_selected) * bpr_divides_quotient_b5nbmcilfp_contribution_prefix_choice_valuation_selected_divides)))) /\ forall bpr_valuation_candidate_b5nbmcilfp_contribution_prefix_choice_valuation. (exists bpr_le_gap_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_bound. bpr_le_gap_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_bound + (bpr_valuation_candidate_b5nbmcilfp_contribution_prefix_choice_valuation) = (C)) -> (exists bpr_power_value_b5nbmcilfp_contribution_prefix_choice_valuation_candidate. ((exists bpr_power_code_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power. ((forall bpr_power_index_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power. (exists bpr_gap_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_repeat_bound. bpr_gap_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_repeat_bound + S (bpr_power_index_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power) = bpr_valuation_candidate_b5nbmcilfp_contribution_prefix_choice_valuation) -> (((exists bpr_height_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_repeat_entry. bpr_height_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_repeat_entry + S (S (s + bpr_index_b5nbmcilfp_contribution_prefix)) = S ((S (bpr_power_index_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power)) * bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power)) /\ exists bpr_quotient_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_repeat_entry. bpr_power_code_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power = bpr_quotient_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_repeat_entry * S ((S (bpr_power_index_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power)) * bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power) + (S (s + bpr_index_b5nbmcilfp_contribution_prefix))))) /\ (exists ff_u_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product. ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_start. ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_start. ff_u_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product = ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_start * S ((S (0)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product) + (1))) /\ ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_terminal. ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_terminal + S (bpr_power_value_b5nbmcilfp_contribution_prefix_choice_valuation_candidate) = S ((S (bpr_valuation_candidate_b5nbmcilfp_contribution_prefix_choice_valuation)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_terminal. ff_u_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product = ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_terminal * S ((S (bpr_valuation_candidate_b5nbmcilfp_contribution_prefix_choice_valuation)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product) + (bpr_power_value_b5nbmcilfp_contribution_prefix_choice_valuation_candidate))) /\ forall ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product. (exists ff_lt_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_bound. ff_lt_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_bound + S ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product = bpr_valuation_candidate_b5nbmcilfp_contribution_prefix_choice_valuation) -> exists ff_p_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product ff_r_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product ff_s_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product. ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_factor. ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_factor + S (ff_p_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product) = S ((S (ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product)) * bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_factor. bpr_power_code_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power = ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_factor * S ((S (ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product)) * bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power) + (ff_p_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product))) /\ ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_partial. ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_partial + S (ff_r_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product) = S ((S (ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_partial. ff_u_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product = ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_partial * S ((S (ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product) + (ff_r_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product))) /\ ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_successor. ff_h_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_successor + S (ff_s_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product) = S ((S (S ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_successor. ff_u_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product = ff_q_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product_successor * S ((S (S ff_i_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product)) * ff_v_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product) + (ff_s_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product))) /\ ff_s_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product = ff_r_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product * ff_p_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_power_product)))))))) /\ (exists bpr_divides_quotient_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_divides. C = (bpr_power_value_b5nbmcilfp_contribution_prefix_choice_valuation_candidate) * bpr_divides_quotient_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_divides))) -> (exists bpr_le_gap_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_below. bpr_le_gap_b5nbmcilfp_contribution_prefix_choice_valuation_candidate_below + (bpr_valuation_candidate_b5nbmcilfp_contribution_prefix_choice_valuation) = (bpr_choice_exponent_b5nbmcilfp_contribution_prefix_choice))) /\ (exists bpr_power_code_b5nbmcilfp_contribution_prefix_choice_power bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_power. ((forall bpr_power_index_b5nbmcilfp_contribution_prefix_choice_power. (exists bpr_gap_b5nbmcilfp_contribution_prefix_choice_power_repeat_bound. bpr_gap_b5nbmcilfp_contribution_prefix_choice_power_repeat_bound + S (bpr_power_index_b5nbmcilfp_contribution_prefix_choice_power) = bpr_choice_exponent_b5nbmcilfp_contribution_prefix_choice) -> (((exists bpr_height_b5nbmcilfp_contribution_prefix_choice_power_repeat_entry. bpr_height_b5nbmcilfp_contribution_prefix_choice_power_repeat_entry + S (S (s + bpr_index_b5nbmcilfp_contribution_prefix)) = S ((S (bpr_power_index_b5nbmcilfp_contribution_prefix_choice_power)) * bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_power)) /\ exists bpr_quotient_b5nbmcilfp_contribution_prefix_choice_power_repeat_entry. bpr_power_code_b5nbmcilfp_contribution_prefix_choice_power = bpr_quotient_b5nbmcilfp_contribution_prefix_choice_power_repeat_entry * S ((S (bpr_power_index_b5nbmcilfp_contribution_prefix_choice_power)) * bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_power) + (S (s + bpr_index_b5nbmcilfp_contribution_prefix))))) /\ (exists ff_u_b5nbmcilfp_contribution_prefix_choice_power_product ff_v_b5nbmcilfp_contribution_prefix_choice_power_product. ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_power_product_start. ff_h_b5nbmcilfp_contribution_prefix_choice_power_product_start + S (1) = S ((S (0)) * ff_v_b5nbmcilfp_contribution_prefix_choice_power_product)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_power_product_start. ff_u_b5nbmcilfp_contribution_prefix_choice_power_product = ff_q_b5nbmcilfp_contribution_prefix_choice_power_product_start * S ((S (0)) * ff_v_b5nbmcilfp_contribution_prefix_choice_power_product) + (1))) /\ ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_power_product_terminal. ff_h_b5nbmcilfp_contribution_prefix_choice_power_product_terminal + S (bpr_value_b5nbmcilfp_contribution_prefix) = S ((S (bpr_choice_exponent_b5nbmcilfp_contribution_prefix_choice)) * ff_v_b5nbmcilfp_contribution_prefix_choice_power_product)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_power_product_terminal. ff_u_b5nbmcilfp_contribution_prefix_choice_power_product = ff_q_b5nbmcilfp_contribution_prefix_choice_power_product_terminal * S ((S (bpr_choice_exponent_b5nbmcilfp_contribution_prefix_choice)) * ff_v_b5nbmcilfp_contribution_prefix_choice_power_product) + (bpr_value_b5nbmcilfp_contribution_prefix))) /\ forall ff_i_b5nbmcilfp_contribution_prefix_choice_power_product. (exists ff_lt_b5nbmcilfp_contribution_prefix_choice_power_product_bound. ff_lt_b5nbmcilfp_contribution_prefix_choice_power_product_bound + S ff_i_b5nbmcilfp_contribution_prefix_choice_power_product = bpr_choice_exponent_b5nbmcilfp_contribution_prefix_choice) -> exists ff_p_b5nbmcilfp_contribution_prefix_choice_power_product ff_r_b5nbmcilfp_contribution_prefix_choice_power_product ff_s_b5nbmcilfp_contribution_prefix_choice_power_product. ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_power_product_factor. ff_h_b5nbmcilfp_contribution_prefix_choice_power_product_factor + S (ff_p_b5nbmcilfp_contribution_prefix_choice_power_product) = S ((S (ff_i_b5nbmcilfp_contribution_prefix_choice_power_product)) * bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_power)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_power_product_factor. bpr_power_code_b5nbmcilfp_contribution_prefix_choice_power = ff_q_b5nbmcilfp_contribution_prefix_choice_power_product_factor * S ((S (ff_i_b5nbmcilfp_contribution_prefix_choice_power_product)) * bpr_power_scale_b5nbmcilfp_contribution_prefix_choice_power) + (ff_p_b5nbmcilfp_contribution_prefix_choice_power_product))) /\ ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_power_product_partial. ff_h_b5nbmcilfp_contribution_prefix_choice_power_product_partial + S (ff_r_b5nbmcilfp_contribution_prefix_choice_power_product) = S ((S (ff_i_b5nbmcilfp_contribution_prefix_choice_power_product)) * ff_v_b5nbmcilfp_contribution_prefix_choice_power_product)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_power_product_partial. ff_u_b5nbmcilfp_contribution_prefix_choice_power_product = ff_q_b5nbmcilfp_contribution_prefix_choice_power_product_partial * S ((S (ff_i_b5nbmcilfp_contribution_prefix_choice_power_product)) * ff_v_b5nbmcilfp_contribution_prefix_choice_power_product) + (ff_r_b5nbmcilfp_contribution_prefix_choice_power_product))) /\ ((((exists ff_h_b5nbmcilfp_contribution_prefix_choice_power_product_successor. ff_h_b5nbmcilfp_contribution_prefix_choice_power_product_successor + S (ff_s_b5nbmcilfp_contribution_prefix_choice_power_product) = S ((S (S ff_i_b5nbmcilfp_contribution_prefix_choice_power_product)) * ff_v_b5nbmcilfp_contribution_prefix_choice_power_product)) /\ exists ff_q_b5nbmcilfp_contribution_prefix_choice_power_product_successor. ff_u_b5nbmcilfp_contribution_prefix_choice_power_product = ff_q_b5nbmcilfp_contribution_prefix_choice_power_product_successor * S ((S (S ff_i_b5nbmcilfp_contribution_prefix_choice_power_product)) * ff_v_b5nbmcilfp_contribution_prefix_choice_power_product) + (ff_s_b5nbmcilfp_contribution_prefix_choice_power_product))) /\ ff_s_b5nbmcilfp_contribution_prefix_choice_power_product = ff_r_b5nbmcilfp_contribution_prefix_choice_power_product * ff_p_b5nbmcilfp_contribution_prefix_choice_power_product)))))))))) \/ (~((~(S (s + bpr_index_b5nbmcilfp_contribution_prefix) = 1) /\ forall bpr_left_b5nbmcilfp_contribution_prefix_choice_prime bpr_right_b5nbmcilfp_contribution_prefix_choice_prime. S (s + bpr_index_b5nbmcilfp_contribution_prefix) = bpr_left_b5nbmcilfp_contribution_prefix_choice_prime * bpr_right_b5nbmcilfp_contribution_prefix_choice_prime -> bpr_left_b5nbmcilfp_contribution_prefix_choice_prime = 1 \/ bpr_right_b5nbmcilfp_contribution_prefix_choice_prime = 1)) /\ bpr_value_b5nbmcilfp_contribution_prefix = 1))))) /\ (exists ff_u_b5nbmcilfp_contribution_product ff_v_b5nbmcilfp_contribution_product. ((((exists ff_h_b5nbmcilfp_contribution_product_start. ff_h_b5nbmcilfp_contribution_product_start + S (1) = S ((S (0)) * ff_v_b5nbmcilfp_contribution_product)) /\ exists ff_q_b5nbmcilfp_contribution_product_start. ff_u_b5nbmcilfp_contribution_product = ff_q_b5nbmcilfp_contribution_product_start * S ((S (0)) * ff_v_b5nbmcilfp_contribution_product) + (1))) /\ ((((exists ff_h_b5nbmcilfp_contribution_product_terminal. ff_h_b5nbmcilfp_contribution_product_terminal + S (y) = S ((S (g)) * ff_v_b5nbmcilfp_contribution_product)) /\ exists ff_q_b5nbmcilfp_contribution_product_terminal. ff_u_b5nbmcilfp_contribution_product = ff_q_b5nbmcilfp_contribution_product_terminal * S ((S (g)) * ff_v_b5nbmcilfp_contribution_product) + (y))) /\ forall ff_i_b5nbmcilfp_contribution_product. (exists ff_lt_b5nbmcilfp_contribution_product_bound. ff_lt_b5nbmcilfp_contribution_product_bound + S ff_i_b5nbmcilfp_contribution_product = g) -> exists ff_p_b5nbmcilfp_contribution_product ff_r_b5nbmcilfp_contribution_product ff_s_b5nbmcilfp_contribution_product. ((((exists ff_h_b5nbmcilfp_contribution_product_factor. ff_h_b5nbmcilfp_contribution_product_factor + S (ff_p_b5nbmcilfp_contribution_product) = S ((S (ff_i_b5nbmcilfp_contribution_product)) * bpr_scale_b5nbmcilfp_contribution)) /\ exists ff_q_b5nbmcilfp_contribution_product_factor. bpr_code_b5nbmcilfp_contribution = ff_q_b5nbmcilfp_contribution_product_factor * S ((S (ff_i_b5nbmcilfp_contribution_product)) * bpr_scale_b5nbmcilfp_contribution) + (ff_p_b5nbmcilfp_contribution_product))) /\ ((((exists ff_h_b5nbmcilfp_contribution_product_partial. ff_h_b5nbmcilfp_contribution_product_partial + S (ff_r_b5nbmcilfp_contribution_product) = S ((S (ff_i_b5nbmcilfp_contribution_product)) * ff_v_b5nbmcilfp_contribution_product)) /\ exists ff_q_b5nbmcilfp_contribution_product_partial. ff_u_b5nbmcilfp_contribution_product = ff_q_b5nbmcilfp_contribution_product_partial * S ((S (ff_i_b5nbmcilfp_contribution_product)) * ff_v_b5nbmcilfp_contribution_product) + (ff_r_b5nbmcilfp_contribution_product))) /\ ((((exists ff_h_b5nbmcilfp_contribution_product_successor. ff_h_b5nbmcilfp_contribution_product_successor + S (ff_s_b5nbmcilfp_contribution_product) = S ((S (S ff_i_b5nbmcilfp_contribution_product)) * ff_v_b5nbmcilfp_contribution_product)) /\ exists ff_q_b5nbmcilfp_contribution_product_successor. ff_u_b5nbmcilfp_contribution_product = ff_q_b5nbmcilfp_contribution_product_successor * S ((S (S ff_i_b5nbmcilfp_contribution_product)) * ff_v_b5nbmcilfp_contribution_product) + (ff_s_b5nbmcilfp_contribution_product))) /\ ff_s_b5nbmcilfp_contribution_product = ff_r_b5nbmcilfp_contribution_product * ff_p_b5nbmcilfp_contribution_product)))))))) -> (exists bpvi_b_b5nbmcilfp_power bpvi_c_b5nbmcilfp_power. ((forall bpvi_i_b5nbmcilfp_power. (exists bpvi_repeat_gap_b5nbmcilfp_power. bpvi_repeat_gap_b5nbmcilfp_power + S bpvi_i_b5nbmcilfp_power = q) -> (((exists bpvi_h_b5nbmcilfp_power_repeat. bpvi_h_b5nbmcilfp_power_repeat + S (4) = S ((S (bpvi_i_b5nbmcilfp_power)) * bpvi_c_b5nbmcilfp_power)) /\ exists bpvi_q_b5nbmcilfp_power_repeat. bpvi_b_b5nbmcilfp_power = bpvi_q_b5nbmcilfp_power_repeat * S ((S (bpvi_i_b5nbmcilfp_power)) * bpvi_c_b5nbmcilfp_power) + (4)))) /\ (exists bpvi_u_b5nbmcilfp_power bpvi_v_b5nbmcilfp_power. ((((exists bpvi_h_b5nbmcilfp_power_start. bpvi_h_b5nbmcilfp_power_start + S (1) = S ((S (0)) * bpvi_v_b5nbmcilfp_power)) /\ exists bpvi_q_b5nbmcilfp_power_start. bpvi_u_b5nbmcilfp_power = bpvi_q_b5nbmcilfp_power_start * S ((S (0)) * bpvi_v_b5nbmcilfp_power) + (1))) /\ ((((exists bpvi_h_b5nbmcilfp_power_terminal. bpvi_h_b5nbmcilfp_power_terminal + S (B) = S ((S (q)) * bpvi_v_b5nbmcilfp_power)) /\ exists bpvi_q_b5nbmcilfp_power_terminal. bpvi_u_b5nbmcilfp_power = bpvi_q_b5nbmcilfp_power_terminal * S ((S (q)) * bpvi_v_b5nbmcilfp_power) + (B))) /\ forall bpvi_j_b5nbmcilfp_power. (exists bpvi_product_gap_b5nbmcilfp_power. bpvi_product_gap_b5nbmcilfp_power + S bpvi_j_b5nbmcilfp_power = q) -> exists bpvi_factor_b5nbmcilfp_power bpvi_partial_b5nbmcilfp_power bpvi_successor_b5nbmcilfp_power. ((((exists bpvi_h_b5nbmcilfp_power_factor. bpvi_h_b5nbmcilfp_power_factor + S (bpvi_factor_b5nbmcilfp_power) = S ((S (bpvi_j_b5nbmcilfp_power)) * bpvi_c_b5nbmcilfp_power)) /\ exists bpvi_q_b5nbmcilfp_power_factor. bpvi_b_b5nbmcilfp_power = bpvi_q_b5nbmcilfp_power_factor * S ((S (bpvi_j_b5nbmcilfp_power)) * bpvi_c_b5nbmcilfp_power) + (bpvi_factor_b5nbmcilfp_power))) /\ ((((exists bpvi_h_b5nbmcilfp_power_partial. bpvi_h_b5nbmcilfp_power_partial + S (bpvi_partial_b5nbmcilfp_power) = S ((S (bpvi_j_b5nbmcilfp_power)) * bpvi_v_b5nbmcilfp_power)) /\ exists bpvi_q_b5nbmcilfp_power_partial. bpvi_u_b5nbmcilfp_power = bpvi_q_b5nbmcilfp_power_partial * S ((S (bpvi_j_b5nbmcilfp_power)) * bpvi_v_b5nbmcilfp_power) + (bpvi_partial_b5nbmcilfp_power))) /\ ((((exists bpvi_h_b5nbmcilfp_power_successor. bpvi_h_b5nbmcilfp_power_successor + S (bpvi_successor_b5nbmcilfp_power) = S ((S (S bpvi_j_b5nbmcilfp_power)) * bpvi_v_b5nbmcilfp_power)) /\ exists bpvi_q_b5nbmcilfp_power_successor. bpvi_u_b5nbmcilfp_power = bpvi_q_b5nbmcilfp_power_successor * S ((S (S bpvi_j_b5nbmcilfp_power)) * bpvi_v_b5nbmcilfp_power) + (bpvi_successor_b5nbmcilfp_power))) /\ bpvi_successor_b5nbmcilfp_power = bpvi_partial_b5nbmcilfp_power * bpvi_factor_b5nbmcilfp_power)))))))) -> (exists bcf_le_gap_b5nbmcilfp_result. bcf_le_gap_b5nbmcilfp_result + (y) = B)

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

96 script commands · 20 reading checkpoints · 11 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 (8)
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 g
  7. L7
    intro y
  8. L8
    intro B
  9. L9
    intro hexclusion
  10. L10
    intro hpositive
02Fix variables and assumptionsL11–16

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

  1. L11
    intro hfloor
  2. L12
    intro hdivision
  3. L13
    intro hcentral
  4. L14
    intro hgap
  5. L15
    intro hcontribution
  6. L16
    intro hpower
03Establish hprimorialL17–19

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

  1. L17
    have hprimorial : ∃ P. Primorial(q,P)Definitions: Primorial(q,P)Original native command in the exact edition
  2. L18
    specialize primorial_exists q
  3. L19
    exact primorial_exists
04Separate the logical casesL20–20

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

  1. L20
    cases hprimorial
05Establish hreverseL21–23

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

  1. L21
    have hreverse : q = s + g
  2. L22
    symm
  3. L23
    exact hgap
06Establish halignedL24–30

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply primorial index eq transport.

  1. L24
    have haligned : Primorial(s + g,x)Definitions: Primorial(s + g,x)Original native command in the exact edition
  2. L25
    specialize primorial_index_eq_transport q
  3. L26
    specialize primorial_index_eq_transport (s + g)
  4. L27
    specialize primorial_index_eq_transport x
  5. L28
    apply primorial_index_eq_transport
  6. L29
    exact hreverse
  7. L30
    exact hprimorial_witness
07Establish hsplitL31–36

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply primorial prefix interval split.

  1. L31
    have hsplit : ∃ u. ∃ v. Primorial(s,u) ∧ ((∃ y. ∃ z. (∀ n. Lt(n,g) → ∃ m. BetaAt(y,z,n,m) ∧ (Prime(S (s + n)) ∧ m = S (s + n) ∨ ¬Prime(S (s + n)) ∧ m = 1)) ∧ Product(y,z,g,v)) ∧ x = u · v)Definitions: Primorial(s,u)Lt(n,g)BetaAt(y,z,n,m)Prime(S (s + n))Product(y,z,g,v)Original native command in the exact edition
  2. L32
    specialize primorial_prefix_interval_split s
  3. L33
    specialize primorial_prefix_interval_split g
  4. L34
    specialize primorial_prefix_interval_split x
  5. L35
    apply primorial_prefix_interval_split
  6. L36
    exact haligned
08Separate the logical casesL37–40

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

  1. L37
    cases hsplit
  2. L38
    cases hsplit_witness
  3. L39
    cases hsplit_witness_witness
  4. L40
    cases hsplit_witness_witness_right
09Establish hmiddleL41–50

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply no bertrand middle contribution interval le primorial interval.

  1. L41
    have hmiddle : Le(y,x2)Definitions: Le(y,x2)Original native command in the exact edition
  2. L42
    specialize no_bertrand_middle_contribution_interval_le_primorial_interval n
  3. L43
    specialize no_bertrand_middle_contribution_interval_le_primorial_interval s
  4. L44
    specialize no_bertrand_middle_contribution_interval_le_primorial_interval q
  5. L45
    specialize no_bertrand_middle_contribution_interval_le_primorial_interval r
  6. L46
    specialize no_bertrand_middle_contribution_interval_le_primorial_interval C
  7. L47
    specialize no_bertrand_middle_contribution_interval_le_primorial_interval g
  8. L48
    specialize no_bertrand_middle_contribution_interval_le_primorial_interval y
  9. L49
    specialize no_bertrand_middle_contribution_interval_le_primorial_interval x2
  10. L50
    apply no_bertrand_middle_contribution_interval_le_primorial_interval
10Use earlier factsL51–58

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

  1. L51
    exact hexclusion
  2. L52
    exact hpositive
  3. L53
    exact hfloor
  4. L54
    exact hdivision
  5. L55
    exact hcentral
  6. L56
    exact hgap
  7. L57
    exact hcontribution
  8. L58
    exact hsplit_witness_witness_right_left
11Establish hprefix_positiveL59–63

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply primorial positive.

  1. L59
    have hprefix_positive : exists t. x1 = S t
  2. L60
    specialize primorial_positive s
  3. L61
    specialize primorial_positive x1
  4. L62
    apply primorial_positive
  5. L63
    exact hsplit_witness_witness_left
12Separate the logical casesL64–64

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

  1. L64
    cases hprefix_positive
13Establish hone_prefixL65–65

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

  1. L65
    have hone_prefix : Lt(0,x1)Definitions: Lt(0,x1)Original native command in the exact edition
14Construct an explicit witnessL66–66

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

  1. L66
    exists x3
15Calculate and transport equalitiesL67–68

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

  1. L67
    rewrite hprefix_positive_witness
  2. L68
    simp
16Establish hinterval_productL69–73

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply le mul of one le left.

  1. L69
    have hinterval_product : Le(x2,x1 · x2)Definitions: Le(x2,x1 · x2)Original native command in the exact edition
  2. L70
    specialize le_mul_of_one_le_left x1
  3. L71
    specialize le_mul_of_one_le_left x2
  4. L72
    apply le_mul_of_one_le_left
  5. L73
    exact hone_prefix
17Establish hraw_y_productL74–80

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply le trans.

  1. L74
    have hraw_y_product : Le(y,x1 · x2)Definitions: Le(y,x1 · x2)Original native command in the exact edition
  2. L75
    specialize le_trans y
  3. L76
    specialize le_trans x2
  4. L77
    specialize le_trans (x1 * x2)
  5. L78
    apply le_trans
  6. L79
    exact hmiddle
  7. L80
    exact hinterval_product
18Establish hy_primorialL81–83

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

  1. L81
    have hy_primorial : Le(y,x)Definitions: Le(y,x)Original native command in the exact edition
  2. L82
    rewrite <- hsplit_witness_witness_right_right at hraw_y_product
  3. L83
    exact hraw_y_product
19Establish hprimorial_powerL84–93

Establish this local claim before using it. It is not an additional assumption. The following proof commands apply primorial le four pow.

  1. L84
    have hprimorial_power : Le(x,B)Definitions: Le(x,B)Original native command in the exact edition
  2. L85
    specialize primorial_le_four_pow q
  3. L86
    specialize primorial_le_four_pow x
  4. L87
    specialize primorial_le_four_pow B
  5. L88
    apply primorial_le_four_pow
  6. L89
    exact hprimorial_witness
  7. L90
    exact hpower
  8. L91
    specialize le_trans y
  9. L92
    specialize le_trans x
  10. L93
    specialize le_trans B
20Use earlier factsL94–96

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

  1. L94
    apply le_trans
  2. L95
    exact hy_primorial
  3. L96
    exact hprimorial_power

Library-wide reading audit

Original defined command ledger · 96 lines
  1. 0001intro n
  2. 0002intro s
  3. 0003intro q
  4. 0004intro r
  5. 0005intro C
  6. 0006intro g
  7. 0007intro y
  8. 0008intro B
  9. 0009intro hexclusion
  10. 0010intro hpositive
  11. 0011intro hfloor
  12. 0012intro hdivision
  13. 0013intro hcentral
  14. 0014intro hgap
  15. 0015intro hcontribution
  16. 0016intro hpower
  17. 0017have hprimorial : ∃ P. Primorial(q,P)
    Exact native replay linehave hprimorial : exists P. (exists bpr_code_b5nbmcilfp_primorial_q bpr_scale_b5nbmcilfp_primorial_q. ((forall bpr_index_b5nbmcilfp_primorial_q_mask. (exists bpr_gap_b5nbmcilfp_primorial_q_mask_bound. bpr_gap_b5nbmcilfp_primorial_q_mask_bound + S (bpr_index_b5nbmcilfp_primorial_q_mask) = q) -> exists bpr_value_b5nbmcilfp_primorial_q_mask. ((((exists bpr_height_b5nbmcilfp_primorial_q_mask_decoded. bpr_height_b5nbmcilfp_primorial_q_mask_decoded + S (bpr_value_b5nbmcilfp_primorial_q_mask) = S ((S (bpr_index_b5nbmcilfp_primorial_q_mask)) * bpr_scale_b5nbmcilfp_primorial_q)) /\ exists bpr_quotient_b5nbmcilfp_primorial_q_mask_decoded. bpr_code_b5nbmcilfp_primorial_q = bpr_quotient_b5nbmcilfp_primorial_q_mask_decoded * S ((S (bpr_index_b5nbmcilfp_primorial_q_mask)) * bpr_scale_b5nbmcilfp_primorial_q) + (bpr_value_b5nbmcilfp_primorial_q_mask))) /\ (((((~(S (bpr_index_b5nbmcilfp_primorial_q_mask) = 1) /\ forall bpr_left_b5nbmcilfp_primorial_q_mask_choice_prime bpr_right_b5nbmcilfp_primorial_q_mask_choice_prime. S (bpr_index_b5nbmcilfp_primorial_q_mask) = bpr_left_b5nbmcilfp_primorial_q_mask_choice_prime * bpr_right_b5nbmcilfp_primorial_q_mask_choice_prime -> bpr_left_b5nbmcilfp_primorial_q_mask_choice_prime = 1 \/ bpr_right_b5nbmcilfp_primorial_q_mask_choice_prime = 1)) /\ bpr_value_b5nbmcilfp_primorial_q_mask = S (bpr_index_b5nbmcilfp_primorial_q_mask)) \/ (~((~(S (bpr_index_b5nbmcilfp_primorial_q_mask) = 1) /\ forall bpr_left_b5nbmcilfp_primorial_q_mask_choice_prime bpr_right_b5nbmcilfp_primorial_q_mask_choice_prime. S (bpr_index_b5nbmcilfp_primorial_q_mask) = bpr_left_b5nbmcilfp_primorial_q_mask_choice_prime * bpr_right_b5nbmcilfp_primorial_q_mask_choice_prime -> bpr_left_b5nbmcilfp_primorial_q_mask_choice_prime = 1 \/ bpr_right_b5nbmcilfp_primorial_q_mask_choice_prime = 1)) /\ bpr_value_b5nbmcilfp_primorial_q_mask = 1))))) /\ (exists ff_u_b5nbmcilfp_primorial_q_product ff_v_b5nbmcilfp_primorial_q_product. ((((exists ff_h_b5nbmcilfp_primorial_q_product_start. ff_h_b5nbmcilfp_primorial_q_product_start + S (1) = S ((S (0)) * ff_v_b5nbmcilfp_primorial_q_product)) /\ exists ff_q_b5nbmcilfp_primorial_q_product_start. ff_u_b5nbmcilfp_primorial_q_product = ff_q_b5nbmcilfp_primorial_q_product_start * S ((S (0)) * ff_v_b5nbmcilfp_primorial_q_product) + (1))) /\ ((((exists ff_h_b5nbmcilfp_primorial_q_product_terminal. ff_h_b5nbmcilfp_primorial_q_product_terminal + S (P) = S ((S (q)) * ff_v_b5nbmcilfp_primorial_q_product)) /\ exists ff_q_b5nbmcilfp_primorial_q_product_terminal. ff_u_b5nbmcilfp_primorial_q_product = ff_q_b5nbmcilfp_primorial_q_product_terminal * S ((S (q)) * ff_v_b5nbmcilfp_primorial_q_product) + (P))) /\ forall ff_i_b5nbmcilfp_primorial_q_product. (exists ff_lt_b5nbmcilfp_primorial_q_product_bound. ff_lt_b5nbmcilfp_primorial_q_product_bound + S ff_i_b5nbmcilfp_primorial_q_product = q) -> exists ff_p_b5nbmcilfp_primorial_q_product ff_r_b5nbmcilfp_primorial_q_product ff_s_b5nbmcilfp_primorial_q_product. ((((exists ff_h_b5nbmcilfp_primorial_q_product_factor. ff_h_b5nbmcilfp_primorial_q_product_factor + S (ff_p_b5nbmcilfp_primorial_q_product) = S ((S (ff_i_b5nbmcilfp_primorial_q_product)) * bpr_scale_b5nbmcilfp_primorial_q)) /\ exists ff_q_b5nbmcilfp_primorial_q_product_factor. bpr_code_b5nbmcilfp_primorial_q = ff_q_b5nbmcilfp_primorial_q_product_factor * S ((S (ff_i_b5nbmcilfp_primorial_q_product)) * bpr_scale_b5nbmcilfp_primorial_q) + (ff_p_b5nbmcilfp_primorial_q_product))) /\ ((((exists ff_h_b5nbmcilfp_primorial_q_product_partial. ff_h_b5nbmcilfp_primorial_q_product_partial + S (ff_r_b5nbmcilfp_primorial_q_product) = S ((S (ff_i_b5nbmcilfp_primorial_q_product)) * ff_v_b5nbmcilfp_primorial_q_product)) /\ exists ff_q_b5nbmcilfp_primorial_q_product_partial. ff_u_b5nbmcilfp_primorial_q_product = ff_q_b5nbmcilfp_primorial_q_product_partial * S ((S (ff_i_b5nbmcilfp_primorial_q_product)) * ff_v_b5nbmcilfp_primorial_q_product) + (ff_r_b5nbmcilfp_primorial_q_product))) /\ ((((exists ff_h_b5nbmcilfp_primorial_q_product_successor. ff_h_b5nbmcilfp_primorial_q_product_successor + S (ff_s_b5nbmcilfp_primorial_q_product) = S ((S (S ff_i_b5nbmcilfp_primorial_q_product)) * ff_v_b5nbmcilfp_primorial_q_product)) /\ exists ff_q_b5nbmcilfp_primorial_q_product_successor. ff_u_b5nbmcilfp_primorial_q_product = ff_q_b5nbmcilfp_primorial_q_product_successor * S ((S (S ff_i_b5nbmcilfp_primorial_q_product)) * ff_v_b5nbmcilfp_primorial_q_product) + (ff_s_b5nbmcilfp_primorial_q_product))) /\ ff_s_b5nbmcilfp_primorial_q_product = ff_r_b5nbmcilfp_primorial_q_product * ff_p_b5nbmcilfp_primorial_q_product))))))))
  18. 0018specialize primorial_exists q
  19. 0019exact primorial_exists
  20. 0020cases hprimorial
  21. 0021have hreverse : q = s + g
  22. 0022symm
  23. 0023exact hgap
  24. 0024have haligned : Primorial(s + g,x)
    Exact native replay linehave haligned : exists bpr_code_b5nbmcilfp_primorial_sum bpr_scale_b5nbmcilfp_primorial_sum. ((forall bpr_index_b5nbmcilfp_primorial_sum_mask. (exists bpr_gap_b5nbmcilfp_primorial_sum_mask_bound. bpr_gap_b5nbmcilfp_primorial_sum_mask_bound + S (bpr_index_b5nbmcilfp_primorial_sum_mask) = s + g) -> exists bpr_value_b5nbmcilfp_primorial_sum_mask. ((((exists bpr_height_b5nbmcilfp_primorial_sum_mask_decoded. bpr_height_b5nbmcilfp_primorial_sum_mask_decoded + S (bpr_value_b5nbmcilfp_primorial_sum_mask) = S ((S (bpr_index_b5nbmcilfp_primorial_sum_mask)) * bpr_scale_b5nbmcilfp_primorial_sum)) /\ exists bpr_quotient_b5nbmcilfp_primorial_sum_mask_decoded. bpr_code_b5nbmcilfp_primorial_sum = bpr_quotient_b5nbmcilfp_primorial_sum_mask_decoded * S ((S (bpr_index_b5nbmcilfp_primorial_sum_mask)) * bpr_scale_b5nbmcilfp_primorial_sum) + (bpr_value_b5nbmcilfp_primorial_sum_mask))) /\ (((((~(S (bpr_index_b5nbmcilfp_primorial_sum_mask) = 1) /\ forall bpr_left_b5nbmcilfp_primorial_sum_mask_choice_prime bpr_right_b5nbmcilfp_primorial_sum_mask_choice_prime. S (bpr_index_b5nbmcilfp_primorial_sum_mask) = bpr_left_b5nbmcilfp_primorial_sum_mask_choice_prime * bpr_right_b5nbmcilfp_primorial_sum_mask_choice_prime -> bpr_left_b5nbmcilfp_primorial_sum_mask_choice_prime = 1 \/ bpr_right_b5nbmcilfp_primorial_sum_mask_choice_prime = 1)) /\ bpr_value_b5nbmcilfp_primorial_sum_mask = S (bpr_index_b5nbmcilfp_primorial_sum_mask)) \/ (~((~(S (bpr_index_b5nbmcilfp_primorial_sum_mask) = 1) /\ forall bpr_left_b5nbmcilfp_primorial_sum_mask_choice_prime bpr_right_b5nbmcilfp_primorial_sum_mask_choice_prime. S (bpr_index_b5nbmcilfp_primorial_sum_mask) = bpr_left_b5nbmcilfp_primorial_sum_mask_choice_prime * bpr_right_b5nbmcilfp_primorial_sum_mask_choice_prime -> bpr_left_b5nbmcilfp_primorial_sum_mask_choice_prime = 1 \/ bpr_right_b5nbmcilfp_primorial_sum_mask_choice_prime = 1)) /\ bpr_value_b5nbmcilfp_primorial_sum_mask = 1))))) /\ (exists ff_u_b5nbmcilfp_primorial_sum_product ff_v_b5nbmcilfp_primorial_sum_product. ((((exists ff_h_b5nbmcilfp_primorial_sum_product_start. ff_h_b5nbmcilfp_primorial_sum_product_start + S (1) = S ((S (0)) * ff_v_b5nbmcilfp_primorial_sum_product)) /\ exists ff_q_b5nbmcilfp_primorial_sum_product_start. ff_u_b5nbmcilfp_primorial_sum_product = ff_q_b5nbmcilfp_primorial_sum_product_start * S ((S (0)) * ff_v_b5nbmcilfp_primorial_sum_product) + (1))) /\ ((((exists ff_h_b5nbmcilfp_primorial_sum_product_terminal. ff_h_b5nbmcilfp_primorial_sum_product_terminal + S (x) = S ((S (s + g)) * ff_v_b5nbmcilfp_primorial_sum_product)) /\ exists ff_q_b5nbmcilfp_primorial_sum_product_terminal. ff_u_b5nbmcilfp_primorial_sum_product = ff_q_b5nbmcilfp_primorial_sum_product_terminal * S ((S (s + g)) * ff_v_b5nbmcilfp_primorial_sum_product) + (x))) /\ forall ff_i_b5nbmcilfp_primorial_sum_product. (exists ff_lt_b5nbmcilfp_primorial_sum_product_bound. ff_lt_b5nbmcilfp_primorial_sum_product_bound + S ff_i_b5nbmcilfp_primorial_sum_product = s + g) -> exists ff_p_b5nbmcilfp_primorial_sum_product ff_r_b5nbmcilfp_primorial_sum_product ff_s_b5nbmcilfp_primorial_sum_product. ((((exists ff_h_b5nbmcilfp_primorial_sum_product_factor. ff_h_b5nbmcilfp_primorial_sum_product_factor + S (ff_p_b5nbmcilfp_primorial_sum_product) = S ((S (ff_i_b5nbmcilfp_primorial_sum_product)) * bpr_scale_b5nbmcilfp_primorial_sum)) /\ exists ff_q_b5nbmcilfp_primorial_sum_product_factor. bpr_code_b5nbmcilfp_primorial_sum = ff_q_b5nbmcilfp_primorial_sum_product_factor * S ((S (ff_i_b5nbmcilfp_primorial_sum_product)) * bpr_scale_b5nbmcilfp_primorial_sum) + (ff_p_b5nbmcilfp_primorial_sum_product))) /\ ((((exists ff_h_b5nbmcilfp_primorial_sum_product_partial. ff_h_b5nbmcilfp_primorial_sum_product_partial + S (ff_r_b5nbmcilfp_primorial_sum_product) = S ((S (ff_i_b5nbmcilfp_primorial_sum_product)) * ff_v_b5nbmcilfp_primorial_sum_product)) /\ exists ff_q_b5nbmcilfp_primorial_sum_product_partial. ff_u_b5nbmcilfp_primorial_sum_product = ff_q_b5nbmcilfp_primorial_sum_product_partial * S ((S (ff_i_b5nbmcilfp_primorial_sum_product)) * ff_v_b5nbmcilfp_primorial_sum_product) + (ff_r_b5nbmcilfp_primorial_sum_product))) /\ ((((exists ff_h_b5nbmcilfp_primorial_sum_product_successor. ff_h_b5nbmcilfp_primorial_sum_product_successor + S (ff_s_b5nbmcilfp_primorial_sum_product) = S ((S (S ff_i_b5nbmcilfp_primorial_sum_product)) * ff_v_b5nbmcilfp_primorial_sum_product)) /\ exists ff_q_b5nbmcilfp_primorial_sum_product_successor. ff_u_b5nbmcilfp_primorial_sum_product = ff_q_b5nbmcilfp_primorial_sum_product_successor * S ((S (S ff_i_b5nbmcilfp_primorial_sum_product)) * ff_v_b5nbmcilfp_primorial_sum_product) + (ff_s_b5nbmcilfp_primorial_sum_product))) /\ ff_s_b5nbmcilfp_primorial_sum_product = ff_r_b5nbmcilfp_primorial_sum_product * ff_p_b5nbmcilfp_primorial_sum_product)))))))
  25. 0025specialize primorial_index_eq_transport q
  26. 0026specialize primorial_index_eq_transport (s + g)
  27. 0027specialize primorial_index_eq_transport x
  28. 0028apply primorial_index_eq_transport
  29. 0029exact hreverse
  30. 0030exact hprimorial_witness
  31. 0031have hsplit : ∃ u. ∃ v. Primorial(s,u) ∧ ((∃ y. ∃ z. (∀ n. Lt(n,g) → ∃ m. BetaAt(y,z,n,m) ∧ (Prime(S (s + n)) ∧ m = S (s + n) ∨ ¬Prime(S (s + n)) ∧ m = 1)) ∧ Product(y,z,g,v)) ∧ x = u · v)
    Exact native replay linehave hsplit : exists u v. (exists bpr_code_b5nbmcilfp_prefix bpr_scale_b5nbmcilfp_prefix. ((forall bpr_index_b5nbmcilfp_prefix_mask. (exists bpr_gap_b5nbmcilfp_prefix_mask_bound. bpr_gap_b5nbmcilfp_prefix_mask_bound + S (bpr_index_b5nbmcilfp_prefix_mask) = s) -> exists bpr_value_b5nbmcilfp_prefix_mask. ((((exists bpr_height_b5nbmcilfp_prefix_mask_decoded. bpr_height_b5nbmcilfp_prefix_mask_decoded + S (bpr_value_b5nbmcilfp_prefix_mask) = S ((S (bpr_index_b5nbmcilfp_prefix_mask)) * bpr_scale_b5nbmcilfp_prefix)) /\ exists bpr_quotient_b5nbmcilfp_prefix_mask_decoded. bpr_code_b5nbmcilfp_prefix = bpr_quotient_b5nbmcilfp_prefix_mask_decoded * S ((S (bpr_index_b5nbmcilfp_prefix_mask)) * bpr_scale_b5nbmcilfp_prefix) + (bpr_value_b5nbmcilfp_prefix_mask))) /\ (((((~(S (bpr_index_b5nbmcilfp_prefix_mask) = 1) /\ forall bpr_left_b5nbmcilfp_prefix_mask_choice_prime bpr_right_b5nbmcilfp_prefix_mask_choice_prime. S (bpr_index_b5nbmcilfp_prefix_mask) = bpr_left_b5nbmcilfp_prefix_mask_choice_prime * bpr_right_b5nbmcilfp_prefix_mask_choice_prime -> bpr_left_b5nbmcilfp_prefix_mask_choice_prime = 1 \/ bpr_right_b5nbmcilfp_prefix_mask_choice_prime = 1)) /\ bpr_value_b5nbmcilfp_prefix_mask = S (bpr_index_b5nbmcilfp_prefix_mask)) \/ (~((~(S (bpr_index_b5nbmcilfp_prefix_mask) = 1) /\ forall bpr_left_b5nbmcilfp_prefix_mask_choice_prime bpr_right_b5nbmcilfp_prefix_mask_choice_prime. S (bpr_index_b5nbmcilfp_prefix_mask) = bpr_left_b5nbmcilfp_prefix_mask_choice_prime * bpr_right_b5nbmcilfp_prefix_mask_choice_prime -> bpr_left_b5nbmcilfp_prefix_mask_choice_prime = 1 \/ bpr_right_b5nbmcilfp_prefix_mask_choice_prime = 1)) /\ bpr_value_b5nbmcilfp_prefix_mask = 1))))) /\ (exists ff_u_b5nbmcilfp_prefix_product ff_v_b5nbmcilfp_prefix_product. ((((exists ff_h_b5nbmcilfp_prefix_product_start. ff_h_b5nbmcilfp_prefix_product_start + S (1) = S ((S (0)) * ff_v_b5nbmcilfp_prefix_product)) /\ exists ff_q_b5nbmcilfp_prefix_product_start. ff_u_b5nbmcilfp_prefix_product = ff_q_b5nbmcilfp_prefix_product_start * S ((S (0)) * ff_v_b5nbmcilfp_prefix_product) + (1))) /\ ((((exists ff_h_b5nbmcilfp_prefix_product_terminal. ff_h_b5nbmcilfp_prefix_product_terminal + S (u) = S ((S (s)) * ff_v_b5nbmcilfp_prefix_product)) /\ exists ff_q_b5nbmcilfp_prefix_product_terminal. ff_u_b5nbmcilfp_prefix_product = ff_q_b5nbmcilfp_prefix_product_terminal * S ((S (s)) * ff_v_b5nbmcilfp_prefix_product) + (u))) /\ forall ff_i_b5nbmcilfp_prefix_product. (exists ff_lt_b5nbmcilfp_prefix_product_bound. ff_lt_b5nbmcilfp_prefix_product_bound + S ff_i_b5nbmcilfp_prefix_product = s) -> exists ff_p_b5nbmcilfp_prefix_product ff_r_b5nbmcilfp_prefix_product ff_s_b5nbmcilfp_prefix_product. ((((exists ff_h_b5nbmcilfp_prefix_product_factor. ff_h_b5nbmcilfp_prefix_product_factor + S (ff_p_b5nbmcilfp_prefix_product) = S ((S (ff_i_b5nbmcilfp_prefix_product)) * bpr_scale_b5nbmcilfp_prefix)) /\ exists ff_q_b5nbmcilfp_prefix_product_factor. bpr_code_b5nbmcilfp_prefix = ff_q_b5nbmcilfp_prefix_product_factor * S ((S (ff_i_b5nbmcilfp_prefix_product)) * bpr_scale_b5nbmcilfp_prefix) + (ff_p_b5nbmcilfp_prefix_product))) /\ ((((exists ff_h_b5nbmcilfp_prefix_product_partial. ff_h_b5nbmcilfp_prefix_product_partial + S (ff_r_b5nbmcilfp_prefix_product) = S ((S (ff_i_b5nbmcilfp_prefix_product)) * ff_v_b5nbmcilfp_prefix_product)) /\ exists ff_q_b5nbmcilfp_prefix_product_partial. ff_u_b5nbmcilfp_prefix_product = ff_q_b5nbmcilfp_prefix_product_partial * S ((S (ff_i_b5nbmcilfp_prefix_product)) * ff_v_b5nbmcilfp_prefix_product) + (ff_r_b5nbmcilfp_prefix_product))) /\ ((((exists ff_h_b5nbmcilfp_prefix_product_successor. ff_h_b5nbmcilfp_prefix_product_successor + S (ff_s_b5nbmcilfp_prefix_product) = S ((S (S ff_i_b5nbmcilfp_prefix_product)) * ff_v_b5nbmcilfp_prefix_product)) /\ exists ff_q_b5nbmcilfp_prefix_product_successor. ff_u_b5nbmcilfp_prefix_product = ff_q_b5nbmcilfp_prefix_product_successor * S ((S (S ff_i_b5nbmcilfp_prefix_product)) * ff_v_b5nbmcilfp_prefix_product) + (ff_s_b5nbmcilfp_prefix_product))) /\ ff_s_b5nbmcilfp_prefix_product = ff_r_b5nbmcilfp_prefix_product * ff_p_b5nbmcilfp_prefix_product)))))))) /\ ((exists bpr_code_b5nbmcilfp_interval bpr_scale_b5nbmcilfp_interval. ((forall bpr_index_b5nbmcilfp_interval_mask. (exists bpr_gap_b5nbmcilfp_interval_mask_bound. bpr_gap_b5nbmcilfp_interval_mask_bound + S (bpr_index_b5nbmcilfp_interval_mask) = g) -> exists bpr_value_b5nbmcilfp_interval_mask. ((((exists bpr_height_b5nbmcilfp_interval_mask_decoded. bpr_height_b5nbmcilfp_interval_mask_decoded + S (bpr_value_b5nbmcilfp_interval_mask) = S ((S (bpr_index_b5nbmcilfp_interval_mask)) * bpr_scale_b5nbmcilfp_interval)) /\ exists bpr_quotient_b5nbmcilfp_interval_mask_decoded. bpr_code_b5nbmcilfp_interval = bpr_quotient_b5nbmcilfp_interval_mask_decoded * S ((S (bpr_index_b5nbmcilfp_interval_mask)) * bpr_scale_b5nbmcilfp_interval) + (bpr_value_b5nbmcilfp_interval_mask))) /\ (((((~(S (s + bpr_index_b5nbmcilfp_interval_mask) = 1) /\ forall bpr_left_b5nbmcilfp_interval_mask_choice_prime bpr_right_b5nbmcilfp_interval_mask_choice_prime. S (s + bpr_index_b5nbmcilfp_interval_mask) = bpr_left_b5nbmcilfp_interval_mask_choice_prime * bpr_right_b5nbmcilfp_interval_mask_choice_prime -> bpr_left_b5nbmcilfp_interval_mask_choice_prime = 1 \/ bpr_right_b5nbmcilfp_interval_mask_choice_prime = 1)) /\ bpr_value_b5nbmcilfp_interval_mask = S (s + bpr_index_b5nbmcilfp_interval_mask)) \/ (~((~(S (s + bpr_index_b5nbmcilfp_interval_mask) = 1) /\ forall bpr_left_b5nbmcilfp_interval_mask_choice_prime bpr_right_b5nbmcilfp_interval_mask_choice_prime. S (s + bpr_index_b5nbmcilfp_interval_mask) = bpr_left_b5nbmcilfp_interval_mask_choice_prime * bpr_right_b5nbmcilfp_interval_mask_choice_prime -> bpr_left_b5nbmcilfp_interval_mask_choice_prime = 1 \/ bpr_right_b5nbmcilfp_interval_mask_choice_prime = 1)) /\ bpr_value_b5nbmcilfp_interval_mask = 1))))) /\ (exists ff_u_b5nbmcilfp_interval_product ff_v_b5nbmcilfp_interval_product. ((((exists ff_h_b5nbmcilfp_interval_product_start. ff_h_b5nbmcilfp_interval_product_start + S (1) = S ((S (0)) * ff_v_b5nbmcilfp_interval_product)) /\ exists ff_q_b5nbmcilfp_interval_product_start. ff_u_b5nbmcilfp_interval_product = ff_q_b5nbmcilfp_interval_product_start * S ((S (0)) * ff_v_b5nbmcilfp_interval_product) + (1))) /\ ((((exists ff_h_b5nbmcilfp_interval_product_terminal. ff_h_b5nbmcilfp_interval_product_terminal + S (v) = S ((S (g)) * ff_v_b5nbmcilfp_interval_product)) /\ exists ff_q_b5nbmcilfp_interval_product_terminal. ff_u_b5nbmcilfp_interval_product = ff_q_b5nbmcilfp_interval_product_terminal * S ((S (g)) * ff_v_b5nbmcilfp_interval_product) + (v))) /\ forall ff_i_b5nbmcilfp_interval_product. (exists ff_lt_b5nbmcilfp_interval_product_bound. ff_lt_b5nbmcilfp_interval_product_bound + S ff_i_b5nbmcilfp_interval_product = g) -> exists ff_p_b5nbmcilfp_interval_product ff_r_b5nbmcilfp_interval_product ff_s_b5nbmcilfp_interval_product. ((((exists ff_h_b5nbmcilfp_interval_product_factor. ff_h_b5nbmcilfp_interval_product_factor + S (ff_p_b5nbmcilfp_interval_product) = S ((S (ff_i_b5nbmcilfp_interval_product)) * bpr_scale_b5nbmcilfp_interval)) /\ exists ff_q_b5nbmcilfp_interval_product_factor. bpr_code_b5nbmcilfp_interval = ff_q_b5nbmcilfp_interval_product_factor * S ((S (ff_i_b5nbmcilfp_interval_product)) * bpr_scale_b5nbmcilfp_interval) + (ff_p_b5nbmcilfp_interval_product))) /\ ((((exists ff_h_b5nbmcilfp_interval_product_partial. ff_h_b5nbmcilfp_interval_product_partial + S (ff_r_b5nbmcilfp_interval_product) = S ((S (ff_i_b5nbmcilfp_interval_product)) * ff_v_b5nbmcilfp_interval_product)) /\ exists ff_q_b5nbmcilfp_interval_product_partial. ff_u_b5nbmcilfp_interval_product = ff_q_b5nbmcilfp_interval_product_partial * S ((S (ff_i_b5nbmcilfp_interval_product)) * ff_v_b5nbmcilfp_interval_product) + (ff_r_b5nbmcilfp_interval_product))) /\ ((((exists ff_h_b5nbmcilfp_interval_product_successor. ff_h_b5nbmcilfp_interval_product_successor + S (ff_s_b5nbmcilfp_interval_product) = S ((S (S ff_i_b5nbmcilfp_interval_product)) * ff_v_b5nbmcilfp_interval_product)) /\ exists ff_q_b5nbmcilfp_interval_product_successor. ff_u_b5nbmcilfp_interval_product = ff_q_b5nbmcilfp_interval_product_successor * S ((S (S ff_i_b5nbmcilfp_interval_product)) * ff_v_b5nbmcilfp_interval_product) + (ff_s_b5nbmcilfp_interval_product))) /\ ff_s_b5nbmcilfp_interval_product = ff_r_b5nbmcilfp_interval_product * ff_p_b5nbmcilfp_interval_product)))))))) /\ x = u * v)
  32. 0032specialize primorial_prefix_interval_split s
  33. 0033specialize primorial_prefix_interval_split g
  34. 0034specialize primorial_prefix_interval_split x
  35. 0035apply primorial_prefix_interval_split
  36. 0036exact haligned
  37. 0037cases hsplit
  38. 0038cases hsplit_witness
  39. 0039cases hsplit_witness_witness
  40. 0040cases hsplit_witness_witness_right
  41. 0041have hmiddle : Le(y,x2)
    Exact native replay linehave hmiddle : exists bcf_le_gap_b5nbmcilfp_y_v. bcf_le_gap_b5nbmcilfp_y_v + (y) = x2
  42. 0042specialize no_bertrand_middle_contribution_interval_le_primorial_interval n
  43. 0043specialize no_bertrand_middle_contribution_interval_le_primorial_interval s
  44. 0044specialize no_bertrand_middle_contribution_interval_le_primorial_interval q
  45. 0045specialize no_bertrand_middle_contribution_interval_le_primorial_interval r
  46. 0046specialize no_bertrand_middle_contribution_interval_le_primorial_interval C
  47. 0047specialize no_bertrand_middle_contribution_interval_le_primorial_interval g
  48. 0048specialize no_bertrand_middle_contribution_interval_le_primorial_interval y
  49. 0049specialize no_bertrand_middle_contribution_interval_le_primorial_interval x2
  50. 0050apply no_bertrand_middle_contribution_interval_le_primorial_interval
  51. 0051exact hexclusion
  52. 0052exact hpositive
  53. 0053exact hfloor
  54. 0054exact hdivision
  55. 0055exact hcentral
  56. 0056exact hgap
  57. 0057exact hcontribution
  58. 0058exact hsplit_witness_witness_right_left
  59. 0059have hprefix_positive : exists t. x1 = S t
  60. 0060specialize primorial_positive s
  61. 0061specialize primorial_positive x1
  62. 0062apply primorial_positive
  63. 0063exact hsplit_witness_witness_left
  64. 0064cases hprefix_positive
  65. 0065have hone_prefix : Lt(0,x1)
    Exact native replay linehave hone_prefix : exists bcf_le_gap_b5nbmcilfp_one_prefix. bcf_le_gap_b5nbmcilfp_one_prefix + (1) = x1
  66. 0066exists x3
  67. 0067rewrite hprefix_positive_witness
  68. 0068simp
  69. 0069have hinterval_product : Le(x2,x1 · x2)
    Exact native replay linehave hinterval_product : exists bcf_le_gap_b5nbmcilfp_v_product. bcf_le_gap_b5nbmcilfp_v_product + (x2) = x1 * x2
  70. 0070specialize le_mul_of_one_le_left x1
  71. 0071specialize le_mul_of_one_le_left x2
  72. 0072apply le_mul_of_one_le_left
  73. 0073exact hone_prefix
  74. 0074have hraw_y_product : Le(y,x1 · x2)
    Exact native replay linehave hraw_y_product : exists bcf_le_gap_b5nbmcilfp_y_product. bcf_le_gap_b5nbmcilfp_y_product + (y) = x1 * x2
  75. 0075specialize le_trans y
  76. 0076specialize le_trans x2
  77. 0077specialize le_trans (x1 * x2)
  78. 0078apply le_trans
  79. 0079exact hmiddle
  80. 0080exact hinterval_product
  81. 0081have hy_primorial : Le(y,x)
    Exact native replay linehave hy_primorial : exists bcf_le_gap_b5nbmcilfp_y_p. bcf_le_gap_b5nbmcilfp_y_p + (y) = x
  82. 0082rewrite <- hsplit_witness_witness_right_right at hraw_y_product
  83. 0083exact hraw_y_product
  84. 0084have hprimorial_power : Le(x,B)
    Exact native replay linehave hprimorial_power : exists bcf_le_gap_b5nbmcilfp_p_b. bcf_le_gap_b5nbmcilfp_p_b + (x) = B
  85. 0085specialize primorial_le_four_pow q
  86. 0086specialize primorial_le_four_pow x
  87. 0087specialize primorial_le_four_pow B
  88. 0088apply primorial_le_four_pow
  89. 0089exact hprimorial_witness
  90. 0090exact hpower
  91. 0091specialize le_trans y
  92. 0092specialize le_trans x
  93. 0093specialize le_trans B
  94. 0094apply le_trans
  95. 0095exact hy_primorial
  96. 0096exact hprimorial_power