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.
- 0001
intro p - 0002
intro e - 0003
intro a - 0004
intro z - 0005
intro q - 0006
intro n - 0007
intro hpower - 0008
intro hfactor - 0009
intro hprime - 0010
intro htotal - 0011
cases hfactor - 0012
have hcofactor : exists bpr_divides_quotient_bpcssd_cofactor. x * q = (p) * bpr_divides_quotient_bpcssd_cofactor - 0013
specialize multiple_mul_left p - 0014
specialize multiple_mul_left q - 0015
specialize multiple_mul_left x - 0016
apply multiple_mul_left - 0017
exact hprime - 0018
have haligned : n = a * (x * q) - 0019
trans z * q - 0020
exact htotal - 0021
rewrite hfactor_witness - 0022
apply mul_assoc - 0023
specialize power_divides_successor_of_cofactor p - 0024
specialize power_divides_successor_of_cofactor e - 0025
specialize power_divides_successor_of_cofactor n - 0026
specialize power_divides_successor_of_cofactor a - 0027
specialize power_divides_successor_of_cofactor (x * q) - 0028
apply power_divides_successor_of_cofactor - 0029
exact hpower - 0030
exact haligned - 0031
exact hcofactor