BT0101

prime_contribution_selected_successor_divides

Alpha body-checked ยท checked-use disabled

A prime in the remaining cofactor raises a selected power.

Exact expanded PA statement

forall p e a z q n. (exists bpr_power_code_bpcssd_power bpr_power_scale_bpcssd_power. ((forall bpr_power_index_bpcssd_power. (exists bpr_gap_bpcssd_power_repeat_bound. bpr_gap_bpcssd_power_repeat_bound + S (bpr_power_index_bpcssd_power) = e) -> (((exists bpr_height_bpcssd_power_repeat_entry. bpr_height_bpcssd_power_repeat_entry + S (p) = S ((S (bpr_power_index_bpcssd_power)) * bpr_power_scale_bpcssd_power)) /\ exists bpr_quotient_bpcssd_power_repeat_entry. bpr_power_code_bpcssd_power = bpr_quotient_bpcssd_power_repeat_entry * S ((S (bpr_power_index_bpcssd_power)) * bpr_power_scale_bpcssd_power) + (p)))) /\ (exists ff_u_bpcssd_power_product ff_v_bpcssd_power_product. ((((exists ff_h_bpcssd_power_product_start. ff_h_bpcssd_power_product_start + S (1) = S ((S (0)) * ff_v_bpcssd_power_product)) /\ exists ff_q_bpcssd_power_product_start. ff_u_bpcssd_power_product = ff_q_bpcssd_power_product_start * S ((S (0)) * ff_v_bpcssd_power_product) + (1))) /\ ((((exists ff_h_bpcssd_power_product_terminal. ff_h_bpcssd_power_product_terminal + S (a) = S ((S (e)) * ff_v_bpcssd_power_product)) /\ exists ff_q_bpcssd_power_product_terminal. ff_u_bpcssd_power_product = ff_q_bpcssd_power_product_terminal * S ((S (e)) * ff_v_bpcssd_power_product) + (a))) /\ forall ff_i_bpcssd_power_product. (exists ff_lt_bpcssd_power_product_bound. ff_lt_bpcssd_power_product_bound + S ff_i_bpcssd_power_product = e) -> exists ff_p_bpcssd_power_product ff_r_bpcssd_power_product ff_s_bpcssd_power_product. ((((exists ff_h_bpcssd_power_product_factor. ff_h_bpcssd_power_product_factor + S (ff_p_bpcssd_power_product) = S ((S (ff_i_bpcssd_power_product)) * bpr_power_scale_bpcssd_power)) /\ exists ff_q_bpcssd_power_product_factor. bpr_power_code_bpcssd_power = ff_q_bpcssd_power_product_factor * S ((S (ff_i_bpcssd_power_product)) * bpr_power_scale_bpcssd_power) + (ff_p_bpcssd_power_product))) /\ ((((exists ff_h_bpcssd_power_product_partial. ff_h_bpcssd_power_product_partial + S (ff_r_bpcssd_power_product) = S ((S (ff_i_bpcssd_power_product)) * ff_v_bpcssd_power_product)) /\ exists ff_q_bpcssd_power_product_partial. ff_u_bpcssd_power_product = ff_q_bpcssd_power_product_partial * S ((S (ff_i_bpcssd_power_product)) * ff_v_bpcssd_power_product) + (ff_r_bpcssd_power_product))) /\ ((((exists ff_h_bpcssd_power_product_successor. ff_h_bpcssd_power_product_successor + S (ff_s_bpcssd_power_product) = S ((S (S ff_i_bpcssd_power_product)) * ff_v_bpcssd_power_product)) /\ exists ff_q_bpcssd_power_product_successor. ff_u_bpcssd_power_product = ff_q_bpcssd_power_product_successor * S ((S (S ff_i_bpcssd_power_product)) * ff_v_bpcssd_power_product) + (ff_s_bpcssd_power_product))) /\ ff_s_bpcssd_power_product = ff_r_bpcssd_power_product * ff_p_bpcssd_power_product)))))))) -> (exists bpr_divides_quotient_bpcssd_factor. z = (a) * bpr_divides_quotient_bpcssd_factor) -> (exists bpr_divides_quotient_bpcssd_prime_factor. q = (p) * bpr_divides_quotient_bpcssd_prime_factor) -> n = z * q -> (exists bpr_power_value_bpcssd_result. ((exists bpr_power_code_bpcssd_result_power bpr_power_scale_bpcssd_result_power. ((forall bpr_power_index_bpcssd_result_power. (exists bpr_gap_bpcssd_result_power_repeat_bound. bpr_gap_bpcssd_result_power_repeat_bound + S (bpr_power_index_bpcssd_result_power) = S e) -> (((exists bpr_height_bpcssd_result_power_repeat_entry. bpr_height_bpcssd_result_power_repeat_entry + S (p) = S ((S (bpr_power_index_bpcssd_result_power)) * bpr_power_scale_bpcssd_result_power)) /\ exists bpr_quotient_bpcssd_result_power_repeat_entry. bpr_power_code_bpcssd_result_power = bpr_quotient_bpcssd_result_power_repeat_entry * S ((S (bpr_power_index_bpcssd_result_power)) * bpr_power_scale_bpcssd_result_power) + (p)))) /\ (exists ff_u_bpcssd_result_power_product ff_v_bpcssd_result_power_product. ((((exists ff_h_bpcssd_result_power_product_start. ff_h_bpcssd_result_power_product_start + S (1) = S ((S (0)) * ff_v_bpcssd_result_power_product)) /\ exists ff_q_bpcssd_result_power_product_start. ff_u_bpcssd_result_power_product = ff_q_bpcssd_result_power_product_start * S ((S (0)) * ff_v_bpcssd_result_power_product) + (1))) /\ ((((exists ff_h_bpcssd_result_power_product_terminal. ff_h_bpcssd_result_power_product_terminal + S (bpr_power_value_bpcssd_result) = S ((S (S e)) * ff_v_bpcssd_result_power_product)) /\ exists ff_q_bpcssd_result_power_product_terminal. ff_u_bpcssd_result_power_product = ff_q_bpcssd_result_power_product_terminal * S ((S (S e)) * ff_v_bpcssd_result_power_product) + (bpr_power_value_bpcssd_result))) /\ forall ff_i_bpcssd_result_power_product. (exists ff_lt_bpcssd_result_power_product_bound. ff_lt_bpcssd_result_power_product_bound + S ff_i_bpcssd_result_power_product = S e) -> exists ff_p_bpcssd_result_power_product ff_r_bpcssd_result_power_product ff_s_bpcssd_result_power_product. ((((exists ff_h_bpcssd_result_power_product_factor. ff_h_bpcssd_result_power_product_factor + S (ff_p_bpcssd_result_power_product) = S ((S (ff_i_bpcssd_result_power_product)) * bpr_power_scale_bpcssd_result_power)) /\ exists ff_q_bpcssd_result_power_product_factor. bpr_power_code_bpcssd_result_power = ff_q_bpcssd_result_power_product_factor * S ((S (ff_i_bpcssd_result_power_product)) * bpr_power_scale_bpcssd_result_power) + (ff_p_bpcssd_result_power_product))) /\ ((((exists ff_h_bpcssd_result_power_product_partial. ff_h_bpcssd_result_power_product_partial + S (ff_r_bpcssd_result_power_product) = S ((S (ff_i_bpcssd_result_power_product)) * ff_v_bpcssd_result_power_product)) /\ exists ff_q_bpcssd_result_power_product_partial. ff_u_bpcssd_result_power_product = ff_q_bpcssd_result_power_product_partial * S ((S (ff_i_bpcssd_result_power_product)) * ff_v_bpcssd_result_power_product) + (ff_r_bpcssd_result_power_product))) /\ ((((exists ff_h_bpcssd_result_power_product_successor. ff_h_bpcssd_result_power_product_successor + S (ff_s_bpcssd_result_power_product) = S ((S (S ff_i_bpcssd_result_power_product)) * ff_v_bpcssd_result_power_product)) /\ exists ff_q_bpcssd_result_power_product_successor. ff_u_bpcssd_result_power_product = ff_q_bpcssd_result_power_product_successor * S ((S (S ff_i_bpcssd_result_power_product)) * ff_v_bpcssd_result_power_product) + (ff_s_bpcssd_result_power_product))) /\ ff_s_bpcssd_result_power_product = ff_r_bpcssd_result_power_product * ff_p_bpcssd_result_power_product)))))))) /\ (exists bpr_divides_quotient_bpcssd_result_divides. n = (bpr_power_value_bpcssd_result) * bpr_divides_quotient_bpcssd_result_divides)))

