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 ub uc ab ac L i a r. (((exists ff_h_pfp_unit_coefficient_unit. ff_h_pfp_unit_coefficient_unit + S (1) = S ((S (0)) * uc)) /\ exists ff_q_pfp_unit_coefficient_unit. ub = ff_q_pfp_unit_coefficient_unit * S ((S (0)) * uc) + (1))) -> (exists pfa_gap_unit_coefficient_index. pfa_gap_unit_coefficient_index + S (i) = (L)) -> (((exists ff_h_pfp_unit_coefficient_A. ff_h_pfp_unit_coefficient_A + S (a) = S ((S (i)) * ac)) /\ exists ff_q_pfp_unit_coefficient_A. ab = ff_q_pfp_unit_coefficient_A * S ((S (i)) * ac) + (a))) -> (exists pfa_gap_unit_coefficient_bound. pfa_gap_unit_coefficient_bound + S (a) = (p)) -> (exists pfc_terms_code_unit_coefficient_actual pfc_terms_scale_unit_coefficient_actual pfc_natural_sum_unit_coefficient_actual. ((forall pfc_index_unit_coefficient_actualdiagonal. (exists pfa_gap_unit_coefficient_actualdiagonalbound. pfa_gap_unit_coefficient_actualdiagonalbound + S (pfc_index_unit_coefficient_actualdiagonal) = (S (i))) -> exists pfc_value_unit_coefficient_actualdiagonal. ((((exists ff_h_pfp_unit_coefficient_actualdiagonalentry. ff_h_pfp_unit_coefficient_actualdiagonalentry + S (pfc_value_unit_coefficient_actualdiagonal) = S ((S (pfc_index_unit_coefficient_actualdiagonal)) * pfc_terms_scale_unit_coefficient_actual)) /\ exists ff_q_pfp_unit_coefficient_actualdiagonalentry. pfc_terms_code_unit_coefficient_actual = ff_q_pfp_unit_coefficient_actualdiagonalentry * S ((S (pfc_index_unit_coefficient_actualdiagonal)) * pfc_terms_scale_unit_coefficient_actual) + (pfc_value_unit_coefficient_actualdiagonal))) /\ ((exists pfc_complement_unit_coefficient_actualdiagonalterm pfc_left_unit_coefficient_actualdiagonalterm pfc_right_unit_coefficient_actualdiagonalterm. (((pfc_index_unit_coefficient_actualdiagonal)+pfc_complement_unit_coefficient_actualdiagonalterm=(i)) /\ ((((((exists pfa_gap_unit_coefficient_actualdiagonaltermleftinside. pfa_gap_unit_coefficient_actualdiagonaltermleftinside + S (pfc_index_unit_coefficient_actualdiagonal) = (1)) /\ ((((exists ff_h_pfp_unit_coefficient_actualdiagonaltermleftentry. ff_h_pfp_unit_coefficient_actualdiagonaltermleftentry + S (pfc_left_unit_coefficient_actualdiagonalterm) = S ((S (pfc_index_unit_coefficient_actualdiagonal)) * uc)) /\ exists ff_q_pfp_unit_coefficient_actualdiagonaltermleftentry. ub = ff_q_pfp_unit_coefficient_actualdiagonaltermleftentry * S ((S (pfc_index_unit_coefficient_actualdiagonal)) * uc) + (pfc_left_unit_coefficient_actualdiagonalterm)))))) \/ (((exists pfc_gap_unit_coefficient_actualdiagonaltermleftoutside. pfc_gap_unit_coefficient_actualdiagonaltermleftoutside+(1)=(pfc_index_unit_coefficient_actualdiagonal)) /\ (((pfc_left_unit_coefficient_actualdiagonalterm)=0))))) /\ ((((((exists pfa_gap_unit_coefficient_actualdiagonaltermrightinside. pfa_gap_unit_coefficient_actualdiagonaltermrightinside + S (pfc_complement_unit_coefficient_actualdiagonalterm) = (L)) /\ ((((exists ff_h_pfp_unit_coefficient_actualdiagonaltermrightentry. ff_h_pfp_unit_coefficient_actualdiagonaltermrightentry + S (pfc_right_unit_coefficient_actualdiagonalterm) = S ((S (pfc_complement_unit_coefficient_actualdiagonalterm)) * ac)) /\ exists ff_q_pfp_unit_coefficient_actualdiagonaltermrightentry. ab = ff_q_pfp_unit_coefficient_actualdiagonaltermrightentry * S ((S (pfc_complement_unit_coefficient_actualdiagonalterm)) * ac) + (pfc_right_unit_coefficient_actualdiagonalterm)))))) \/ (((exists pfc_gap_unit_coefficient_actualdiagonaltermrightoutside. pfc_gap_unit_coefficient_actualdiagonaltermrightoutside+(L)=(pfc_complement_unit_coefficient_actualdiagonalterm)) /\ (((pfc_right_unit_coefficient_actualdiagonalterm)=0))))) /\ (((pfc_value_unit_coefficient_actualdiagonal)=pfc_left_unit_coefficient_actualdiagonalterm*pfc_right_unit_coefficient_actualdiagonalterm))))))))))) /\ (((exists fs_u_pfc_unit_coefficient_actualsum fs_v_pfc_unit_coefficient_actualsum. ((((exists fs_h_pfc_unit_coefficient_actualsum_body_start. fs_h_pfc_unit_coefficient_actualsum_body_start + S (0) = S ((S (0)) * fs_v_pfc_unit_coefficient_actualsum)) /\ exists fs_q_pfc_unit_coefficient_actualsum_body_start. fs_u_pfc_unit_coefficient_actualsum = fs_q_pfc_unit_coefficient_actualsum_body_start * S ((S (0)) * fs_v_pfc_unit_coefficient_actualsum) + (0))) /\ ((((exists fs_h_pfc_unit_coefficient_actualsum_body_terminal. fs_h_pfc_unit_coefficient_actualsum_body_terminal + S (pfc_natural_sum_unit_coefficient_actual) = S ((S (S (i))) * fs_v_pfc_unit_coefficient_actualsum)) /\ exists fs_q_pfc_unit_coefficient_actualsum_body_terminal. fs_u_pfc_unit_coefficient_actualsum = fs_q_pfc_unit_coefficient_actualsum_body_terminal * S ((S (S (i))) * fs_v_pfc_unit_coefficient_actualsum) + (pfc_natural_sum_unit_coefficient_actual))) /\ forall fs_i_pfc_unit_coefficient_actualsum_body_steps. (exists fs_lt_pfc_unit_coefficient_actualsum_body_steps_bound. fs_lt_pfc_unit_coefficient_actualsum_body_steps_bound + S fs_i_pfc_unit_coefficient_actualsum_body_steps = S (i)) -> exists fs_a_pfc_unit_coefficient_actualsum_body_steps fs_r_pfc_unit_coefficient_actualsum_body_steps fs_s_pfc_unit_coefficient_actualsum_body_steps. ((((exists fs_h_pfc_unit_coefficient_actualsum_body_steps_summand. fs_h_pfc_unit_coefficient_actualsum_body_steps_summand + S (fs_a_pfc_unit_coefficient_actualsum_body_steps) = S ((S (fs_i_pfc_unit_coefficient_actualsum_body_steps)) * pfc_terms_scale_unit_coefficient_actual)) /\ exists fs_q_pfc_unit_coefficient_actualsum_body_steps_summand. pfc_terms_code_unit_coefficient_actual = fs_q_pfc_unit_coefficient_actualsum_body_steps_summand * S ((S (fs_i_pfc_unit_coefficient_actualsum_body_steps)) * pfc_terms_scale_unit_coefficient_actual) + (fs_a_pfc_unit_coefficient_actualsum_body_steps))) /\ ((((exists fs_h_pfc_unit_coefficient_actualsum_body_steps_partial. fs_h_pfc_unit_coefficient_actualsum_body_steps_partial + S (fs_r_pfc_unit_coefficient_actualsum_body_steps) = S ((S (fs_i_pfc_unit_coefficient_actualsum_body_steps)) * fs_v_pfc_unit_coefficient_actualsum)) /\ exists fs_q_pfc_unit_coefficient_actualsum_body_steps_partial. fs_u_pfc_unit_coefficient_actualsum = fs_q_pfc_unit_coefficient_actualsum_body_steps_partial * S ((S (fs_i_pfc_unit_coefficient_actualsum_body_steps)) * fs_v_pfc_unit_coefficient_actualsum) + (fs_r_pfc_unit_coefficient_actualsum_body_steps))) /\ ((((exists fs_h_pfc_unit_coefficient_actualsum_body_steps_successor. fs_h_pfc_unit_coefficient_actualsum_body_steps_successor + S (fs_s_pfc_unit_coefficient_actualsum_body_steps) = S ((S (S fs_i_pfc_unit_coefficient_actualsum_body_steps)) * fs_v_pfc_unit_coefficient_actualsum)) /\ exists fs_q_pfc_unit_coefficient_actualsum_body_steps_successor. fs_u_pfc_unit_coefficient_actualsum = fs_q_pfc_unit_coefficient_actualsum_body_steps_successor * S ((S (S fs_i_pfc_unit_coefficient_actualsum_body_steps)) * fs_v_pfc_unit_coefficient_actualsum) + (fs_s_pfc_unit_coefficient_actualsum_body_steps))) /\ fs_s_pfc_unit_coefficient_actualsum_body_steps = fs_r_pfc_unit_coefficient_actualsum_body_steps + fs_a_pfc_unit_coefficient_actualsum_body_steps)))))) /\ ((((exists pfa_gap_unit_coefficient_actualresiduebound. pfa_gap_unit_coefficient_actualresiduebound + S (r) = (p)) /\ ((exists pfa_offset_left_unit_coefficient_actualresiduecongruence pfa_offset_right_unit_coefficient_actualresiduecongruence. (pfc_natural_sum_unit_coefficient_actual) + (p) * pfa_offset_left_unit_coefficient_actualresiduecongruence = (r) + (p) * pfa_offset_right_unit_coefficient_actualresiduecongruence))))))))) -> (r=a)Constructive proof overview
Generated structural guide
The actual residue of the unit-left natural sum is its already bounded right-input value. No polynomial equality is hidden among the premises.
The unchanged tactic script uses 2 declared prerequisites and contains 43 exact native proof lines.
Alpha v34 checked-use · first admitted v34 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
PG002F polynomial_diagonal_left_unit_natural_sum prime_field_residue_bounded_value Alpha theorem; checked-use authorizedDirect 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 (1)
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–14
03Separate the logical casesL15–19
04Establish hnL20–29
Establish this local claim before using it. It is not an additional assumption.
- L20
have hn : x2=a - L21
specialize polynomial_diagonal_left_unit_natural_sum (ub) - L22
specialize polynomial_diagonal_left_unit_natural_sum (uc) - L23
specialize polynomial_diagonal_left_unit_natural_sum (ab) - L24
specialize polynomial_diagonal_left_unit_natural_sum (ac) - L25
specialize polynomial_diagonal_left_unit_natural_sum (L) - L26
specialize polynomial_diagonal_left_unit_natural_sum (i) - L27
specialize polynomial_diagonal_left_unit_natural_sum (a) - L28
specialize polynomial_diagonal_left_unit_natural_sum (x) - L29
specialize polynomial_diagonal_left_unit_natural_sum (x1)
05Use earlier factsL30–36
Instantiate or apply named facts and discharge the corresponding proof obligations.
06Calculate and transport equalitiesL37–37
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L37
rewrite hn at hr_witness_witness_witness_right_right
07Use earlier factsL38–43
Instantiate or apply named facts and discharge the corresponding proof obligations.
Original exact command ledger · 43 lines
- 0001
intro p - 0002
intro ub - 0003
intro uc - 0004
intro ab - 0005
intro ac - 0006
intro L - 0007
intro i - 0008
intro a - 0009
intro r - 0010
intro hu - 0011
intro hi - 0012
intro ha - 0013
intro hb - 0014
intro hr - 0015
cases hr - 0016
cases hr_witness - 0017
cases hr_witness_witness - 0018
cases hr_witness_witness_witness - 0019
cases hr_witness_witness_witness_right - 0020
have hn : x2=a - 0021
specialize polynomial_diagonal_left_unit_natural_sum (ub) - 0022
specialize polynomial_diagonal_left_unit_natural_sum (uc) - 0023
specialize polynomial_diagonal_left_unit_natural_sum (ab) - 0024
specialize polynomial_diagonal_left_unit_natural_sum (ac) - 0025
specialize polynomial_diagonal_left_unit_natural_sum (L) - 0026
specialize polynomial_diagonal_left_unit_natural_sum (i) - 0027
specialize polynomial_diagonal_left_unit_natural_sum (a) - 0028
specialize polynomial_diagonal_left_unit_natural_sum (x) - 0029
specialize polynomial_diagonal_left_unit_natural_sum (x1) - 0030
specialize polynomial_diagonal_left_unit_natural_sum (x2) - 0031
apply polynomial_diagonal_left_unit_natural_sum - 0032
exact hu - 0033
exact hi - 0034
exact ha - 0035
exact hr_witness_witness_witness_left - 0036
exact hr_witness_witness_witness_right_left - 0037
rewrite hn at hr_witness_witness_witness_right_right - 0038
specialize prime_field_residue_bounded_value (p) - 0039
specialize prime_field_residue_bounded_value (a) - 0040
specialize prime_field_residue_bounded_value (r) - 0041
apply prime_field_residue_bounded_value - 0042
exact hb - 0043
exact hr_witness_witness_witness_right_right