Current library: Alpha v34, 4,223 checked-use theorems; Stable remains 432. Historical first admissions, original proof editions, and non-admitted aliases are preserved.
Operation tables contain actual beta-coded entries and compare represented signed values, not encodings. The strict sum window is i<l and the separately certified endpoint i=l is unused. Rectangular Fubini and full finite signed Möbius inversion are separate, now-admitted families.
Exact theorem in conservative defined notation
∀ a. ∀ F. ∀ G. ∀ l. ∀ i. ∀ b. ∀ c. ArithScale(a,F,G,l) → Lt(i,l) → ArithAt(F,i,b) → ArithAt(G,i,c) → SignedMul(a,b,c)
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 42 original proof lines are preserved. Only local proposition formulas are abbreviated; every abbreviation has an exact binder-safe expansion check. The linked exact edition contains the unchanged replay script.
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.
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–11
Work with arbitrary variables or the premises of the current implication.
- L11
intro h1
03Separate the logical casesL12–13
04Establish heL14–17
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply hop right right.
- L14
have he : ∃ b. ∃ c. ArithAt(F,i,b) ∧ (ArithAt(G,i,c) ∧ SignedMul(a,b,c))Definitions: ArithAt(F,i,b)ArithAt(G,i,c)SignedMul(a,b,c)Original native command in the exact edition - L15
specialize hop_right_right (i) - L16
apply hop_right_right - L17
exact hi
05Separate the logical casesL18–21
06Establish heq0L22–31
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply divisor signed table at functional.
- L22
have heq0 : x = b - L23
specialize divisor_signed_table_at_functional (F) - L24
specialize divisor_signed_table_at_functional (i) - L25
specialize divisor_signed_table_at_functional (x) - L26
specialize divisor_signed_table_at_functional (b) - L27
apply divisor_signed_table_at_functional - L28
exact he_witness_witness_left - L29
exact h0 - L30
rewrite heq0 at he_witness_witness_right_right - L31
rewrite heq0 at he_witness_witness_right_right
07Establish heq1L32–41
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply divisor signed table at functional.
- L32
have heq1 : x1 = c - L33
specialize divisor_signed_table_at_functional (G) - L34
specialize divisor_signed_table_at_functional (i) - L35
specialize divisor_signed_table_at_functional (x1) - L36
specialize divisor_signed_table_at_functional (c) - L37
apply divisor_signed_table_at_functional - L38
exact he_witness_witness_right_left - L39
exact h1 - L40
rewrite heq1 at he_witness_witness_right_right - L41
rewrite heq1 at he_witness_witness_right_right
08Use earlier factsL42–42
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L42
exact he_witness_witness_right_right
Original defined command ledger · 42 lines
- 0001
intro a - 0002
intro F - 0003
intro G - 0004
intro l - 0005
intro i - 0006
intro b - 0007
intro c - 0008
intro hop - 0009
intro hi - 0010
intro h0 - 0011
intro h1 - 0012
cases hop - 0013
cases hop_right - 0014
have he : ∃ b. ∃ c. ArithAt(F,i,b) ∧ (ArithAt(G,i,c) ∧ SignedMul(a,b,c)) - 0015
specialize hop_right_right (i) - 0016
apply hop_right_right - 0017
exact hi - 0018
cases he - 0019
cases he_witness - 0020
cases he_witness_witness - 0021
cases he_witness_witness_right - 0022
have heq0 : x = b - 0023
specialize divisor_signed_table_at_functional (F) - 0024
specialize divisor_signed_table_at_functional (i) - 0025
specialize divisor_signed_table_at_functional (x) - 0026
specialize divisor_signed_table_at_functional (b) - 0027
apply divisor_signed_table_at_functional - 0028
exact he_witness_witness_left - 0029
exact h0 - 0030
rewrite heq0 at he_witness_witness_right_right - 0031
rewrite heq0 at he_witness_witness_right_right - 0032
have heq1 : x1 = c - 0033
specialize divisor_signed_table_at_functional (G) - 0034
specialize divisor_signed_table_at_functional (i) - 0035
specialize divisor_signed_table_at_functional (x1) - 0036
specialize divisor_signed_table_at_functional (c) - 0037
apply divisor_signed_table_at_functional - 0038
exact he_witness_witness_right_left - 0039
exact h1 - 0040
rewrite heq1 at he_witness_witness_right_right - 0041
rewrite heq1 at he_witness_witness_right_right - 0042
exact he_witness_witness_right_right