Structural proof guide

A prime in the remaining cofactor raises a selected power.

Direct prerequisites: mul_assoc, multiple_mul_left, power_divides_successor_of_cofactor. The authored body proceeds by case analysis (1), 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 p
  2. 0002intro e
  3. 0003intro a
  4. 0004intro z
  5. 0005intro q
  6. 0006intro n
  7. 0007intro hpower
  8. 0008intro hfactor
  9. 0009intro hprime
  10. 0010intro htotal
  11. 0011cases hfactor
  12. 0012have hcofactor : exists bpr_divides_quotient_bpcssd_cofactor. x * q = (p) * bpr_divides_quotient_bpcssd_cofactor
  13. 0013specialize multiple_mul_left p
  14. 0014specialize multiple_mul_left q
  15. 0015specialize multiple_mul_left x
  16. 0016apply multiple_mul_left
  17. 0017exact hprime
  18. 0018have haligned : n = a * (x * q)
  19. 0019trans z * q
  20. 0020exact htotal
  21. 0021rewrite hfactor_witness
  22. 0022apply mul_assoc
  23. 0023specialize power_divides_successor_of_cofactor p
  24. 0024specialize power_divides_successor_of_cofactor e
  25. 0025specialize power_divides_successor_of_cofactor n
  26. 0026specialize power_divides_successor_of_cofactor a
  27. 0027specialize power_divides_successor_of_cofactor (x * q)
  28. 0028apply power_divides_successor_of_cofactor
  29. 0029exact hpower
  30. 0030exact haligned
  31. 0031exact hcofactor