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 ab ac L bb bc M BB BC t i j z. (((forall pfp_repeat_index_zero_term_pad_rightzeros. (exists pfa_gap_zero_term_pad_rightzerosindex. pfa_gap_zero_term_pad_rightzerosindex + S (pfp_repeat_index_zero_term_pad_rightzeros) = (t)) -> (((exists ff_h_pfp_zero_term_pad_rightzerosentry. ff_h_pfp_zero_term_pad_rightzerosentry + S (0) = S ((S (pfp_repeat_index_zero_term_pad_rightzeros)) * BC)) /\ exists ff_q_pfp_zero_term_pad_rightzerosentry. BB = ff_q_pfp_zero_term_pad_rightzerosentry * S ((S (pfp_repeat_index_zero_term_pad_rightzeros)) * BC) + (0)))) /\ ((forall pfrep_index_zero_term_pad_right pfrep_value_zero_term_pad_right. (exists pfa_gap_zero_term_pad_rightbound. pfa_gap_zero_term_pad_rightbound + S (pfrep_index_zero_term_pad_right) = (M)) -> (((exists ff_h_pfp_zero_term_pad_rightinput. ff_h_pfp_zero_term_pad_rightinput + S (pfrep_value_zero_term_pad_right) = S ((S (pfrep_index_zero_term_pad_right)) * bc)) /\ exists ff_q_pfp_zero_term_pad_rightinput. bb = ff_q_pfp_zero_term_pad_rightinput * S ((S (pfrep_index_zero_term_pad_right)) * bc) + (pfrep_value_zero_term_pad_right))) -> (((exists ff_h_pfp_zero_term_pad_rightoutput. ff_h_pfp_zero_term_pad_rightoutput + S (pfrep_value_zero_term_pad_right) = S ((S ((t)+pfrep_index_zero_term_pad_right)) * BC)) /\ exists ff_q_pfp_zero_term_pad_rightoutput. BB = ff_q_pfp_zero_term_pad_rightoutput * S ((S ((t)+pfrep_index_zero_term_pad_right)) * BC) + (pfrep_value_zero_term_pad_right))))))) -> (exists pfa_gap_term_zero_right_bound. pfa_gap_term_zero_right_bound + S (i) = (t+j)) -> (exists pfc_complement_zero_term_actual_right pfc_left_zero_term_actual_right pfc_right_zero_term_actual_right. (((j)+pfc_complement_zero_term_actual_right=(i)) /\ ((((((exists pfa_gap_zero_term_actual_rightleftinside. pfa_gap_zero_term_actual_rightleftinside + S (j) = (L)) /\ ((((exists ff_h_pfp_zero_term_actual_rightleftentry. ff_h_pfp_zero_term_actual_rightleftentry + S (pfc_left_zero_term_actual_right) = S ((S (j)) * ac)) /\ exists ff_q_pfp_zero_term_actual_rightleftentry. ab = ff_q_pfp_zero_term_actual_rightleftentry * S ((S (j)) * ac) + (pfc_left_zero_term_actual_right)))))) \/ (((exists pfc_gap_zero_term_actual_rightleftoutside. pfc_gap_zero_term_actual_rightleftoutside+(L)=(j)) /\ (((pfc_left_zero_term_actual_right)=0))))) /\ ((((((exists pfa_gap_zero_term_actual_rightrightinside. pfa_gap_zero_term_actual_rightrightinside + S (pfc_complement_zero_term_actual_right) = (t+M)) /\ ((((exists ff_h_pfp_zero_term_actual_rightrightentry. ff_h_pfp_zero_term_actual_rightrightentry + S (pfc_right_zero_term_actual_right) = S ((S (pfc_complement_zero_term_actual_right)) * BC)) /\ exists ff_q_pfp_zero_term_actual_rightrightentry. BB = ff_q_pfp_zero_term_actual_rightrightentry * S ((S (pfc_complement_zero_term_actual_right)) * BC) + (pfc_right_zero_term_actual_right)))))) \/ (((exists pfc_gap_zero_term_actual_rightrightoutside. pfc_gap_zero_term_actual_rightrightoutside+(t+M)=(pfc_complement_zero_term_actual_right)) /\ (((pfc_right_zero_term_actual_right)=0))))) /\ (((z)=pfc_left_zero_term_actual_right*pfc_right_zero_term_actual_right)))))))) -> (z=0)Constructive proof overview
Generated structural guide
A genuine antidiagonal term is zero when its right factor index lies in the actual leading padding block.
The unchanged tactic script uses 6 declared prerequisites and contains 59 exact native proof lines.
Alpha v34 checked-use · first admitted v33 · independently kernel and Lean verified; not Stable
Proof neighborhood
Direct dependencies
polynomial_zero_extended_entry_functional Alpha theorem; checked-use authorized PX005C polynomial_zero_extended_left_pad_before add_right_cancel Alpha theorem; checked-use authorized add_assoc Alpha theorem; checked-use authorized add_comm Alpha theorem; checked-use authorized add_succ_left 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–15
03Separate the logical casesL16–21
04Establish hindexL22–22
Establish this local claim before using it. It is not an additional assumption.
- L22
have hindex : exists pfa_gap_term_zero_complement. pfa_gap_term_zero_complement + S (x) = (t)
05Separate the logical casesL23–23
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L23
cases hbound
06Construct an explicit witnessL24–24
Supply the displayed value, then prove that it has the required property.
- L24
exists x3
07Use earlier factsL25–28
08Calculate and transport equalitiesL29–34
09Use earlier factsL35–36
10Establish hzeroL37–46
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply polynomial zero extended entry functional.
- L37
have hzero : x2=0 - L38
specialize polynomial_zero_extended_entry_functional (BB) - L39
specialize polynomial_zero_extended_entry_functional (BC) - L40
specialize polynomial_zero_extended_entry_functional (t+M) - L41
specialize polynomial_zero_extended_entry_functional (x) - L42
specialize polynomial_zero_extended_entry_functional (x2) - L43
specialize polynomial_zero_extended_entry_functional (0) - L44
apply polynomial_zero_extended_entry_functional - L45
exact ht_witness_witness_witness_right_right_left - L46
specialize polynomial_zero_extended_left_pad_before (bb)
11Use earlier factsL47–55
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L47
specialize polynomial_zero_extended_left_pad_before (bc) - L48
specialize polynomial_zero_extended_left_pad_before (M) - L49
specialize polynomial_zero_extended_left_pad_before (t) - L50
specialize polynomial_zero_extended_left_pad_before (BB) - L51
specialize polynomial_zero_extended_left_pad_before (BC) - L52
specialize polynomial_zero_extended_left_pad_before (x) - L53
apply polynomial_zero_extended_left_pad_before - L54
exact hpad - L55
exact hindex
12Calculate and transport equalitiesL56–56
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L56
trans x1*x2
13Use earlier factsL57–57
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L57
exact ht_witness_witness_witness_right_right_right
Original exact command ledger · 59 lines
- 0001
intro ab - 0002
intro ac - 0003
intro L - 0004
intro bb - 0005
intro bc - 0006
intro M - 0007
intro BB - 0008
intro BC - 0009
intro t - 0010
intro i - 0011
intro j - 0012
intro z - 0013
intro hpad - 0014
intro hbound - 0015
intro ht - 0016
cases ht - 0017
cases ht_witness - 0018
cases ht_witness_witness - 0019
cases ht_witness_witness_witness - 0020
cases ht_witness_witness_witness_right - 0021
cases ht_witness_witness_witness_right_right - 0022
have hindex : exists pfa_gap_term_zero_complement. pfa_gap_term_zero_complement + S (x) = (t) - 0023
cases hbound - 0024
exists x3 - 0025
specialize add_right_cancel (x3+S x) - 0026
specialize add_right_cancel (t) - 0027
specialize add_right_cancel (j) - 0028
apply add_right_cancel - 0029
trans x3+S (j+x) - 0030
simp [add_assoc,add_comm,add_succ_left] - 0031
trans x3+S i - 0032
congr - 0033
refl - 0034
congr - 0035
exact ht_witness_witness_witness_left - 0036
exact hbound_witness - 0037
have hzero : x2=0 - 0038
specialize polynomial_zero_extended_entry_functional (BB) - 0039
specialize polynomial_zero_extended_entry_functional (BC) - 0040
specialize polynomial_zero_extended_entry_functional (t+M) - 0041
specialize polynomial_zero_extended_entry_functional (x) - 0042
specialize polynomial_zero_extended_entry_functional (x2) - 0043
specialize polynomial_zero_extended_entry_functional (0) - 0044
apply polynomial_zero_extended_entry_functional - 0045
exact ht_witness_witness_witness_right_right_left - 0046
specialize polynomial_zero_extended_left_pad_before (bb) - 0047
specialize polynomial_zero_extended_left_pad_before (bc) - 0048
specialize polynomial_zero_extended_left_pad_before (M) - 0049
specialize polynomial_zero_extended_left_pad_before (t) - 0050
specialize polynomial_zero_extended_left_pad_before (BB) - 0051
specialize polynomial_zero_extended_left_pad_before (BC) - 0052
specialize polynomial_zero_extended_left_pad_before (x) - 0053
apply polynomial_zero_extended_left_pad_before - 0054
exact hpad - 0055
exact hindex - 0056
trans x1*x2 - 0057
exact ht_witness_witness_witness_right_right_right - 0058
rewrite hzero - 0059
simp