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. ∀ e. ∀ z. Lt(e,S n) → DirichletFlatEntry(F,G,H,n,S n · a + e,z) → DirichletGridEntry(F,G,H,n,a,e,z)
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 43 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–9
02Separate the logical casesL10–13
03Establish hcoordinatesL14–23
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply division remainder unique.
- L14
have hcoordinates : x=a /\ x1=e - L15
specialize division_remainder_unique (S n) - L16
specialize division_remainder_unique ((S (n))*(a)+(e)) - L17
specialize division_remainder_unique (x) - L18
specialize division_remainder_unique (x1) - L19
specialize division_remainder_unique (a) - L20
specialize division_remainder_unique (e) - L21
apply division_remainder_unique - L22
exact hv_witness_witness_left - L23
exact hv_witness_witness_right_left
04Calculate and transport equalitiesL24–24
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L24
refl
05Use earlier factsL25–25
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L25
exact he
06Separate the logical casesL26–26
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L26
cases hcoordinates
07Calculate and transport equalitiesL27–36
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L27
rewrite hcoordinates_left at hv_witness_witness_right_right - L28
rewrite hcoordinates_left at hv_witness_witness_right_right - L29
rewrite hcoordinates_left at hv_witness_witness_right_right - L30
rewrite hcoordinates_left at hv_witness_witness_right_right - L31
rewrite hcoordinates_left at hv_witness_witness_right_right - L32
rewrite hcoordinates_left at hv_witness_witness_right_right - L33
rewrite hcoordinates_left at hv_witness_witness_right_right - L34
rewrite hcoordinates_left at hv_witness_witness_right_right - L35
rewrite hcoordinates_right at hv_witness_witness_right_right - L36
rewrite hcoordinates_right at hv_witness_witness_right_right
08Calculate and transport equalitiesL37–42
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L37
rewrite hcoordinates_right at hv_witness_witness_right_right - L38
rewrite hcoordinates_right at hv_witness_witness_right_right - L39
rewrite hcoordinates_right at hv_witness_witness_right_right - L40
rewrite hcoordinates_right at hv_witness_witness_right_right - L41
rewrite hcoordinates_right at hv_witness_witness_right_right - L42
rewrite hcoordinates_right at hv_witness_witness_right_right
09Use earlier factsL43–43
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L43
exact hv_witness_witness_right_right
Original defined command ledger · 43 lines
- 0001
intro F - 0002
intro G - 0003
intro H - 0004
intro n - 0005
intro a - 0006
intro e - 0007
intro z - 0008
intro he - 0009
intro hv - 0010
cases hv - 0011
cases hv_witness - 0012
cases hv_witness_witness - 0013
cases hv_witness_witness_right - 0014
have hcoordinates : x=a /\ x1=e - 0015
specialize division_remainder_unique (S n) - 0016
specialize division_remainder_unique ((S (n))*(a)+(e)) - 0017
specialize division_remainder_unique (x) - 0018
specialize division_remainder_unique (x1) - 0019
specialize division_remainder_unique (a) - 0020
specialize division_remainder_unique (e) - 0021
apply division_remainder_unique - 0022
exact hv_witness_witness_left - 0023
exact hv_witness_witness_right_left - 0024
refl - 0025
exact he - 0026
cases hcoordinates - 0027
rewrite hcoordinates_left at hv_witness_witness_right_right - 0028
rewrite hcoordinates_left at hv_witness_witness_right_right - 0029
rewrite hcoordinates_left at hv_witness_witness_right_right - 0030
rewrite hcoordinates_left at hv_witness_witness_right_right - 0031
rewrite hcoordinates_left at hv_witness_witness_right_right - 0032
rewrite hcoordinates_left at hv_witness_witness_right_right - 0033
rewrite hcoordinates_left at hv_witness_witness_right_right - 0034
rewrite hcoordinates_left at hv_witness_witness_right_right - 0035
rewrite hcoordinates_right at hv_witness_witness_right_right - 0036
rewrite hcoordinates_right at hv_witness_witness_right_right - 0037
rewrite hcoordinates_right at hv_witness_witness_right_right - 0038
rewrite hcoordinates_right at hv_witness_witness_right_right - 0039
rewrite hcoordinates_right at hv_witness_witness_right_right - 0040
rewrite hcoordinates_right at hv_witness_witness_right_right - 0041
rewrite hcoordinates_right at hv_witness_witness_right_right - 0042
rewrite hcoordinates_right at hv_witness_witness_right_right - 0043
exact hv_witness_witness_right_right