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 expanded first-order arithmetic statement
forall p gb gc G hb hc H. (~((p) = 1) /\ forall pfa_factor_left_normal_prime pfa_factor_right_normal_prime. (p) = pfa_factor_left_normal_prime * pfa_factor_right_normal_prime -> pfa_factor_left_normal_prime = 1 \/ pfa_factor_right_normal_prime = 1) -> ((G)=0 \/ (((~((G) = 0)) /\ (((forall fom_index_pfp_normal_G_moniccoefficients. (exists fom_gap_pfp_normal_G_moniccoefficients_index_bound. fom_gap_pfp_normal_G_moniccoefficients_index_bound + S (fom_index_pfp_normal_G_moniccoefficients) = G) -> exists fom_value_pfp_normal_G_moniccoefficients. ((((exists fom_beta_height_pfp_normal_G_moniccoefficients_entry. fom_beta_height_pfp_normal_G_moniccoefficients_entry + S (fom_value_pfp_normal_G_moniccoefficients) = S ((S (fom_index_pfp_normal_G_moniccoefficients)) * gc)) /\ exists fom_beta_quotient_pfp_normal_G_moniccoefficients_entry. gb = fom_beta_quotient_pfp_normal_G_moniccoefficients_entry * S ((S (fom_index_pfp_normal_G_moniccoefficients)) * gc) + (fom_value_pfp_normal_G_moniccoefficients))) /\ (exists fom_gap_pfp_normal_G_moniccoefficients_value_bound. fom_gap_pfp_normal_G_moniccoefficients_value_bound + S (fom_value_pfp_normal_G_moniccoefficients) = p))) /\ ((((exists ff_h_pfp_normal_G_monicleading. ff_h_pfp_normal_G_monicleading + S (1) = S ((S (0)) * gc)) /\ exists ff_q_pfp_normal_G_monicleading. gb = ff_q_pfp_normal_G_monicleading * S ((S (0)) * gc) + (1))))))))) -> ((H)=0 \/ (((~((H) = 0)) /\ (((forall fom_index_pfp_normal_H_moniccoefficients. (exists fom_gap_pfp_normal_H_moniccoefficients_index_bound. fom_gap_pfp_normal_H_moniccoefficients_index_bound + S (fom_index_pfp_normal_H_moniccoefficients) = H) -> exists fom_value_pfp_normal_H_moniccoefficients. ((((exists fom_beta_height_pfp_normal_H_moniccoefficients_entry. fom_beta_height_pfp_normal_H_moniccoefficients_entry + S (fom_value_pfp_normal_H_moniccoefficients) = S ((S (fom_index_pfp_normal_H_moniccoefficients)) * hc)) /\ exists fom_beta_quotient_pfp_normal_H_moniccoefficients_entry. hb = fom_beta_quotient_pfp_normal_H_moniccoefficients_entry * S ((S (fom_index_pfp_normal_H_moniccoefficients)) * hc) + (fom_value_pfp_normal_H_moniccoefficients))) /\ (exists fom_gap_pfp_normal_H_moniccoefficients_value_bound. fom_gap_pfp_normal_H_moniccoefficients_value_bound + S (fom_value_pfp_normal_H_moniccoefficients) = p))) /\ ((((exists ff_h_pfp_normal_H_monicleading. ff_h_pfp_normal_H_monicleading + S (1) = S ((S (0)) * hc)) /\ exists ff_q_pfp_normal_H_monicleading. hb = ff_q_pfp_normal_H_monicleading * S ((S (0)) * hc) + (1))))))))) -> (((forall fom_index_pfp_normal_GH_canonical. (exists fom_gap_pfp_normal_GH_canonical_index_bound. fom_gap_pfp_normal_GH_canonical_index_bound + S (fom_index_pfp_normal_GH_canonical) = H) -> exists fom_value_pfp_normal_GH_canonical. ((((exists fom_beta_height_pfp_normal_GH_canonical_entry. fom_beta_height_pfp_normal_GH_canonical_entry + S (fom_value_pfp_normal_GH_canonical) = S ((S (fom_index_pfp_normal_GH_canonical)) * hc)) /\ exists fom_beta_quotient_pfp_normal_GH_canonical_entry. hb = fom_beta_quotient_pfp_normal_GH_canonical_entry * S ((S (fom_index_pfp_normal_GH_canonical)) * hc) + (fom_value_pfp_normal_GH_canonical))) /\ (exists fom_gap_pfp_normal_GH_canonical_value_bound. fom_gap_pfp_normal_GH_canonical_value_bound + S (fom_value_pfp_normal_GH_canonical) = p))) /\ ((exists pfgu_qb_normal_GH pfgu_qc_normal_GH pfgu_Q_normal_GH pfgu_pb_normal_GH pfgu_pc_normal_GH pfgu_P_normal_GH. ((((forall fom_index_pfp_normal_GH_productleft. (exists fom_gap_pfp_normal_GH_productleft_index_bound. fom_gap_pfp_normal_GH_productleft_index_bound + S (fom_index_pfp_normal_GH_productleft) = pfgu_Q_normal_GH) -> exists fom_value_pfp_normal_GH_productleft. ((((exists fom_beta_height_pfp_normal_GH_productleft_entry. fom_beta_height_pfp_normal_GH_productleft_entry + S (fom_value_pfp_normal_GH_productleft) = S ((S (fom_index_pfp_normal_GH_productleft)) * pfgu_qc_normal_GH)) /\ exists fom_beta_quotient_pfp_normal_GH_productleft_entry. pfgu_qb_normal_GH = fom_beta_quotient_pfp_normal_GH_productleft_entry * S ((S (fom_index_pfp_normal_GH_productleft)) * pfgu_qc_normal_GH) + (fom_value_pfp_normal_GH_productleft))) /\ (exists fom_gap_pfp_normal_GH_productleft_value_bound. fom_gap_pfp_normal_GH_productleft_value_bound + S (fom_value_pfp_normal_GH_productleft) = p))) /\ (((forall fom_index_pfp_normal_GH_productright. (exists fom_gap_pfp_normal_GH_productright_index_bound. fom_gap_pfp_normal_GH_productright_index_bound + S (fom_index_pfp_normal_GH_productright) = G) -> exists fom_value_pfp_normal_GH_productright. ((((exists fom_beta_height_pfp_normal_GH_productright_entry. fom_beta_height_pfp_normal_GH_productright_entry + S (fom_value_pfp_normal_GH_productright) = S ((S (fom_index_pfp_normal_GH_productright)) * gc)) /\ exists fom_beta_quotient_pfp_normal_GH_productright_entry. gb = fom_beta_quotient_pfp_normal_GH_productright_entry * S ((S (fom_index_pfp_normal_GH_productright)) * gc) + (fom_value_pfp_normal_GH_productright))) /\ (exists fom_gap_pfp_normal_GH_productright_value_bound. fom_gap_pfp_normal_GH_productright_value_bound + S (fom_value_pfp_normal_GH_productright) = p))) /\ (((((((pfgu_Q_normal_GH)=0 \/ (G)=0) /\ (((pfgu_P_normal_GH)=0)))) \/ (((~((pfgu_Q_normal_GH)=0)) /\ (((~((G)=0)) /\ (((pfgu_Q_normal_GH)+(G)=S (pfgu_P_normal_GH)))))))) /\ ((forall pfc_index_normal_GH_productcoefficients. (exists pfa_gap_normal_GH_productcoefficientsbound. pfa_gap_normal_GH_productcoefficientsbound + S (pfc_index_normal_GH_productcoefficients) = (pfgu_P_normal_GH)) -> exists pfc_value_normal_GH_productcoefficients. ((((exists ff_h_pfp_normal_GH_productcoefficientsentry. ff_h_pfp_normal_GH_productcoefficientsentry + S (pfc_value_normal_GH_productcoefficients) = S ((S (pfc_index_normal_GH_productcoefficients)) * pfgu_pc_normal_GH)) /\ exists ff_q_pfp_normal_GH_productcoefficientsentry. pfgu_pb_normal_GH = ff_q_pfp_normal_GH_productcoefficientsentry * S ((S (pfc_index_normal_GH_productcoefficients)) * pfgu_pc_normal_GH) + (pfc_value_normal_GH_productcoefficients))) /\ ((exists pfc_terms_code_normal_GH_productcoefficientscoefficient pfc_terms_scale_normal_GH_productcoefficientscoefficient pfc_natural_sum_normal_GH_productcoefficientscoefficient. ((forall pfc_index_normal_GH_productcoefficientscoefficientdiagonal. (exists pfa_gap_normal_GH_productcoefficientscoefficientdiagonalbound. pfa_gap_normal_GH_productcoefficientscoefficientdiagonalbound + S (pfc_index_normal_GH_productcoefficientscoefficientdiagonal) = (S (pfc_index_normal_GH_productcoefficients))) -> exists pfc_value_normal_GH_productcoefficientscoefficientdiagonal. ((((exists ff_h_pfp_normal_GH_productcoefficientscoefficientdiagonalentry. ff_h_pfp_normal_GH_productcoefficientscoefficientdiagonalentry + S (pfc_value_normal_GH_productcoefficientscoefficientdiagonal) = S ((S (pfc_index_normal_GH_productcoefficientscoefficientdiagonal)) * pfc_terms_scale_normal_GH_productcoefficientscoefficient)) /\ exists ff_q_pfp_normal_GH_productcoefficientscoefficientdiagonalentry. pfc_terms_code_normal_GH_productcoefficientscoefficient = ff_q_pfp_normal_GH_productcoefficientscoefficientdiagonalentry * S ((S (pfc_index_normal_GH_productcoefficientscoefficientdiagonal)) * pfc_terms_scale_normal_GH_productcoefficientscoefficient) + (pfc_value_normal_GH_productcoefficientscoefficientdiagonal))) /\ ((exists pfc_complement_normal_GH_productcoefficientscoefficientdiagonalterm pfc_left_normal_GH_productcoefficientscoefficientdiagonalterm pfc_right_normal_GH_productcoefficientscoefficientdiagonalterm. (((pfc_index_normal_GH_productcoefficientscoefficientdiagonal)+pfc_complement_normal_GH_productcoefficientscoefficientdiagonalterm=(pfc_index_normal_GH_productcoefficients)) /\ ((((((exists pfa_gap_normal_GH_productcoefficientscoefficientdiagonaltermleftinside. pfa_gap_normal_GH_productcoefficientscoefficientdiagonaltermleftinside + S (pfc_index_normal_GH_productcoefficientscoefficientdiagonal) = (pfgu_Q_normal_GH)) /\ ((((exists ff_h_pfp_normal_GH_productcoefficientscoefficientdiagonaltermleftentry. ff_h_pfp_normal_GH_productcoefficientscoefficientdiagonaltermleftentry + S (pfc_left_normal_GH_productcoefficientscoefficientdiagonalterm) = S ((S (pfc_index_normal_GH_productcoefficientscoefficientdiagonal)) * pfgu_qc_normal_GH)) /\ exists ff_q_pfp_normal_GH_productcoefficientscoefficientdiagonaltermleftentry. pfgu_qb_normal_GH = ff_q_pfp_normal_GH_productcoefficientscoefficientdiagonaltermleftentry * S ((S (pfc_index_normal_GH_productcoefficientscoefficientdiagonal)) * pfgu_qc_normal_GH) + (pfc_left_normal_GH_productcoefficientscoefficientdiagonalterm)))))) \/ (((exists pfc_gap_normal_GH_productcoefficientscoefficientdiagonaltermleftoutside. pfc_gap_normal_GH_productcoefficientscoefficientdiagonaltermleftoutside+(pfgu_Q_normal_GH)=(pfc_index_normal_GH_productcoefficientscoefficientdiagonal)) /\ (((pfc_left_normal_GH_productcoefficientscoefficientdiagonalterm)=0))))) /\ ((((((exists pfa_gap_normal_GH_productcoefficientscoefficientdiagonaltermrightinside. pfa_gap_normal_GH_productcoefficientscoefficientdiagonaltermrightinside + S (pfc_complement_normal_GH_productcoefficientscoefficientdiagonalterm) = (G)) /\ ((((exists ff_h_pfp_normal_GH_productcoefficientscoefficientdiagonaltermrightentry. ff_h_pfp_normal_GH_productcoefficientscoefficientdiagonaltermrightentry + S (pfc_right_normal_GH_productcoefficientscoefficientdiagonalterm) = S ((S (pfc_complement_normal_GH_productcoefficientscoefficientdiagonalterm)) * gc)) /\ exists ff_q_pfp_normal_GH_productcoefficientscoefficientdiagonaltermrightentry. gb = ff_q_pfp_normal_GH_productcoefficientscoefficientdiagonaltermrightentry * S ((S (pfc_complement_normal_GH_productcoefficientscoefficientdiagonalterm)) * gc) + (pfc_right_normal_GH_productcoefficientscoefficientdiagonalterm)))))) \/ (((exists pfc_gap_normal_GH_productcoefficientscoefficientdiagonaltermrightoutside. pfc_gap_normal_GH_productcoefficientscoefficientdiagonaltermrightoutside+(G)=(pfc_complement_normal_GH_productcoefficientscoefficientdiagonalterm)) /\ (((pfc_right_normal_GH_productcoefficientscoefficientdiagonalterm)=0))))) /\ (((pfc_value_normal_GH_productcoefficientscoefficientdiagonal)=pfc_left_normal_GH_productcoefficientscoefficientdiagonalterm*pfc_right_normal_GH_productcoefficientscoefficientdiagonalterm))))))))))) /\ (((exists fs_u_pfc_normal_GH_productcoefficientscoefficientsum fs_v_pfc_normal_GH_productcoefficientscoefficientsum. ((((exists fs_h_pfc_normal_GH_productcoefficientscoefficientsum_body_start. fs_h_pfc_normal_GH_productcoefficientscoefficientsum_body_start + S (0) = S ((S (0)) * fs_v_pfc_normal_GH_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_GH_productcoefficientscoefficientsum_body_start. fs_u_pfc_normal_GH_productcoefficientscoefficientsum = fs_q_pfc_normal_GH_productcoefficientscoefficientsum_body_start * S ((S (0)) * fs_v_pfc_normal_GH_productcoefficientscoefficientsum) + (0))) /\ ((((exists fs_h_pfc_normal_GH_productcoefficientscoefficientsum_body_terminal. fs_h_pfc_normal_GH_productcoefficientscoefficientsum_body_terminal + S (pfc_natural_sum_normal_GH_productcoefficientscoefficient) = S ((S (S (pfc_index_normal_GH_productcoefficients))) * fs_v_pfc_normal_GH_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_GH_productcoefficientscoefficientsum_body_terminal. fs_u_pfc_normal_GH_productcoefficientscoefficientsum = fs_q_pfc_normal_GH_productcoefficientscoefficientsum_body_terminal * S ((S (S (pfc_index_normal_GH_productcoefficients))) * fs_v_pfc_normal_GH_productcoefficientscoefficientsum) + (pfc_natural_sum_normal_GH_productcoefficientscoefficient))) /\ forall fs_i_pfc_normal_GH_productcoefficientscoefficientsum_body_steps. (exists fs_lt_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_bound. fs_lt_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_bound + S fs_i_pfc_normal_GH_productcoefficientscoefficientsum_body_steps = S (pfc_index_normal_GH_productcoefficients)) -> exists fs_a_pfc_normal_GH_productcoefficientscoefficientsum_body_steps fs_r_pfc_normal_GH_productcoefficientscoefficientsum_body_steps fs_s_pfc_normal_GH_productcoefficientscoefficientsum_body_steps. ((((exists fs_h_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_summand. fs_h_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_summand + S (fs_a_pfc_normal_GH_productcoefficientscoefficientsum_body_steps) = S ((S (fs_i_pfc_normal_GH_productcoefficientscoefficientsum_body_steps)) * pfc_terms_scale_normal_GH_productcoefficientscoefficient)) /\ exists fs_q_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_summand. pfc_terms_code_normal_GH_productcoefficientscoefficient = fs_q_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_summand * S ((S (fs_i_pfc_normal_GH_productcoefficientscoefficientsum_body_steps)) * pfc_terms_scale_normal_GH_productcoefficientscoefficient) + (fs_a_pfc_normal_GH_productcoefficientscoefficientsum_body_steps))) /\ ((((exists fs_h_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_partial. fs_h_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_partial + S (fs_r_pfc_normal_GH_productcoefficientscoefficientsum_body_steps) = S ((S (fs_i_pfc_normal_GH_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_GH_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_partial. fs_u_pfc_normal_GH_productcoefficientscoefficientsum = fs_q_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_partial * S ((S (fs_i_pfc_normal_GH_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_GH_productcoefficientscoefficientsum) + (fs_r_pfc_normal_GH_productcoefficientscoefficientsum_body_steps))) /\ ((((exists fs_h_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_successor. fs_h_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_successor + S (fs_s_pfc_normal_GH_productcoefficientscoefficientsum_body_steps) = S ((S (S fs_i_pfc_normal_GH_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_GH_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_successor. fs_u_pfc_normal_GH_productcoefficientscoefficientsum = fs_q_pfc_normal_GH_productcoefficientscoefficientsum_body_steps_successor * S ((S (S fs_i_pfc_normal_GH_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_GH_productcoefficientscoefficientsum) + (fs_s_pfc_normal_GH_productcoefficientscoefficientsum_body_steps))) /\ fs_s_pfc_normal_GH_productcoefficientscoefficientsum_body_steps = fs_r_pfc_normal_GH_productcoefficientscoefficientsum_body_steps + fs_a_pfc_normal_GH_productcoefficientscoefficientsum_body_steps)))))) /\ ((((exists pfa_gap_normal_GH_productcoefficientscoefficientresiduebound. pfa_gap_normal_GH_productcoefficientscoefficientresiduebound + S (pfc_value_normal_GH_productcoefficients) = (p)) /\ ((exists pfa_offset_left_normal_GH_productcoefficientscoefficientresiduecongruence pfa_offset_right_normal_GH_productcoefficientscoefficientresiduecongruence. (pfc_natural_sum_normal_GH_productcoefficientscoefficient) + (p) * pfa_offset_left_normal_GH_productcoefficientscoefficientresiduecongruence = (pfc_value_normal_GH_productcoefficients) + (p) * pfa_offset_right_normal_GH_productcoefficientscoefficientresiduecongruence))))))))))))))))))) /\ ((forall pfrep_power_normal_GH_target pfrep_left_normal_GH_target pfrep_right_normal_GH_target. ((exists pfrep_position_normal_GH_targetfirst. ((pfrep_position_normal_GH_targetfirst+S (pfrep_power_normal_GH_target)=(pfgu_P_normal_GH)) /\ ((((exists ff_h_pfp_normal_GH_targetfirstentry. ff_h_pfp_normal_GH_targetfirstentry + S (pfrep_left_normal_GH_target) = S ((S (pfrep_position_normal_GH_targetfirst)) * pfgu_pc_normal_GH)) /\ exists ff_q_pfp_normal_GH_targetfirstentry. pfgu_pb_normal_GH = ff_q_pfp_normal_GH_targetfirstentry * S ((S (pfrep_position_normal_GH_targetfirst)) * pfgu_pc_normal_GH) + (pfrep_left_normal_GH_target)))))) \/ (((exists pfrep_gap_normal_GH_targetfirstoutside. pfrep_gap_normal_GH_targetfirstoutside+(pfgu_P_normal_GH)=(pfrep_power_normal_GH_target)) /\ (((pfrep_left_normal_GH_target)=0))))) -> ((exists pfrep_position_normal_GH_targetsecond. ((pfrep_position_normal_GH_targetsecond+S (pfrep_power_normal_GH_target)=(H)) /\ ((((exists ff_h_pfp_normal_GH_targetsecondentry. ff_h_pfp_normal_GH_targetsecondentry + S (pfrep_right_normal_GH_target) = S ((S (pfrep_position_normal_GH_targetsecond)) * hc)) /\ exists ff_q_pfp_normal_GH_targetsecondentry. hb = ff_q_pfp_normal_GH_targetsecondentry * S ((S (pfrep_position_normal_GH_targetsecond)) * hc) + (pfrep_right_normal_GH_target)))))) \/ (((exists pfrep_gap_normal_GH_targetsecondoutside. pfrep_gap_normal_GH_targetsecondoutside+(H)=(pfrep_power_normal_GH_target)) /\ (((pfrep_right_normal_GH_target)=0))))) -> pfrep_left_normal_GH_target=pfrep_right_normal_GH_target))))))) -> (((forall fom_index_pfp_normal_HG_canonical. (exists fom_gap_pfp_normal_HG_canonical_index_bound. fom_gap_pfp_normal_HG_canonical_index_bound + S (fom_index_pfp_normal_HG_canonical) = G) -> exists fom_value_pfp_normal_HG_canonical. ((((exists fom_beta_height_pfp_normal_HG_canonical_entry. fom_beta_height_pfp_normal_HG_canonical_entry + S (fom_value_pfp_normal_HG_canonical) = S ((S (fom_index_pfp_normal_HG_canonical)) * gc)) /\ exists fom_beta_quotient_pfp_normal_HG_canonical_entry. gb = fom_beta_quotient_pfp_normal_HG_canonical_entry * S ((S (fom_index_pfp_normal_HG_canonical)) * gc) + (fom_value_pfp_normal_HG_canonical))) /\ (exists fom_gap_pfp_normal_HG_canonical_value_bound. fom_gap_pfp_normal_HG_canonical_value_bound + S (fom_value_pfp_normal_HG_canonical) = p))) /\ ((exists pfgu_qb_normal_HG pfgu_qc_normal_HG pfgu_Q_normal_HG pfgu_pb_normal_HG pfgu_pc_normal_HG pfgu_P_normal_HG. ((((forall fom_index_pfp_normal_HG_productleft. (exists fom_gap_pfp_normal_HG_productleft_index_bound. fom_gap_pfp_normal_HG_productleft_index_bound + S (fom_index_pfp_normal_HG_productleft) = pfgu_Q_normal_HG) -> exists fom_value_pfp_normal_HG_productleft. ((((exists fom_beta_height_pfp_normal_HG_productleft_entry. fom_beta_height_pfp_normal_HG_productleft_entry + S (fom_value_pfp_normal_HG_productleft) = S ((S (fom_index_pfp_normal_HG_productleft)) * pfgu_qc_normal_HG)) /\ exists fom_beta_quotient_pfp_normal_HG_productleft_entry. pfgu_qb_normal_HG = fom_beta_quotient_pfp_normal_HG_productleft_entry * S ((S (fom_index_pfp_normal_HG_productleft)) * pfgu_qc_normal_HG) + (fom_value_pfp_normal_HG_productleft))) /\ (exists fom_gap_pfp_normal_HG_productleft_value_bound. fom_gap_pfp_normal_HG_productleft_value_bound + S (fom_value_pfp_normal_HG_productleft) = p))) /\ (((forall fom_index_pfp_normal_HG_productright. (exists fom_gap_pfp_normal_HG_productright_index_bound. fom_gap_pfp_normal_HG_productright_index_bound + S (fom_index_pfp_normal_HG_productright) = H) -> exists fom_value_pfp_normal_HG_productright. ((((exists fom_beta_height_pfp_normal_HG_productright_entry. fom_beta_height_pfp_normal_HG_productright_entry + S (fom_value_pfp_normal_HG_productright) = S ((S (fom_index_pfp_normal_HG_productright)) * hc)) /\ exists fom_beta_quotient_pfp_normal_HG_productright_entry. hb = fom_beta_quotient_pfp_normal_HG_productright_entry * S ((S (fom_index_pfp_normal_HG_productright)) * hc) + (fom_value_pfp_normal_HG_productright))) /\ (exists fom_gap_pfp_normal_HG_productright_value_bound. fom_gap_pfp_normal_HG_productright_value_bound + S (fom_value_pfp_normal_HG_productright) = p))) /\ (((((((pfgu_Q_normal_HG)=0 \/ (H)=0) /\ (((pfgu_P_normal_HG)=0)))) \/ (((~((pfgu_Q_normal_HG)=0)) /\ (((~((H)=0)) /\ (((pfgu_Q_normal_HG)+(H)=S (pfgu_P_normal_HG)))))))) /\ ((forall pfc_index_normal_HG_productcoefficients. (exists pfa_gap_normal_HG_productcoefficientsbound. pfa_gap_normal_HG_productcoefficientsbound + S (pfc_index_normal_HG_productcoefficients) = (pfgu_P_normal_HG)) -> exists pfc_value_normal_HG_productcoefficients. ((((exists ff_h_pfp_normal_HG_productcoefficientsentry. ff_h_pfp_normal_HG_productcoefficientsentry + S (pfc_value_normal_HG_productcoefficients) = S ((S (pfc_index_normal_HG_productcoefficients)) * pfgu_pc_normal_HG)) /\ exists ff_q_pfp_normal_HG_productcoefficientsentry. pfgu_pb_normal_HG = ff_q_pfp_normal_HG_productcoefficientsentry * S ((S (pfc_index_normal_HG_productcoefficients)) * pfgu_pc_normal_HG) + (pfc_value_normal_HG_productcoefficients))) /\ ((exists pfc_terms_code_normal_HG_productcoefficientscoefficient pfc_terms_scale_normal_HG_productcoefficientscoefficient pfc_natural_sum_normal_HG_productcoefficientscoefficient. ((forall pfc_index_normal_HG_productcoefficientscoefficientdiagonal. (exists pfa_gap_normal_HG_productcoefficientscoefficientdiagonalbound. pfa_gap_normal_HG_productcoefficientscoefficientdiagonalbound + S (pfc_index_normal_HG_productcoefficientscoefficientdiagonal) = (S (pfc_index_normal_HG_productcoefficients))) -> exists pfc_value_normal_HG_productcoefficientscoefficientdiagonal. ((((exists ff_h_pfp_normal_HG_productcoefficientscoefficientdiagonalentry. ff_h_pfp_normal_HG_productcoefficientscoefficientdiagonalentry + S (pfc_value_normal_HG_productcoefficientscoefficientdiagonal) = S ((S (pfc_index_normal_HG_productcoefficientscoefficientdiagonal)) * pfc_terms_scale_normal_HG_productcoefficientscoefficient)) /\ exists ff_q_pfp_normal_HG_productcoefficientscoefficientdiagonalentry. pfc_terms_code_normal_HG_productcoefficientscoefficient = ff_q_pfp_normal_HG_productcoefficientscoefficientdiagonalentry * S ((S (pfc_index_normal_HG_productcoefficientscoefficientdiagonal)) * pfc_terms_scale_normal_HG_productcoefficientscoefficient) + (pfc_value_normal_HG_productcoefficientscoefficientdiagonal))) /\ ((exists pfc_complement_normal_HG_productcoefficientscoefficientdiagonalterm pfc_left_normal_HG_productcoefficientscoefficientdiagonalterm pfc_right_normal_HG_productcoefficientscoefficientdiagonalterm. (((pfc_index_normal_HG_productcoefficientscoefficientdiagonal)+pfc_complement_normal_HG_productcoefficientscoefficientdiagonalterm=(pfc_index_normal_HG_productcoefficients)) /\ ((((((exists pfa_gap_normal_HG_productcoefficientscoefficientdiagonaltermleftinside. pfa_gap_normal_HG_productcoefficientscoefficientdiagonaltermleftinside + S (pfc_index_normal_HG_productcoefficientscoefficientdiagonal) = (pfgu_Q_normal_HG)) /\ ((((exists ff_h_pfp_normal_HG_productcoefficientscoefficientdiagonaltermleftentry. ff_h_pfp_normal_HG_productcoefficientscoefficientdiagonaltermleftentry + S (pfc_left_normal_HG_productcoefficientscoefficientdiagonalterm) = S ((S (pfc_index_normal_HG_productcoefficientscoefficientdiagonal)) * pfgu_qc_normal_HG)) /\ exists ff_q_pfp_normal_HG_productcoefficientscoefficientdiagonaltermleftentry. pfgu_qb_normal_HG = ff_q_pfp_normal_HG_productcoefficientscoefficientdiagonaltermleftentry * S ((S (pfc_index_normal_HG_productcoefficientscoefficientdiagonal)) * pfgu_qc_normal_HG) + (pfc_left_normal_HG_productcoefficientscoefficientdiagonalterm)))))) \/ (((exists pfc_gap_normal_HG_productcoefficientscoefficientdiagonaltermleftoutside. pfc_gap_normal_HG_productcoefficientscoefficientdiagonaltermleftoutside+(pfgu_Q_normal_HG)=(pfc_index_normal_HG_productcoefficientscoefficientdiagonal)) /\ (((pfc_left_normal_HG_productcoefficientscoefficientdiagonalterm)=0))))) /\ ((((((exists pfa_gap_normal_HG_productcoefficientscoefficientdiagonaltermrightinside. pfa_gap_normal_HG_productcoefficientscoefficientdiagonaltermrightinside + S (pfc_complement_normal_HG_productcoefficientscoefficientdiagonalterm) = (H)) /\ ((((exists ff_h_pfp_normal_HG_productcoefficientscoefficientdiagonaltermrightentry. ff_h_pfp_normal_HG_productcoefficientscoefficientdiagonaltermrightentry + S (pfc_right_normal_HG_productcoefficientscoefficientdiagonalterm) = S ((S (pfc_complement_normal_HG_productcoefficientscoefficientdiagonalterm)) * hc)) /\ exists ff_q_pfp_normal_HG_productcoefficientscoefficientdiagonaltermrightentry. hb = ff_q_pfp_normal_HG_productcoefficientscoefficientdiagonaltermrightentry * S ((S (pfc_complement_normal_HG_productcoefficientscoefficientdiagonalterm)) * hc) + (pfc_right_normal_HG_productcoefficientscoefficientdiagonalterm)))))) \/ (((exists pfc_gap_normal_HG_productcoefficientscoefficientdiagonaltermrightoutside. pfc_gap_normal_HG_productcoefficientscoefficientdiagonaltermrightoutside+(H)=(pfc_complement_normal_HG_productcoefficientscoefficientdiagonalterm)) /\ (((pfc_right_normal_HG_productcoefficientscoefficientdiagonalterm)=0))))) /\ (((pfc_value_normal_HG_productcoefficientscoefficientdiagonal)=pfc_left_normal_HG_productcoefficientscoefficientdiagonalterm*pfc_right_normal_HG_productcoefficientscoefficientdiagonalterm))))))))))) /\ (((exists fs_u_pfc_normal_HG_productcoefficientscoefficientsum fs_v_pfc_normal_HG_productcoefficientscoefficientsum. ((((exists fs_h_pfc_normal_HG_productcoefficientscoefficientsum_body_start. fs_h_pfc_normal_HG_productcoefficientscoefficientsum_body_start + S (0) = S ((S (0)) * fs_v_pfc_normal_HG_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_HG_productcoefficientscoefficientsum_body_start. fs_u_pfc_normal_HG_productcoefficientscoefficientsum = fs_q_pfc_normal_HG_productcoefficientscoefficientsum_body_start * S ((S (0)) * fs_v_pfc_normal_HG_productcoefficientscoefficientsum) + (0))) /\ ((((exists fs_h_pfc_normal_HG_productcoefficientscoefficientsum_body_terminal. fs_h_pfc_normal_HG_productcoefficientscoefficientsum_body_terminal + S (pfc_natural_sum_normal_HG_productcoefficientscoefficient) = S ((S (S (pfc_index_normal_HG_productcoefficients))) * fs_v_pfc_normal_HG_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_HG_productcoefficientscoefficientsum_body_terminal. fs_u_pfc_normal_HG_productcoefficientscoefficientsum = fs_q_pfc_normal_HG_productcoefficientscoefficientsum_body_terminal * S ((S (S (pfc_index_normal_HG_productcoefficients))) * fs_v_pfc_normal_HG_productcoefficientscoefficientsum) + (pfc_natural_sum_normal_HG_productcoefficientscoefficient))) /\ forall fs_i_pfc_normal_HG_productcoefficientscoefficientsum_body_steps. (exists fs_lt_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_bound. fs_lt_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_bound + S fs_i_pfc_normal_HG_productcoefficientscoefficientsum_body_steps = S (pfc_index_normal_HG_productcoefficients)) -> exists fs_a_pfc_normal_HG_productcoefficientscoefficientsum_body_steps fs_r_pfc_normal_HG_productcoefficientscoefficientsum_body_steps fs_s_pfc_normal_HG_productcoefficientscoefficientsum_body_steps. ((((exists fs_h_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_summand. fs_h_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_summand + S (fs_a_pfc_normal_HG_productcoefficientscoefficientsum_body_steps) = S ((S (fs_i_pfc_normal_HG_productcoefficientscoefficientsum_body_steps)) * pfc_terms_scale_normal_HG_productcoefficientscoefficient)) /\ exists fs_q_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_summand. pfc_terms_code_normal_HG_productcoefficientscoefficient = fs_q_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_summand * S ((S (fs_i_pfc_normal_HG_productcoefficientscoefficientsum_body_steps)) * pfc_terms_scale_normal_HG_productcoefficientscoefficient) + (fs_a_pfc_normal_HG_productcoefficientscoefficientsum_body_steps))) /\ ((((exists fs_h_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_partial. fs_h_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_partial + S (fs_r_pfc_normal_HG_productcoefficientscoefficientsum_body_steps) = S ((S (fs_i_pfc_normal_HG_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_HG_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_partial. fs_u_pfc_normal_HG_productcoefficientscoefficientsum = fs_q_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_partial * S ((S (fs_i_pfc_normal_HG_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_HG_productcoefficientscoefficientsum) + (fs_r_pfc_normal_HG_productcoefficientscoefficientsum_body_steps))) /\ ((((exists fs_h_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_successor. fs_h_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_successor + S (fs_s_pfc_normal_HG_productcoefficientscoefficientsum_body_steps) = S ((S (S fs_i_pfc_normal_HG_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_HG_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_successor. fs_u_pfc_normal_HG_productcoefficientscoefficientsum = fs_q_pfc_normal_HG_productcoefficientscoefficientsum_body_steps_successor * S ((S (S fs_i_pfc_normal_HG_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_HG_productcoefficientscoefficientsum) + (fs_s_pfc_normal_HG_productcoefficientscoefficientsum_body_steps))) /\ fs_s_pfc_normal_HG_productcoefficientscoefficientsum_body_steps = fs_r_pfc_normal_HG_productcoefficientscoefficientsum_body_steps + fs_a_pfc_normal_HG_productcoefficientscoefficientsum_body_steps)))))) /\ ((((exists pfa_gap_normal_HG_productcoefficientscoefficientresiduebound. pfa_gap_normal_HG_productcoefficientscoefficientresiduebound + S (pfc_value_normal_HG_productcoefficients) = (p)) /\ ((exists pfa_offset_left_normal_HG_productcoefficientscoefficientresiduecongruence pfa_offset_right_normal_HG_productcoefficientscoefficientresiduecongruence. (pfc_natural_sum_normal_HG_productcoefficientscoefficient) + (p) * pfa_offset_left_normal_HG_productcoefficientscoefficientresiduecongruence = (pfc_value_normal_HG_productcoefficients) + (p) * pfa_offset_right_normal_HG_productcoefficientscoefficientresiduecongruence))))))))))))))))))) /\ ((forall pfrep_power_normal_HG_target pfrep_left_normal_HG_target pfrep_right_normal_HG_target. ((exists pfrep_position_normal_HG_targetfirst. ((pfrep_position_normal_HG_targetfirst+S (pfrep_power_normal_HG_target)=(pfgu_P_normal_HG)) /\ ((((exists ff_h_pfp_normal_HG_targetfirstentry. ff_h_pfp_normal_HG_targetfirstentry + S (pfrep_left_normal_HG_target) = S ((S (pfrep_position_normal_HG_targetfirst)) * pfgu_pc_normal_HG)) /\ exists ff_q_pfp_normal_HG_targetfirstentry. pfgu_pb_normal_HG = ff_q_pfp_normal_HG_targetfirstentry * S ((S (pfrep_position_normal_HG_targetfirst)) * pfgu_pc_normal_HG) + (pfrep_left_normal_HG_target)))))) \/ (((exists pfrep_gap_normal_HG_targetfirstoutside. pfrep_gap_normal_HG_targetfirstoutside+(pfgu_P_normal_HG)=(pfrep_power_normal_HG_target)) /\ (((pfrep_left_normal_HG_target)=0))))) -> ((exists pfrep_position_normal_HG_targetsecond. ((pfrep_position_normal_HG_targetsecond+S (pfrep_power_normal_HG_target)=(G)) /\ ((((exists ff_h_pfp_normal_HG_targetsecondentry. ff_h_pfp_normal_HG_targetsecondentry + S (pfrep_right_normal_HG_target) = S ((S (pfrep_position_normal_HG_targetsecond)) * gc)) /\ exists ff_q_pfp_normal_HG_targetsecondentry. gb = ff_q_pfp_normal_HG_targetsecondentry * S ((S (pfrep_position_normal_HG_targetsecond)) * gc) + (pfrep_right_normal_HG_target)))))) \/ (((exists pfrep_gap_normal_HG_targetsecondoutside. pfrep_gap_normal_HG_targetsecondoutside+(G)=(pfrep_power_normal_HG_target)) /\ (((pfrep_right_normal_HG_target)=0))))) -> pfrep_left_normal_HG_target=pfrep_right_normal_HG_target))))))) -> (forall pfrep_power_normal_result pfrep_left_normal_result pfrep_right_normal_result. ((exists pfrep_position_normal_resultfirst. ((pfrep_position_normal_resultfirst+S (pfrep_power_normal_result)=(G)) /\ ((((exists ff_h_pfp_normal_resultfirstentry. ff_h_pfp_normal_resultfirstentry + S (pfrep_left_normal_result) = S ((S (pfrep_position_normal_resultfirst)) * gc)) /\ exists ff_q_pfp_normal_resultfirstentry. gb = ff_q_pfp_normal_resultfirstentry * S ((S (pfrep_position_normal_resultfirst)) * gc) + (pfrep_left_normal_result)))))) \/ (((exists pfrep_gap_normal_resultfirstoutside. pfrep_gap_normal_resultfirstoutside+(G)=(pfrep_power_normal_result)) /\ (((pfrep_left_normal_result)=0))))) -> ((exists pfrep_position_normal_resultsecond. ((pfrep_position_normal_resultsecond+S (pfrep_power_normal_result)=(H)) /\ ((((exists ff_h_pfp_normal_resultsecondentry. ff_h_pfp_normal_resultsecondentry + S (pfrep_right_normal_result) = S ((S (pfrep_position_normal_resultsecond)) * hc)) /\ exists ff_q_pfp_normal_resultsecondentry. hb = ff_q_pfp_normal_resultsecondentry * S ((S (pfrep_position_normal_resultsecond)) * hc) + (pfrep_right_normal_result)))))) \/ (((exists pfrep_gap_normal_resultsecondoutside. pfrep_gap_normal_resultsecondoutside+(H)=(pfrep_power_normal_result)) /\ (((pfrep_right_normal_result)=0))))) -> pfrep_left_normal_result=pfrep_right_normal_result)Constructive proof overview
Generated structural guide
Two zero-or-monic mutual right associates are formally equivalent, including both-zero and one-empty branches. Both normalization premises are essential; beta encodings need not agree.
The unchanged tactic script uses 3 declared prerequisites and contains 70 exact native proof lines.
Alpha v34 checked-use · first admitted v34 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
prime_field_polynomial_equivalent_symmetric Alpha theorem; checked-use authorized PG0075 prime_field_polynomial_empty_right_divisor_implies_equivalent_zero PG0074 prime_field_polynomial_monic_right_associates_equivalentDirect dependents
Formal native tactic body
Dependencies are introduced as named hypotheses before line 1. Local theorem links identify exact declared prerequisites. This exact body belongs to a complete independently kernel-checked constructive proof bundle and has Alpha checked-use authority; it does not imply Stable membership.
Read the argument
Proof checkpoints
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.
Named ingredients (2)
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–12
03Separate the logical casesL13–13
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L13
cases hg
04Calculate and transport equalitiesL14–15
05Use earlier factsL16–25
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L16
specialize prime_field_polynomial_equivalent_symmetric (hb) - L17
specialize prime_field_polynomial_equivalent_symmetric (hc) - L18
specialize prime_field_polynomial_equivalent_symmetric (H) - L19
specialize prime_field_polynomial_equivalent_symmetric (gb) - L20
specialize prime_field_polynomial_equivalent_symmetric (gc) - L21
specialize prime_field_polynomial_equivalent_symmetric (0) - L22
apply prime_field_polynomial_equivalent_symmetric - L23
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (p) - L24
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (gb) - L25
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (gc)
06Use earlier factsL26–29
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L26
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (hb) - L27
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (hc) - L28
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (H) - L29
apply prime_field_polynomial_empty_right_divisor_implies_equivalent_zero
07Establish hcopyL30–38
Establish this local claim before using it. It is not an additional assumption.
08Separate the logical casesL39–39
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L39
cases hh
09Calculate and transport equalitiesL40–41
10Use earlier factsL42–48
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L42
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (p) - L43
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (hb) - L44
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (hc) - L45
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (gb) - L46
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (gc) - L47
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (G) - L48
apply prime_field_polynomial_empty_right_divisor_implies_equivalent_zero
11Establish hcopyL49–58
Establish this local claim before using it. It is not an additional assumption.
- L49
have hcopy : FpPolynomialRightDivides(p,hb,hc,H,gb,gc,G)Definitions: FpPolynomialRightDivides - L50
exact hhg - L51
rewrite hh_left at hcopy - L52
rewrite hh_left at hcopy - L53
rewrite hh_left at hcopy - L54
rewrite hh_left at hcopy - L55
rewrite hh_left at hcopy - L56
rewrite hh_left at hcopy - L57
exact hcopy - L58
specialize prime_field_polynomial_monic_right_associates_equivalent (p)
12Use earlier factsL59–68
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L59
specialize prime_field_polynomial_monic_right_associates_equivalent (gb) - L60
specialize prime_field_polynomial_monic_right_associates_equivalent (gc) - L61
specialize prime_field_polynomial_monic_right_associates_equivalent (G) - L62
specialize prime_field_polynomial_monic_right_associates_equivalent (hb) - L63
specialize prime_field_polynomial_monic_right_associates_equivalent (hc) - L64
specialize prime_field_polynomial_monic_right_associates_equivalent (H) - L65
apply prime_field_polynomial_monic_right_associates_equivalent - L66
exact hp - L67
exact hg_right - L68
exact hh_right
Original exact command ledger · 70 lines
- 0001
intro p - 0002
intro gb - 0003
intro gc - 0004
intro G - 0005
intro hb - 0006
intro hc - 0007
intro H - 0008
intro hp - 0009
intro hg - 0010
intro hh - 0011
intro hgh - 0012
intro hhg - 0013
cases hg - 0014
rewrite hg_left - 0015
rewrite hg_left - 0016
specialize prime_field_polynomial_equivalent_symmetric (hb) - 0017
specialize prime_field_polynomial_equivalent_symmetric (hc) - 0018
specialize prime_field_polynomial_equivalent_symmetric (H) - 0019
specialize prime_field_polynomial_equivalent_symmetric (gb) - 0020
specialize prime_field_polynomial_equivalent_symmetric (gc) - 0021
specialize prime_field_polynomial_equivalent_symmetric (0) - 0022
apply prime_field_polynomial_equivalent_symmetric - 0023
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (p) - 0024
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (gb) - 0025
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (gc) - 0026
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (hb) - 0027
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (hc) - 0028
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (H) - 0029
apply prime_field_polynomial_empty_right_divisor_implies_equivalent_zero - 0030
have hcopy : ((forall fom_index_pfp_normal_empty_G_canonical. (exists fom_gap_pfp_normal_empty_G_canonical_index_bound. fom_gap_pfp_normal_empty_G_canonical_index_bound + S (fom_index_pfp_normal_empty_G_canonical) = H) -> exists fom_value_pfp_normal_empty_G_canonical. ((((exists fom_beta_height_pfp_normal_empty_G_canonical_entry. fom_beta_height_pfp_normal_empty_G_canonical_entry + S (fom_value_pfp_normal_empty_G_canonical) = S ((S (fom_index_pfp_normal_empty_G_canonical)) * hc)) /\ exists fom_beta_quotient_pfp_normal_empty_G_canonical_entry. hb = fom_beta_quotient_pfp_normal_empty_G_canonical_entry * S ((S (fom_index_pfp_normal_empty_G_canonical)) * hc) + (fom_value_pfp_normal_empty_G_canonical))) /\ (exists fom_gap_pfp_normal_empty_G_canonical_value_bound. fom_gap_pfp_normal_empty_G_canonical_value_bound + S (fom_value_pfp_normal_empty_G_canonical) = p))) /\ ((exists pfgu_qb_normal_empty_G pfgu_qc_normal_empty_G pfgu_Q_normal_empty_G pfgu_pb_normal_empty_G pfgu_pc_normal_empty_G pfgu_P_normal_empty_G. ((((forall fom_index_pfp_normal_empty_G_productleft. (exists fom_gap_pfp_normal_empty_G_productleft_index_bound. fom_gap_pfp_normal_empty_G_productleft_index_bound + S (fom_index_pfp_normal_empty_G_productleft) = pfgu_Q_normal_empty_G) -> exists fom_value_pfp_normal_empty_G_productleft. ((((exists fom_beta_height_pfp_normal_empty_G_productleft_entry. fom_beta_height_pfp_normal_empty_G_productleft_entry + S (fom_value_pfp_normal_empty_G_productleft) = S ((S (fom_index_pfp_normal_empty_G_productleft)) * pfgu_qc_normal_empty_G)) /\ exists fom_beta_quotient_pfp_normal_empty_G_productleft_entry. pfgu_qb_normal_empty_G = fom_beta_quotient_pfp_normal_empty_G_productleft_entry * S ((S (fom_index_pfp_normal_empty_G_productleft)) * pfgu_qc_normal_empty_G) + (fom_value_pfp_normal_empty_G_productleft))) /\ (exists fom_gap_pfp_normal_empty_G_productleft_value_bound. fom_gap_pfp_normal_empty_G_productleft_value_bound + S (fom_value_pfp_normal_empty_G_productleft) = p))) /\ (((forall fom_index_pfp_normal_empty_G_productright. (exists fom_gap_pfp_normal_empty_G_productright_index_bound. fom_gap_pfp_normal_empty_G_productright_index_bound + S (fom_index_pfp_normal_empty_G_productright) = G) -> exists fom_value_pfp_normal_empty_G_productright. ((((exists fom_beta_height_pfp_normal_empty_G_productright_entry. fom_beta_height_pfp_normal_empty_G_productright_entry + S (fom_value_pfp_normal_empty_G_productright) = S ((S (fom_index_pfp_normal_empty_G_productright)) * gc)) /\ exists fom_beta_quotient_pfp_normal_empty_G_productright_entry. gb = fom_beta_quotient_pfp_normal_empty_G_productright_entry * S ((S (fom_index_pfp_normal_empty_G_productright)) * gc) + (fom_value_pfp_normal_empty_G_productright))) /\ (exists fom_gap_pfp_normal_empty_G_productright_value_bound. fom_gap_pfp_normal_empty_G_productright_value_bound + S (fom_value_pfp_normal_empty_G_productright) = p))) /\ (((((((pfgu_Q_normal_empty_G)=0 \/ (G)=0) /\ (((pfgu_P_normal_empty_G)=0)))) \/ (((~((pfgu_Q_normal_empty_G)=0)) /\ (((~((G)=0)) /\ (((pfgu_Q_normal_empty_G)+(G)=S (pfgu_P_normal_empty_G)))))))) /\ ((forall pfc_index_normal_empty_G_productcoefficients. (exists pfa_gap_normal_empty_G_productcoefficientsbound. pfa_gap_normal_empty_G_productcoefficientsbound + S (pfc_index_normal_empty_G_productcoefficients) = (pfgu_P_normal_empty_G)) -> exists pfc_value_normal_empty_G_productcoefficients. ((((exists ff_h_pfp_normal_empty_G_productcoefficientsentry. ff_h_pfp_normal_empty_G_productcoefficientsentry + S (pfc_value_normal_empty_G_productcoefficients) = S ((S (pfc_index_normal_empty_G_productcoefficients)) * pfgu_pc_normal_empty_G)) /\ exists ff_q_pfp_normal_empty_G_productcoefficientsentry. pfgu_pb_normal_empty_G = ff_q_pfp_normal_empty_G_productcoefficientsentry * S ((S (pfc_index_normal_empty_G_productcoefficients)) * pfgu_pc_normal_empty_G) + (pfc_value_normal_empty_G_productcoefficients))) /\ ((exists pfc_terms_code_normal_empty_G_productcoefficientscoefficient pfc_terms_scale_normal_empty_G_productcoefficientscoefficient pfc_natural_sum_normal_empty_G_productcoefficientscoefficient. ((forall pfc_index_normal_empty_G_productcoefficientscoefficientdiagonal. (exists pfa_gap_normal_empty_G_productcoefficientscoefficientdiagonalbound. pfa_gap_normal_empty_G_productcoefficientscoefficientdiagonalbound + S (pfc_index_normal_empty_G_productcoefficientscoefficientdiagonal) = (S (pfc_index_normal_empty_G_productcoefficients))) -> exists pfc_value_normal_empty_G_productcoefficientscoefficientdiagonal. ((((exists ff_h_pfp_normal_empty_G_productcoefficientscoefficientdiagonalentry. ff_h_pfp_normal_empty_G_productcoefficientscoefficientdiagonalentry + S (pfc_value_normal_empty_G_productcoefficientscoefficientdiagonal) = S ((S (pfc_index_normal_empty_G_productcoefficientscoefficientdiagonal)) * pfc_terms_scale_normal_empty_G_productcoefficientscoefficient)) /\ exists ff_q_pfp_normal_empty_G_productcoefficientscoefficientdiagonalentry. pfc_terms_code_normal_empty_G_productcoefficientscoefficient = ff_q_pfp_normal_empty_G_productcoefficientscoefficientdiagonalentry * S ((S (pfc_index_normal_empty_G_productcoefficientscoefficientdiagonal)) * pfc_terms_scale_normal_empty_G_productcoefficientscoefficient) + (pfc_value_normal_empty_G_productcoefficientscoefficientdiagonal))) /\ ((exists pfc_complement_normal_empty_G_productcoefficientscoefficientdiagonalterm pfc_left_normal_empty_G_productcoefficientscoefficientdiagonalterm pfc_right_normal_empty_G_productcoefficientscoefficientdiagonalterm. (((pfc_index_normal_empty_G_productcoefficientscoefficientdiagonal)+pfc_complement_normal_empty_G_productcoefficientscoefficientdiagonalterm=(pfc_index_normal_empty_G_productcoefficients)) /\ ((((((exists pfa_gap_normal_empty_G_productcoefficientscoefficientdiagonaltermleftinside. pfa_gap_normal_empty_G_productcoefficientscoefficientdiagonaltermleftinside + S (pfc_index_normal_empty_G_productcoefficientscoefficientdiagonal) = (pfgu_Q_normal_empty_G)) /\ ((((exists ff_h_pfp_normal_empty_G_productcoefficientscoefficientdiagonaltermleftentry. ff_h_pfp_normal_empty_G_productcoefficientscoefficientdiagonaltermleftentry + S (pfc_left_normal_empty_G_productcoefficientscoefficientdiagonalterm) = S ((S (pfc_index_normal_empty_G_productcoefficientscoefficientdiagonal)) * pfgu_qc_normal_empty_G)) /\ exists ff_q_pfp_normal_empty_G_productcoefficientscoefficientdiagonaltermleftentry. pfgu_qb_normal_empty_G = ff_q_pfp_normal_empty_G_productcoefficientscoefficientdiagonaltermleftentry * S ((S (pfc_index_normal_empty_G_productcoefficientscoefficientdiagonal)) * pfgu_qc_normal_empty_G) + (pfc_left_normal_empty_G_productcoefficientscoefficientdiagonalterm)))))) \/ (((exists pfc_gap_normal_empty_G_productcoefficientscoefficientdiagonaltermleftoutside. pfc_gap_normal_empty_G_productcoefficientscoefficientdiagonaltermleftoutside+(pfgu_Q_normal_empty_G)=(pfc_index_normal_empty_G_productcoefficientscoefficientdiagonal)) /\ (((pfc_left_normal_empty_G_productcoefficientscoefficientdiagonalterm)=0))))) /\ ((((((exists pfa_gap_normal_empty_G_productcoefficientscoefficientdiagonaltermrightinside. pfa_gap_normal_empty_G_productcoefficientscoefficientdiagonaltermrightinside + S (pfc_complement_normal_empty_G_productcoefficientscoefficientdiagonalterm) = (G)) /\ ((((exists ff_h_pfp_normal_empty_G_productcoefficientscoefficientdiagonaltermrightentry. ff_h_pfp_normal_empty_G_productcoefficientscoefficientdiagonaltermrightentry + S (pfc_right_normal_empty_G_productcoefficientscoefficientdiagonalterm) = S ((S (pfc_complement_normal_empty_G_productcoefficientscoefficientdiagonalterm)) * gc)) /\ exists ff_q_pfp_normal_empty_G_productcoefficientscoefficientdiagonaltermrightentry. gb = ff_q_pfp_normal_empty_G_productcoefficientscoefficientdiagonaltermrightentry * S ((S (pfc_complement_normal_empty_G_productcoefficientscoefficientdiagonalterm)) * gc) + (pfc_right_normal_empty_G_productcoefficientscoefficientdiagonalterm)))))) \/ (((exists pfc_gap_normal_empty_G_productcoefficientscoefficientdiagonaltermrightoutside. pfc_gap_normal_empty_G_productcoefficientscoefficientdiagonaltermrightoutside+(G)=(pfc_complement_normal_empty_G_productcoefficientscoefficientdiagonalterm)) /\ (((pfc_right_normal_empty_G_productcoefficientscoefficientdiagonalterm)=0))))) /\ (((pfc_value_normal_empty_G_productcoefficientscoefficientdiagonal)=pfc_left_normal_empty_G_productcoefficientscoefficientdiagonalterm*pfc_right_normal_empty_G_productcoefficientscoefficientdiagonalterm))))))))))) /\ (((exists fs_u_pfc_normal_empty_G_productcoefficientscoefficientsum fs_v_pfc_normal_empty_G_productcoefficientscoefficientsum. ((((exists fs_h_pfc_normal_empty_G_productcoefficientscoefficientsum_body_start. fs_h_pfc_normal_empty_G_productcoefficientscoefficientsum_body_start + S (0) = S ((S (0)) * fs_v_pfc_normal_empty_G_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_empty_G_productcoefficientscoefficientsum_body_start. fs_u_pfc_normal_empty_G_productcoefficientscoefficientsum = fs_q_pfc_normal_empty_G_productcoefficientscoefficientsum_body_start * S ((S (0)) * fs_v_pfc_normal_empty_G_productcoefficientscoefficientsum) + (0))) /\ ((((exists fs_h_pfc_normal_empty_G_productcoefficientscoefficientsum_body_terminal. fs_h_pfc_normal_empty_G_productcoefficientscoefficientsum_body_terminal + S (pfc_natural_sum_normal_empty_G_productcoefficientscoefficient) = S ((S (S (pfc_index_normal_empty_G_productcoefficients))) * fs_v_pfc_normal_empty_G_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_empty_G_productcoefficientscoefficientsum_body_terminal. fs_u_pfc_normal_empty_G_productcoefficientscoefficientsum = fs_q_pfc_normal_empty_G_productcoefficientscoefficientsum_body_terminal * S ((S (S (pfc_index_normal_empty_G_productcoefficients))) * fs_v_pfc_normal_empty_G_productcoefficientscoefficientsum) + (pfc_natural_sum_normal_empty_G_productcoefficientscoefficient))) /\ forall fs_i_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps. (exists fs_lt_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_bound. fs_lt_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_bound + S fs_i_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps = S (pfc_index_normal_empty_G_productcoefficients)) -> exists fs_a_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps fs_r_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps fs_s_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps. ((((exists fs_h_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_summand. fs_h_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_summand + S (fs_a_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps) = S ((S (fs_i_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps)) * pfc_terms_scale_normal_empty_G_productcoefficientscoefficient)) /\ exists fs_q_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_summand. pfc_terms_code_normal_empty_G_productcoefficientscoefficient = fs_q_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_summand * S ((S (fs_i_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps)) * pfc_terms_scale_normal_empty_G_productcoefficientscoefficient) + (fs_a_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps))) /\ ((((exists fs_h_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_partial. fs_h_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_partial + S (fs_r_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps) = S ((S (fs_i_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_empty_G_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_partial. fs_u_pfc_normal_empty_G_productcoefficientscoefficientsum = fs_q_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_partial * S ((S (fs_i_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_empty_G_productcoefficientscoefficientsum) + (fs_r_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps))) /\ ((((exists fs_h_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_successor. fs_h_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_successor + S (fs_s_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps) = S ((S (S fs_i_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_empty_G_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_successor. fs_u_pfc_normal_empty_G_productcoefficientscoefficientsum = fs_q_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps_successor * S ((S (S fs_i_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_empty_G_productcoefficientscoefficientsum) + (fs_s_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps))) /\ fs_s_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps = fs_r_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps + fs_a_pfc_normal_empty_G_productcoefficientscoefficientsum_body_steps)))))) /\ ((((exists pfa_gap_normal_empty_G_productcoefficientscoefficientresiduebound. pfa_gap_normal_empty_G_productcoefficientscoefficientresiduebound + S (pfc_value_normal_empty_G_productcoefficients) = (p)) /\ ((exists pfa_offset_left_normal_empty_G_productcoefficientscoefficientresiduecongruence pfa_offset_right_normal_empty_G_productcoefficientscoefficientresiduecongruence. (pfc_natural_sum_normal_empty_G_productcoefficientscoefficient) + (p) * pfa_offset_left_normal_empty_G_productcoefficientscoefficientresiduecongruence = (pfc_value_normal_empty_G_productcoefficients) + (p) * pfa_offset_right_normal_empty_G_productcoefficientscoefficientresiduecongruence))))))))))))))))))) /\ ((forall pfrep_power_normal_empty_G_target pfrep_left_normal_empty_G_target pfrep_right_normal_empty_G_target. ((exists pfrep_position_normal_empty_G_targetfirst. ((pfrep_position_normal_empty_G_targetfirst+S (pfrep_power_normal_empty_G_target)=(pfgu_P_normal_empty_G)) /\ ((((exists ff_h_pfp_normal_empty_G_targetfirstentry. ff_h_pfp_normal_empty_G_targetfirstentry + S (pfrep_left_normal_empty_G_target) = S ((S (pfrep_position_normal_empty_G_targetfirst)) * pfgu_pc_normal_empty_G)) /\ exists ff_q_pfp_normal_empty_G_targetfirstentry. pfgu_pb_normal_empty_G = ff_q_pfp_normal_empty_G_targetfirstentry * S ((S (pfrep_position_normal_empty_G_targetfirst)) * pfgu_pc_normal_empty_G) + (pfrep_left_normal_empty_G_target)))))) \/ (((exists pfrep_gap_normal_empty_G_targetfirstoutside. pfrep_gap_normal_empty_G_targetfirstoutside+(pfgu_P_normal_empty_G)=(pfrep_power_normal_empty_G_target)) /\ (((pfrep_left_normal_empty_G_target)=0))))) -> ((exists pfrep_position_normal_empty_G_targetsecond. ((pfrep_position_normal_empty_G_targetsecond+S (pfrep_power_normal_empty_G_target)=(H)) /\ ((((exists ff_h_pfp_normal_empty_G_targetsecondentry. ff_h_pfp_normal_empty_G_targetsecondentry + S (pfrep_right_normal_empty_G_target) = S ((S (pfrep_position_normal_empty_G_targetsecond)) * hc)) /\ exists ff_q_pfp_normal_empty_G_targetsecondentry. hb = ff_q_pfp_normal_empty_G_targetsecondentry * S ((S (pfrep_position_normal_empty_G_targetsecond)) * hc) + (pfrep_right_normal_empty_G_target)))))) \/ (((exists pfrep_gap_normal_empty_G_targetsecondoutside. pfrep_gap_normal_empty_G_targetsecondoutside+(H)=(pfrep_power_normal_empty_G_target)) /\ (((pfrep_right_normal_empty_G_target)=0))))) -> pfrep_left_normal_empty_G_target=pfrep_right_normal_empty_G_target)))))) - 0031
exact hgh - 0032
rewrite hg_left at hcopy - 0033
rewrite hg_left at hcopy - 0034
rewrite hg_left at hcopy - 0035
rewrite hg_left at hcopy - 0036
rewrite hg_left at hcopy - 0037
rewrite hg_left at hcopy - 0038
exact hcopy - 0039
cases hh - 0040
rewrite hh_left - 0041
rewrite hh_left - 0042
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (p) - 0043
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (hb) - 0044
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (hc) - 0045
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (gb) - 0046
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (gc) - 0047
specialize prime_field_polynomial_empty_right_divisor_implies_equivalent_zero (G) - 0048
apply prime_field_polynomial_empty_right_divisor_implies_equivalent_zero - 0049
have hcopy : ((forall fom_index_pfp_normal_empty_H_canonical. (exists fom_gap_pfp_normal_empty_H_canonical_index_bound. fom_gap_pfp_normal_empty_H_canonical_index_bound + S (fom_index_pfp_normal_empty_H_canonical) = G) -> exists fom_value_pfp_normal_empty_H_canonical. ((((exists fom_beta_height_pfp_normal_empty_H_canonical_entry. fom_beta_height_pfp_normal_empty_H_canonical_entry + S (fom_value_pfp_normal_empty_H_canonical) = S ((S (fom_index_pfp_normal_empty_H_canonical)) * gc)) /\ exists fom_beta_quotient_pfp_normal_empty_H_canonical_entry. gb = fom_beta_quotient_pfp_normal_empty_H_canonical_entry * S ((S (fom_index_pfp_normal_empty_H_canonical)) * gc) + (fom_value_pfp_normal_empty_H_canonical))) /\ (exists fom_gap_pfp_normal_empty_H_canonical_value_bound. fom_gap_pfp_normal_empty_H_canonical_value_bound + S (fom_value_pfp_normal_empty_H_canonical) = p))) /\ ((exists pfgu_qb_normal_empty_H pfgu_qc_normal_empty_H pfgu_Q_normal_empty_H pfgu_pb_normal_empty_H pfgu_pc_normal_empty_H pfgu_P_normal_empty_H. ((((forall fom_index_pfp_normal_empty_H_productleft. (exists fom_gap_pfp_normal_empty_H_productleft_index_bound. fom_gap_pfp_normal_empty_H_productleft_index_bound + S (fom_index_pfp_normal_empty_H_productleft) = pfgu_Q_normal_empty_H) -> exists fom_value_pfp_normal_empty_H_productleft. ((((exists fom_beta_height_pfp_normal_empty_H_productleft_entry. fom_beta_height_pfp_normal_empty_H_productleft_entry + S (fom_value_pfp_normal_empty_H_productleft) = S ((S (fom_index_pfp_normal_empty_H_productleft)) * pfgu_qc_normal_empty_H)) /\ exists fom_beta_quotient_pfp_normal_empty_H_productleft_entry. pfgu_qb_normal_empty_H = fom_beta_quotient_pfp_normal_empty_H_productleft_entry * S ((S (fom_index_pfp_normal_empty_H_productleft)) * pfgu_qc_normal_empty_H) + (fom_value_pfp_normal_empty_H_productleft))) /\ (exists fom_gap_pfp_normal_empty_H_productleft_value_bound. fom_gap_pfp_normal_empty_H_productleft_value_bound + S (fom_value_pfp_normal_empty_H_productleft) = p))) /\ (((forall fom_index_pfp_normal_empty_H_productright. (exists fom_gap_pfp_normal_empty_H_productright_index_bound. fom_gap_pfp_normal_empty_H_productright_index_bound + S (fom_index_pfp_normal_empty_H_productright) = H) -> exists fom_value_pfp_normal_empty_H_productright. ((((exists fom_beta_height_pfp_normal_empty_H_productright_entry. fom_beta_height_pfp_normal_empty_H_productright_entry + S (fom_value_pfp_normal_empty_H_productright) = S ((S (fom_index_pfp_normal_empty_H_productright)) * hc)) /\ exists fom_beta_quotient_pfp_normal_empty_H_productright_entry. hb = fom_beta_quotient_pfp_normal_empty_H_productright_entry * S ((S (fom_index_pfp_normal_empty_H_productright)) * hc) + (fom_value_pfp_normal_empty_H_productright))) /\ (exists fom_gap_pfp_normal_empty_H_productright_value_bound. fom_gap_pfp_normal_empty_H_productright_value_bound + S (fom_value_pfp_normal_empty_H_productright) = p))) /\ (((((((pfgu_Q_normal_empty_H)=0 \/ (H)=0) /\ (((pfgu_P_normal_empty_H)=0)))) \/ (((~((pfgu_Q_normal_empty_H)=0)) /\ (((~((H)=0)) /\ (((pfgu_Q_normal_empty_H)+(H)=S (pfgu_P_normal_empty_H)))))))) /\ ((forall pfc_index_normal_empty_H_productcoefficients. (exists pfa_gap_normal_empty_H_productcoefficientsbound. pfa_gap_normal_empty_H_productcoefficientsbound + S (pfc_index_normal_empty_H_productcoefficients) = (pfgu_P_normal_empty_H)) -> exists pfc_value_normal_empty_H_productcoefficients. ((((exists ff_h_pfp_normal_empty_H_productcoefficientsentry. ff_h_pfp_normal_empty_H_productcoefficientsentry + S (pfc_value_normal_empty_H_productcoefficients) = S ((S (pfc_index_normal_empty_H_productcoefficients)) * pfgu_pc_normal_empty_H)) /\ exists ff_q_pfp_normal_empty_H_productcoefficientsentry. pfgu_pb_normal_empty_H = ff_q_pfp_normal_empty_H_productcoefficientsentry * S ((S (pfc_index_normal_empty_H_productcoefficients)) * pfgu_pc_normal_empty_H) + (pfc_value_normal_empty_H_productcoefficients))) /\ ((exists pfc_terms_code_normal_empty_H_productcoefficientscoefficient pfc_terms_scale_normal_empty_H_productcoefficientscoefficient pfc_natural_sum_normal_empty_H_productcoefficientscoefficient. ((forall pfc_index_normal_empty_H_productcoefficientscoefficientdiagonal. (exists pfa_gap_normal_empty_H_productcoefficientscoefficientdiagonalbound. pfa_gap_normal_empty_H_productcoefficientscoefficientdiagonalbound + S (pfc_index_normal_empty_H_productcoefficientscoefficientdiagonal) = (S (pfc_index_normal_empty_H_productcoefficients))) -> exists pfc_value_normal_empty_H_productcoefficientscoefficientdiagonal. ((((exists ff_h_pfp_normal_empty_H_productcoefficientscoefficientdiagonalentry. ff_h_pfp_normal_empty_H_productcoefficientscoefficientdiagonalentry + S (pfc_value_normal_empty_H_productcoefficientscoefficientdiagonal) = S ((S (pfc_index_normal_empty_H_productcoefficientscoefficientdiagonal)) * pfc_terms_scale_normal_empty_H_productcoefficientscoefficient)) /\ exists ff_q_pfp_normal_empty_H_productcoefficientscoefficientdiagonalentry. pfc_terms_code_normal_empty_H_productcoefficientscoefficient = ff_q_pfp_normal_empty_H_productcoefficientscoefficientdiagonalentry * S ((S (pfc_index_normal_empty_H_productcoefficientscoefficientdiagonal)) * pfc_terms_scale_normal_empty_H_productcoefficientscoefficient) + (pfc_value_normal_empty_H_productcoefficientscoefficientdiagonal))) /\ ((exists pfc_complement_normal_empty_H_productcoefficientscoefficientdiagonalterm pfc_left_normal_empty_H_productcoefficientscoefficientdiagonalterm pfc_right_normal_empty_H_productcoefficientscoefficientdiagonalterm. (((pfc_index_normal_empty_H_productcoefficientscoefficientdiagonal)+pfc_complement_normal_empty_H_productcoefficientscoefficientdiagonalterm=(pfc_index_normal_empty_H_productcoefficients)) /\ ((((((exists pfa_gap_normal_empty_H_productcoefficientscoefficientdiagonaltermleftinside. pfa_gap_normal_empty_H_productcoefficientscoefficientdiagonaltermleftinside + S (pfc_index_normal_empty_H_productcoefficientscoefficientdiagonal) = (pfgu_Q_normal_empty_H)) /\ ((((exists ff_h_pfp_normal_empty_H_productcoefficientscoefficientdiagonaltermleftentry. ff_h_pfp_normal_empty_H_productcoefficientscoefficientdiagonaltermleftentry + S (pfc_left_normal_empty_H_productcoefficientscoefficientdiagonalterm) = S ((S (pfc_index_normal_empty_H_productcoefficientscoefficientdiagonal)) * pfgu_qc_normal_empty_H)) /\ exists ff_q_pfp_normal_empty_H_productcoefficientscoefficientdiagonaltermleftentry. pfgu_qb_normal_empty_H = ff_q_pfp_normal_empty_H_productcoefficientscoefficientdiagonaltermleftentry * S ((S (pfc_index_normal_empty_H_productcoefficientscoefficientdiagonal)) * pfgu_qc_normal_empty_H) + (pfc_left_normal_empty_H_productcoefficientscoefficientdiagonalterm)))))) \/ (((exists pfc_gap_normal_empty_H_productcoefficientscoefficientdiagonaltermleftoutside. pfc_gap_normal_empty_H_productcoefficientscoefficientdiagonaltermleftoutside+(pfgu_Q_normal_empty_H)=(pfc_index_normal_empty_H_productcoefficientscoefficientdiagonal)) /\ (((pfc_left_normal_empty_H_productcoefficientscoefficientdiagonalterm)=0))))) /\ ((((((exists pfa_gap_normal_empty_H_productcoefficientscoefficientdiagonaltermrightinside. pfa_gap_normal_empty_H_productcoefficientscoefficientdiagonaltermrightinside + S (pfc_complement_normal_empty_H_productcoefficientscoefficientdiagonalterm) = (H)) /\ ((((exists ff_h_pfp_normal_empty_H_productcoefficientscoefficientdiagonaltermrightentry. ff_h_pfp_normal_empty_H_productcoefficientscoefficientdiagonaltermrightentry + S (pfc_right_normal_empty_H_productcoefficientscoefficientdiagonalterm) = S ((S (pfc_complement_normal_empty_H_productcoefficientscoefficientdiagonalterm)) * hc)) /\ exists ff_q_pfp_normal_empty_H_productcoefficientscoefficientdiagonaltermrightentry. hb = ff_q_pfp_normal_empty_H_productcoefficientscoefficientdiagonaltermrightentry * S ((S (pfc_complement_normal_empty_H_productcoefficientscoefficientdiagonalterm)) * hc) + (pfc_right_normal_empty_H_productcoefficientscoefficientdiagonalterm)))))) \/ (((exists pfc_gap_normal_empty_H_productcoefficientscoefficientdiagonaltermrightoutside. pfc_gap_normal_empty_H_productcoefficientscoefficientdiagonaltermrightoutside+(H)=(pfc_complement_normal_empty_H_productcoefficientscoefficientdiagonalterm)) /\ (((pfc_right_normal_empty_H_productcoefficientscoefficientdiagonalterm)=0))))) /\ (((pfc_value_normal_empty_H_productcoefficientscoefficientdiagonal)=pfc_left_normal_empty_H_productcoefficientscoefficientdiagonalterm*pfc_right_normal_empty_H_productcoefficientscoefficientdiagonalterm))))))))))) /\ (((exists fs_u_pfc_normal_empty_H_productcoefficientscoefficientsum fs_v_pfc_normal_empty_H_productcoefficientscoefficientsum. ((((exists fs_h_pfc_normal_empty_H_productcoefficientscoefficientsum_body_start. fs_h_pfc_normal_empty_H_productcoefficientscoefficientsum_body_start + S (0) = S ((S (0)) * fs_v_pfc_normal_empty_H_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_empty_H_productcoefficientscoefficientsum_body_start. fs_u_pfc_normal_empty_H_productcoefficientscoefficientsum = fs_q_pfc_normal_empty_H_productcoefficientscoefficientsum_body_start * S ((S (0)) * fs_v_pfc_normal_empty_H_productcoefficientscoefficientsum) + (0))) /\ ((((exists fs_h_pfc_normal_empty_H_productcoefficientscoefficientsum_body_terminal. fs_h_pfc_normal_empty_H_productcoefficientscoefficientsum_body_terminal + S (pfc_natural_sum_normal_empty_H_productcoefficientscoefficient) = S ((S (S (pfc_index_normal_empty_H_productcoefficients))) * fs_v_pfc_normal_empty_H_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_empty_H_productcoefficientscoefficientsum_body_terminal. fs_u_pfc_normal_empty_H_productcoefficientscoefficientsum = fs_q_pfc_normal_empty_H_productcoefficientscoefficientsum_body_terminal * S ((S (S (pfc_index_normal_empty_H_productcoefficients))) * fs_v_pfc_normal_empty_H_productcoefficientscoefficientsum) + (pfc_natural_sum_normal_empty_H_productcoefficientscoefficient))) /\ forall fs_i_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps. (exists fs_lt_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_bound. fs_lt_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_bound + S fs_i_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps = S (pfc_index_normal_empty_H_productcoefficients)) -> exists fs_a_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps fs_r_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps fs_s_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps. ((((exists fs_h_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_summand. fs_h_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_summand + S (fs_a_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps) = S ((S (fs_i_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps)) * pfc_terms_scale_normal_empty_H_productcoefficientscoefficient)) /\ exists fs_q_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_summand. pfc_terms_code_normal_empty_H_productcoefficientscoefficient = fs_q_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_summand * S ((S (fs_i_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps)) * pfc_terms_scale_normal_empty_H_productcoefficientscoefficient) + (fs_a_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps))) /\ ((((exists fs_h_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_partial. fs_h_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_partial + S (fs_r_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps) = S ((S (fs_i_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_empty_H_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_partial. fs_u_pfc_normal_empty_H_productcoefficientscoefficientsum = fs_q_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_partial * S ((S (fs_i_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_empty_H_productcoefficientscoefficientsum) + (fs_r_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps))) /\ ((((exists fs_h_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_successor. fs_h_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_successor + S (fs_s_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps) = S ((S (S fs_i_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_empty_H_productcoefficientscoefficientsum)) /\ exists fs_q_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_successor. fs_u_pfc_normal_empty_H_productcoefficientscoefficientsum = fs_q_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps_successor * S ((S (S fs_i_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps)) * fs_v_pfc_normal_empty_H_productcoefficientscoefficientsum) + (fs_s_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps))) /\ fs_s_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps = fs_r_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps + fs_a_pfc_normal_empty_H_productcoefficientscoefficientsum_body_steps)))))) /\ ((((exists pfa_gap_normal_empty_H_productcoefficientscoefficientresiduebound. pfa_gap_normal_empty_H_productcoefficientscoefficientresiduebound + S (pfc_value_normal_empty_H_productcoefficients) = (p)) /\ ((exists pfa_offset_left_normal_empty_H_productcoefficientscoefficientresiduecongruence pfa_offset_right_normal_empty_H_productcoefficientscoefficientresiduecongruence. (pfc_natural_sum_normal_empty_H_productcoefficientscoefficient) + (p) * pfa_offset_left_normal_empty_H_productcoefficientscoefficientresiduecongruence = (pfc_value_normal_empty_H_productcoefficients) + (p) * pfa_offset_right_normal_empty_H_productcoefficientscoefficientresiduecongruence))))))))))))))))))) /\ ((forall pfrep_power_normal_empty_H_target pfrep_left_normal_empty_H_target pfrep_right_normal_empty_H_target. ((exists pfrep_position_normal_empty_H_targetfirst. ((pfrep_position_normal_empty_H_targetfirst+S (pfrep_power_normal_empty_H_target)=(pfgu_P_normal_empty_H)) /\ ((((exists ff_h_pfp_normal_empty_H_targetfirstentry. ff_h_pfp_normal_empty_H_targetfirstentry + S (pfrep_left_normal_empty_H_target) = S ((S (pfrep_position_normal_empty_H_targetfirst)) * pfgu_pc_normal_empty_H)) /\ exists ff_q_pfp_normal_empty_H_targetfirstentry. pfgu_pb_normal_empty_H = ff_q_pfp_normal_empty_H_targetfirstentry * S ((S (pfrep_position_normal_empty_H_targetfirst)) * pfgu_pc_normal_empty_H) + (pfrep_left_normal_empty_H_target)))))) \/ (((exists pfrep_gap_normal_empty_H_targetfirstoutside. pfrep_gap_normal_empty_H_targetfirstoutside+(pfgu_P_normal_empty_H)=(pfrep_power_normal_empty_H_target)) /\ (((pfrep_left_normal_empty_H_target)=0))))) -> ((exists pfrep_position_normal_empty_H_targetsecond. ((pfrep_position_normal_empty_H_targetsecond+S (pfrep_power_normal_empty_H_target)=(G)) /\ ((((exists ff_h_pfp_normal_empty_H_targetsecondentry. ff_h_pfp_normal_empty_H_targetsecondentry + S (pfrep_right_normal_empty_H_target) = S ((S (pfrep_position_normal_empty_H_targetsecond)) * gc)) /\ exists ff_q_pfp_normal_empty_H_targetsecondentry. gb = ff_q_pfp_normal_empty_H_targetsecondentry * S ((S (pfrep_position_normal_empty_H_targetsecond)) * gc) + (pfrep_right_normal_empty_H_target)))))) \/ (((exists pfrep_gap_normal_empty_H_targetsecondoutside. pfrep_gap_normal_empty_H_targetsecondoutside+(G)=(pfrep_power_normal_empty_H_target)) /\ (((pfrep_right_normal_empty_H_target)=0))))) -> pfrep_left_normal_empty_H_target=pfrep_right_normal_empty_H_target)))))) - 0050
exact hhg - 0051
rewrite hh_left at hcopy - 0052
rewrite hh_left at hcopy - 0053
rewrite hh_left at hcopy - 0054
rewrite hh_left at hcopy - 0055
rewrite hh_left at hcopy - 0056
rewrite hh_left at hcopy - 0057
exact hcopy - 0058
specialize prime_field_polynomial_monic_right_associates_equivalent (p) - 0059
specialize prime_field_polynomial_monic_right_associates_equivalent (gb) - 0060
specialize prime_field_polynomial_monic_right_associates_equivalent (gc) - 0061
specialize prime_field_polynomial_monic_right_associates_equivalent (G) - 0062
specialize prime_field_polynomial_monic_right_associates_equivalent (hb) - 0063
specialize prime_field_polynomial_monic_right_associates_equivalent (hc) - 0064
specialize prime_field_polynomial_monic_right_associates_equivalent (H) - 0065
apply prime_field_polynomial_monic_right_associates_equivalent - 0066
exact hp - 0067
exact hg_right - 0068
exact hh_right - 0069
exact hgh - 0070
exact hhg