Exact expanded PA statement
forall n c p. (forall bpr_prime_candidate_bnbcpdl_exclusion. ((exists bpr_gap_bnbcpdl_exclusion_lower. bpr_gap_bnbcpdl_exclusion_lower + S (n) = bpr_prime_candidate_bnbcpdl_exclusion) /\ (exists bpr_le_gap_bnbcpdl_exclusion_upper. bpr_le_gap_bnbcpdl_exclusion_upper + (bpr_prime_candidate_bnbcpdl_exclusion) = (n + n))) -> ~((~(bpr_prime_candidate_bnbcpdl_exclusion = 1) /\ forall bpr_left_bnbcpdl_exclusion_prime bpr_right_bnbcpdl_exclusion_prime. bpr_prime_candidate_bnbcpdl_exclusion = bpr_left_bnbcpdl_exclusion_prime * bpr_right_bnbcpdl_exclusion_prime -> bpr_left_bnbcpdl_exclusion_prime = 1 \/ bpr_right_bnbcpdl_exclusion_prime = 1))) -> ((~(p = 1) /\ forall bpr_left_bnbcpdl_prime bpr_right_bnbcpdl_prime. p = bpr_left_bnbcpdl_prime * bpr_right_bnbcpdl_prime -> bpr_left_bnbcpdl_prime = 1 \/ bpr_right_bnbcpdl_prime = 1)) -> (((exists bcf_lt_gap_bnbcpdl_central_out_of_range. bcf_lt_gap_bnbcpdl_central_out_of_range + S (n + n) = n) /\ c = 0) \/ ((exists bcf_le_gap_bnbcpdl_central_in_range. bcf_le_gap_bnbcpdl_central_in_range + (n) = n + n) /\ (exists bcf_row_code_code_bnbcpdl_central bcf_row_code_scale_bnbcpdl_central bcf_row_scale_code_bnbcpdl_central bcf_row_scale_scale_bnbcpdl_central bcf_row_code_bnbcpdl_central bcf_row_scale_bnbcpdl_central. ((forall bcf_row_index_bnbcpdl_central_table. (exists bcf_lt_gap_bnbcpdl_central_table_row_bound. bcf_lt_gap_bnbcpdl_central_table_row_bound + S (bcf_row_index_bnbcpdl_central_table) = S (n + n)) -> exists bcf_row_code_bnbcpdl_central_table bcf_row_scale_bnbcpdl_central_table. ((((exists bcf_height_bnbcpdl_central_table_decoded_row_code. bcf_height_bnbcpdl_central_table_decoded_row_code + S (bcf_row_code_bnbcpdl_central_table) = S ((S (bcf_row_index_bnbcpdl_central_table)) * bcf_row_code_scale_bnbcpdl_central)) /\ exists bcf_quotient_bnbcpdl_central_table_decoded_row_code. bcf_row_code_code_bnbcpdl_central = bcf_quotient_bnbcpdl_central_table_decoded_row_code * S ((S (bcf_row_index_bnbcpdl_central_table)) * bcf_row_code_scale_bnbcpdl_central) + (bcf_row_code_bnbcpdl_central_table))) /\ ((((exists bcf_height_bnbcpdl_central_table_decoded_row_scale. bcf_height_bnbcpdl_central_table_decoded_row_scale + S (bcf_row_scale_bnbcpdl_central_table) = S ((S (bcf_row_index_bnbcpdl_central_table)) * bcf_row_scale_scale_bnbcpdl_central)) /\ exists bcf_quotient_bnbcpdl_central_table_decoded_row_scale. bcf_row_scale_code_bnbcpdl_central = bcf_quotient_bnbcpdl_central_table_decoded_row_scale * S ((S (bcf_row_index_bnbcpdl_central_table)) * bcf_row_scale_scale_bnbcpdl_central) + (bcf_row_scale_bnbcpdl_central_table))) /\ ((bcf_row_index_bnbcpdl_central_table = 0 /\ (forall bcf_index_bnbcpdl_central_table_zero_row. (exists bcf_lt_gap_bnbcpdl_central_table_zero_row_bound. bcf_lt_gap_bnbcpdl_central_table_zero_row_bound + S (bcf_index_bnbcpdl_central_table_zero_row) = S (n + n)) -> exists bcf_value_bnbcpdl_central_table_zero_row. ((((exists bcf_height_bnbcpdl_central_table_zero_row_entry. bcf_height_bnbcpdl_central_table_zero_row_entry + S (bcf_value_bnbcpdl_central_table_zero_row) = S ((S (bcf_index_bnbcpdl_central_table_zero_row)) * bcf_row_scale_bnbcpdl_central_table)) /\ exists bcf_quotient_bnbcpdl_central_table_zero_row_entry. bcf_row_code_bnbcpdl_central_table = bcf_quotient_bnbcpdl_central_table_zero_row_entry * S ((S (bcf_index_bnbcpdl_central_table_zero_row)) * bcf_row_scale_bnbcpdl_central_table) + (bcf_value_bnbcpdl_central_table_zero_row))) /\ ((bcf_index_bnbcpdl_central_table_zero_row = 0 /\ bcf_value_bnbcpdl_central_table_zero_row = 1) \/ exists bcf_predecessor_bnbcpdl_central_table_zero_row. bcf_index_bnbcpdl_central_table_zero_row = S bcf_predecessor_bnbcpdl_central_table_zero_row /\ bcf_value_bnbcpdl_central_table_zero_row = 0)))) \/ exists bcf_predecessor_bnbcpdl_central_table bcf_previous_code_bnbcpdl_central_table bcf_previous_scale_bnbcpdl_central_table. bcf_row_index_bnbcpdl_central_table = S bcf_predecessor_bnbcpdl_central_table /\ ((((exists bcf_height_bnbcpdl_central_table_decoded_previous_code. bcf_height_bnbcpdl_central_table_decoded_previous_code + S (bcf_previous_code_bnbcpdl_central_table) = S ((S (bcf_predecessor_bnbcpdl_central_table)) * bcf_row_code_scale_bnbcpdl_central)) /\ exists bcf_quotient_bnbcpdl_central_table_decoded_previous_code. bcf_row_code_code_bnbcpdl_central = bcf_quotient_bnbcpdl_central_table_decoded_previous_code * S ((S (bcf_predecessor_bnbcpdl_central_table)) * bcf_row_code_scale_bnbcpdl_central) + (bcf_previous_code_bnbcpdl_central_table))) /\ ((((exists bcf_height_bnbcpdl_central_table_decoded_previous_scale. bcf_height_bnbcpdl_central_table_decoded_previous_scale + S (bcf_previous_scale_bnbcpdl_central_table) = S ((S (bcf_predecessor_bnbcpdl_central_table)) * bcf_row_scale_scale_bnbcpdl_central)) /\ exists bcf_quotient_bnbcpdl_central_table_decoded_previous_scale. bcf_row_scale_code_bnbcpdl_central = bcf_quotient_bnbcpdl_central_table_decoded_previous_scale * S ((S (bcf_predecessor_bnbcpdl_central_table)) * bcf_row_scale_scale_bnbcpdl_central) + (bcf_previous_scale_bnbcpdl_central_table))) /\ (forall bcf_index_bnbcpdl_central_table_row_step. (exists bcf_lt_gap_bnbcpdl_central_table_row_step_bound. bcf_lt_gap_bnbcpdl_central_table_row_step_bound + S (bcf_index_bnbcpdl_central_table_row_step) = S (n + n)) -> exists bcf_value_bnbcpdl_central_table_row_step. ((((exists bcf_height_bnbcpdl_central_table_row_step_entry. bcf_height_bnbcpdl_central_table_row_step_entry + S (bcf_value_bnbcpdl_central_table_row_step) = S ((S (bcf_index_bnbcpdl_central_table_row_step)) * bcf_row_scale_bnbcpdl_central_table)) /\ exists bcf_quotient_bnbcpdl_central_table_row_step_entry. bcf_row_code_bnbcpdl_central_table = bcf_quotient_bnbcpdl_central_table_row_step_entry * S ((S (bcf_index_bnbcpdl_central_table_row_step)) * bcf_row_scale_bnbcpdl_central_table) + (bcf_value_bnbcpdl_central_table_row_step))) /\ ((bcf_index_bnbcpdl_central_table_row_step = 0 /\ bcf_value_bnbcpdl_central_table_row_step = 1) \/ exists bcf_predecessor_bnbcpdl_central_table_row_step bcf_left_bnbcpdl_central_table_row_step bcf_right_bnbcpdl_central_table_row_step. bcf_index_bnbcpdl_central_table_row_step = S bcf_predecessor_bnbcpdl_central_table_row_step /\ ((((exists bcf_height_bnbcpdl_central_table_row_step_previous_left. bcf_height_bnbcpdl_central_table_row_step_previous_left + S (bcf_left_bnbcpdl_central_table_row_step) = S ((S (bcf_predecessor_bnbcpdl_central_table_row_step)) * bcf_previous_scale_bnbcpdl_central_table)) /\ exists bcf_quotient_bnbcpdl_central_table_row_step_previous_left. bcf_previous_code_bnbcpdl_central_table = bcf_quotient_bnbcpdl_central_table_row_step_previous_left * S ((S (bcf_predecessor_bnbcpdl_central_table_row_step)) * bcf_previous_scale_bnbcpdl_central_table) + (bcf_left_bnbcpdl_central_table_row_step))) /\ ((((exists bcf_height_bnbcpdl_central_table_row_step_previous_right. bcf_height_bnbcpdl_central_table_row_step_previous_right + S (bcf_right_bnbcpdl_central_table_row_step) = S ((S (S (bcf_predecessor_bnbcpdl_central_table_row_step))) * bcf_previous_scale_bnbcpdl_central_table)) /\ exists bcf_quotient_bnbcpdl_central_table_row_step_previous_right. bcf_previous_code_bnbcpdl_central_table = bcf_quotient_bnbcpdl_central_table_row_step_previous_right * S ((S (S (bcf_predecessor_bnbcpdl_central_table_row_step))) * bcf_previous_scale_bnbcpdl_central_table) + (bcf_right_bnbcpdl_central_table_row_step))) /\ bcf_value_bnbcpdl_central_table_row_step = bcf_left_bnbcpdl_central_table_row_step + bcf_right_bnbcpdl_central_table_row_step))))))))))) /\ ((((exists bcf_height_bnbcpdl_central_decoded_row_code. bcf_height_bnbcpdl_central_decoded_row_code + S (bcf_row_code_bnbcpdl_central) = S ((S (n + n)) * bcf_row_code_scale_bnbcpdl_central)) /\ exists bcf_quotient_bnbcpdl_central_decoded_row_code. bcf_row_code_code_bnbcpdl_central = bcf_quotient_bnbcpdl_central_decoded_row_code * S ((S (n + n)) * bcf_row_code_scale_bnbcpdl_central) + (bcf_row_code_bnbcpdl_central))) /\ ((((exists bcf_height_bnbcpdl_central_decoded_row_scale. bcf_height_bnbcpdl_central_decoded_row_scale + S (bcf_row_scale_bnbcpdl_central) = S ((S (n + n)) * bcf_row_scale_scale_bnbcpdl_central)) /\ exists bcf_quotient_bnbcpdl_central_decoded_row_scale. bcf_row_scale_code_bnbcpdl_central = bcf_quotient_bnbcpdl_central_decoded_row_scale * S ((S (n + n)) * bcf_row_scale_scale_bnbcpdl_central) + (bcf_row_scale_bnbcpdl_central))) /\ (((exists bcf_height_bnbcpdl_central_decoded_value. bcf_height_bnbcpdl_central_decoded_value + S (c) = S ((S (n)) * bcf_row_scale_bnbcpdl_central)) /\ exists bcf_quotient_bnbcpdl_central_decoded_value. bcf_row_code_bnbcpdl_central = bcf_quotient_bnbcpdl_central_decoded_value * S ((S (n)) * bcf_row_scale_bnbcpdl_central) + (c))))))))) -> (exists bpr_quotient_bnbcpdl_divides. c = (p) * bpr_quotient_bnbcpdl_divides) -> (exists bpr_le_gap_bnbcpdl_result. bpr_le_gap_bnbcpdl_result + (p) = (n))Structural proof guide
A no-Bertrand certificate forces central prime divisors below n.
Direct prerequisites: le_total, le_eq_or_lt, le_refl, central_binom_prime_divisor_le_double. The authored body proceeds by case analysis (2), intermediate claims (2), equality transport (1).
Proof neighborhood
Direct dependencies
Direct dependents
Formal native tactic body
Dependencies are hypotheses of this body receipt. The focused endpoint audits separately check the complete empty-context certificates.
- 0001
intro n - 0002
intro c - 0003
intro p - 0004
intro hfree - 0005
intro hp - 0006
intro hcentral - 0007
intro hdivides - 0008
specialize le_total p - 0009
specialize le_total n - 0010
cases le_total - 0011
exact le_total_left - 0012
specialize le_eq_or_lt n - 0013
specialize le_eq_or_lt p - 0014
have hcases : n = p \/ exists gap. gap + S n = p - 0015
apply le_eq_or_lt - 0016
exact le_total_right - 0017
cases hcases - 0018
rewrite hcases_left - 0019
specialize le_refl p - 0020
exact le_refl - 0021
have hdouble : exists gap. gap + p = n + n - 0022
specialize central_binom_prime_divisor_le_double n - 0023
specialize central_binom_prime_divisor_le_double c - 0024
specialize central_binom_prime_divisor_le_double p - 0025
apply central_binom_prime_divisor_le_double - 0026
exact hp - 0027
exact hcentral - 0028
exact hdivides - 0029
specialize hfree p - 0030
exfalso - 0031
apply hfree - 0032
split - 0033
exact hcases_right - 0034
exact hdouble - 0035
exact hp