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 original first-admission records.
Inputs are genuine canonical signed-pair codes, not arbitrary naturals. Products start at the actual Gaussian identity, whose code is six. The factor list uses the proved prime-divisor property; irreducibility alone is not silently renamed primality. Uniqueness supplies equal lengths, a bounded bijection, and an actual unit at each match, including repeated factors. Units have empty factorizations and zero is excluded. Sorted primary representatives, Gaussian prime classification, and Eisenstein factorization are separate targets.
Exact theorem in conservative defined notation
∀ d. ∀ a. ∀ b. ∀ c. GDvd(d,a) → GDvd(d,b) → ZPairAdd(c,b,a) → GDvd(d,c)
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 68 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 (7)
01Fix variables and assumptionsL1–7
02Separate the logical casesL8–9
03Establish hqL10–19
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply gaussian subtract exists.
- L10
have hq : ∃ q. ZPairAdd(q,x1,x)Definitions: ZPairAdd(q,x1,x)Original native command in the exact edition - L11
specialize gaussian_subtract_exists (x) - L12
specialize gaussian_subtract_exists (x1) - L13
apply gaussian_subtract_exists - L14
specialize gaussian_multiply_input_right_valid (d) - L15
specialize gaussian_multiply_input_right_valid (x) - L16
specialize gaussian_multiply_input_right_valid (a) - L17
apply gaussian_multiply_input_right_valid - L18
exact hA_witness - L19
specialize gaussian_multiply_input_right_valid (d)
04Use earlier factsL20–23
05Separate the logical casesL24–24
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L24
cases hq
06Establish hprodL25–34
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply gaussian multiply exists.
- L25
- L26
specialize gaussian_multiply_exists (d) - L27
specialize gaussian_multiply_exists (x2) - L28
apply gaussian_multiply_exists - L29
specialize gaussian_multiply_input_left_valid (d) - L30
specialize gaussian_multiply_input_left_valid (x) - L31
specialize gaussian_multiply_input_left_valid (a) - L32
apply gaussian_multiply_input_left_valid - L33
exact hA_witness - L34
specialize gaussian_add_input_left_valid (x2)
07Use earlier factsL35–38
08Separate the logical casesL39–39
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L39
cases hprod
09Establish hsumL40–49
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply gaussian multiply add distribute.
- L40
have hsum : ZPairAdd(x3,b,a)Definitions: ZPairAdd(x3,b,a)Original native command in the exact edition - L41
specialize gaussian_multiply_add_distribute (d) - L42
specialize gaussian_multiply_add_distribute (x2) - L43
specialize gaussian_multiply_add_distribute (x1) - L44
specialize gaussian_multiply_add_distribute (x) - L45
specialize gaussian_multiply_add_distribute (x3) - L46
specialize gaussian_multiply_add_distribute (b) - L47
specialize gaussian_multiply_add_distribute (a) - L48
apply gaussian_multiply_add_distribute - L49
exact hq_witness
10Use earlier factsL50–52
11Establish heqL53–60
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply gaussian add cancel right.
12Construct an explicit witnessL61–61
Supply the displayed value, then prove that it has the required property.
- L61
exists (x2)
13Use earlier factsL62–68
Instantiate or apply named facts and discharge the corresponding proof obligations.
Original defined command ledger · 68 lines
- 0001
intro d - 0002
intro a - 0003
intro b - 0004
intro c - 0005
intro hA - 0006
intro hB - 0007
intro hdifference - 0008
cases hA - 0009
cases hB - 0010
have hq : ∃ q. ZPairAdd(q,x1,x) - 0011
specialize gaussian_subtract_exists (x) - 0012
specialize gaussian_subtract_exists (x1) - 0013
apply gaussian_subtract_exists - 0014
specialize gaussian_multiply_input_right_valid (d) - 0015
specialize gaussian_multiply_input_right_valid (x) - 0016
specialize gaussian_multiply_input_right_valid (a) - 0017
apply gaussian_multiply_input_right_valid - 0018
exact hA_witness - 0019
specialize gaussian_multiply_input_right_valid (d) - 0020
specialize gaussian_multiply_input_right_valid (x1) - 0021
specialize gaussian_multiply_input_right_valid (b) - 0022
apply gaussian_multiply_input_right_valid - 0023
exact hB_witness - 0024
cases hq - 0025
have hprod : ∃ p. GMul(d,x2,p) - 0026
specialize gaussian_multiply_exists (d) - 0027
specialize gaussian_multiply_exists (x2) - 0028
apply gaussian_multiply_exists - 0029
specialize gaussian_multiply_input_left_valid (d) - 0030
specialize gaussian_multiply_input_left_valid (x) - 0031
specialize gaussian_multiply_input_left_valid (a) - 0032
apply gaussian_multiply_input_left_valid - 0033
exact hA_witness - 0034
specialize gaussian_add_input_left_valid (x2) - 0035
specialize gaussian_add_input_left_valid (x1) - 0036
specialize gaussian_add_input_left_valid (x) - 0037
apply gaussian_add_input_left_valid - 0038
exact hq_witness - 0039
cases hprod - 0040
have hsum : ZPairAdd(x3,b,a) - 0041
specialize gaussian_multiply_add_distribute (d) - 0042
specialize gaussian_multiply_add_distribute (x2) - 0043
specialize gaussian_multiply_add_distribute (x1) - 0044
specialize gaussian_multiply_add_distribute (x) - 0045
specialize gaussian_multiply_add_distribute (x3) - 0046
specialize gaussian_multiply_add_distribute (b) - 0047
specialize gaussian_multiply_add_distribute (a) - 0048
apply gaussian_multiply_add_distribute - 0049
exact hq_witness - 0050
exact hprod_witness - 0051
exact hB_witness - 0052
exact hA_witness - 0053
have heq : x3=c - 0054
specialize gaussian_add_cancel_right (x3) - 0055
specialize gaussian_add_cancel_right (c) - 0056
specialize gaussian_add_cancel_right (b) - 0057
specialize gaussian_add_cancel_right (a) - 0058
apply gaussian_add_cancel_right - 0059
exact hsum - 0060
exact hdifference - 0061
exists (x2) - 0062
specialize gaussian_multiply_output_transport (d) - 0063
specialize gaussian_multiply_output_transport (x2) - 0064
specialize gaussian_multiply_output_transport (x3) - 0065
specialize gaussian_multiply_output_transport (c) - 0066
apply gaussian_multiply_output_transport - 0067
exact heq - 0068
exact hprod_witness