BT00VY

no_bertrand_central_prime_divisor_le

Alpha body-checked ยท checked-use disabled

A no-Bertrand certificate forces central prime divisors below n.

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.

  1. 0001intro n
  2. 0002intro c
  3. 0003intro p
  4. 0004intro hfree
  5. 0005intro hp
  6. 0006intro hcentral
  7. 0007intro hdivides
  8. 0008specialize le_total p
  9. 0009specialize le_total n
  10. 0010cases le_total
  11. 0011exact le_total_left
  12. 0012specialize le_eq_or_lt n
  13. 0013specialize le_eq_or_lt p
  14. 0014have hcases : n = p \/ exists gap. gap + S n = p
  15. 0015apply le_eq_or_lt
  16. 0016exact le_total_right
  17. 0017cases hcases
  18. 0018rewrite hcases_left
  19. 0019specialize le_refl p
  20. 0020exact le_refl
  21. 0021have hdouble : exists gap. gap + p = n + n
  22. 0022specialize central_binom_prime_divisor_le_double n
  23. 0023specialize central_binom_prime_divisor_le_double c
  24. 0024specialize central_binom_prime_divisor_le_double p
  25. 0025apply central_binom_prime_divisor_le_double
  26. 0026exact hp
  27. 0027exact hcentral
  28. 0028exact hdivides
  29. 0029specialize hfree p
  30. 0030exfalso
  31. 0031apply hfree
  32. 0032split
  33. 0033exact hcases_right
  34. 0034exact hdouble
  35. 0035exact hp