Current library: Alpha v34, 4,223 checked-use theorems; Stable remains 432. Historical first admissions, original proof editions, and non-admitted aliases are preserved.
Every grid, slice, row sum and intermediate table is constructed. Retained cells have witnessed n=(a*e)*c and value F(a)*(H(e)*G(c)). The flat endpoint is unused. Table associativity includes N=0 and compares only positive values, not encodings. Full G009 remains broader.
Exact theorem in conservative defined notation
∀ F. ∀ G. ∀ H. ∀ n. ∀ a. ∀ q. ∀ u. ∀ e. ∀ v. ∀ z. ¬a = 0 → n = a · q → ArithAt(F,a,u) → DirichletEntry(H,G,q,e,v) → DirichletGridEntry(F,G,H,n,a,e,z) → SignedMul(u,v,z)
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 50 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.
Named ingredients (2)
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–15
03Establish hpL16–19
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply signed mul total.
- L16
have hp : ∃ w. SignedMul(u,v,w)Definitions: SignedMul(u,v,w)Original native command in the exact edition - L17
specialize signed_mul_total (u) - L18
specialize signed_mul_total (v) - L19
apply signed_mul_total
04Separate the logical casesL20–20
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L20
cases hp
05Establish heqL21–30
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply dirichlet grid entry functional.
- L21
have heq : x=z - L22
specialize dirichlet_grid_entry_functional (F) - L23
specialize dirichlet_grid_entry_functional (G) - L24
specialize dirichlet_grid_entry_functional (H) - L25
specialize dirichlet_grid_entry_functional (n) - L26
specialize dirichlet_grid_entry_functional (a) - L27
specialize dirichlet_grid_entry_functional (e) - L28
specialize dirichlet_grid_entry_functional (x) - L29
specialize dirichlet_grid_entry_functional (z) - L30
apply dirichlet_grid_entry_functional
06Use earlier factsL31–40
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L31
specialize dirichlet_grid_entry_from_convolution_entry (F) - L32
specialize dirichlet_grid_entry_from_convolution_entry (G) - L33
specialize dirichlet_grid_entry_from_convolution_entry (H) - L34
specialize dirichlet_grid_entry_from_convolution_entry (n) - L35
specialize dirichlet_grid_entry_from_convolution_entry (a) - L36
specialize dirichlet_grid_entry_from_convolution_entry (q) - L37
specialize dirichlet_grid_entry_from_convolution_entry (u) - L38
specialize dirichlet_grid_entry_from_convolution_entry (e) - L39
specialize dirichlet_grid_entry_from_convolution_entry (v) - L40
specialize dirichlet_grid_entry_from_convolution_entry (x)
07Use earlier factsL41–47
08Calculate and transport equalitiesL48–49
09Use earlier factsL50–50
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L50
exact hp_witness
Original defined command ledger · 50 lines
- 0001
intro F - 0002
intro G - 0003
intro H - 0004
intro n - 0005
intro a - 0006
intro q - 0007
intro u - 0008
intro e - 0009
intro v - 0010
intro z - 0011
intro ha - 0012
intro hq - 0013
intro hu - 0014
intro hv - 0015
intro hz - 0016
have hp : ∃ w. SignedMul(u,v,w) - 0017
specialize signed_mul_total (u) - 0018
specialize signed_mul_total (v) - 0019
apply signed_mul_total - 0020
cases hp - 0021
have heq : x=z - 0022
specialize dirichlet_grid_entry_functional (F) - 0023
specialize dirichlet_grid_entry_functional (G) - 0024
specialize dirichlet_grid_entry_functional (H) - 0025
specialize dirichlet_grid_entry_functional (n) - 0026
specialize dirichlet_grid_entry_functional (a) - 0027
specialize dirichlet_grid_entry_functional (e) - 0028
specialize dirichlet_grid_entry_functional (x) - 0029
specialize dirichlet_grid_entry_functional (z) - 0030
apply dirichlet_grid_entry_functional - 0031
specialize dirichlet_grid_entry_from_convolution_entry (F) - 0032
specialize dirichlet_grid_entry_from_convolution_entry (G) - 0033
specialize dirichlet_grid_entry_from_convolution_entry (H) - 0034
specialize dirichlet_grid_entry_from_convolution_entry (n) - 0035
specialize dirichlet_grid_entry_from_convolution_entry (a) - 0036
specialize dirichlet_grid_entry_from_convolution_entry (q) - 0037
specialize dirichlet_grid_entry_from_convolution_entry (u) - 0038
specialize dirichlet_grid_entry_from_convolution_entry (e) - 0039
specialize dirichlet_grid_entry_from_convolution_entry (v) - 0040
specialize dirichlet_grid_entry_from_convolution_entry (x) - 0041
apply dirichlet_grid_entry_from_convolution_entry - 0042
exact ha - 0043
exact hq - 0044
exact hu - 0045
exact hv - 0046
exact hp_witness - 0047
exact hz - 0048
rewrite heq at hp_witness - 0049
rewrite heq at hp_witness - 0050
exact hp_witness