Current library: Alpha v34, 4,223 checked-use theorems; Stable remains 432. Historical first admissions, original proof editions, and non-admitted aliases are preserved.
All products and sums use actual beta-coded coefficients; equality is formal coefficient equivalence, not equality of evaluations or raw codes. The zero gcd is included. Uniqueness is up to formal equivalence, not unique Bézout coefficients. This proves the polynomial gcd component, not G091 irreducible-polynomial existence or arbitrary prime-power-field construction.
Exact theorem in conservative defined notation
∀ p. ∀ k. ∀ ab. ∀ ac. ∀ L. ∀ bb. ∀ bc. ∀ M. ∀ sb. ∀ sc. ∀ i. ∀ c. ∀ r. FpPolyScale(p,k,bb,bc,sb,sc,M) → FpConvolutionCoefficient(p,ab,ac,L,bb,bc,M,i,c) → FpConvolutionCoefficient(p,ab,ac,L,sb,sc,M,i,r) → FpMul(p,k,c,r)
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 84 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 (1)
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–16
03Separate the logical casesL17–26
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
04Establish hsumL27–36
Establish this local claim before using it. It is not an additional assumption.
- L27
have hsum : ModEq(p,k · x2,x5)Definitions: ModEq(p,k · x2,x5)Original native command in the exact edition - L28
specialize polynomial_diagonal_sum_right_scale_congruent (p) - L29
specialize polynomial_diagonal_sum_right_scale_congruent (k) - L30
specialize polynomial_diagonal_sum_right_scale_congruent (ab) - L31
specialize polynomial_diagonal_sum_right_scale_congruent (ac) - L32
specialize polynomial_diagonal_sum_right_scale_congruent (L) - L33
specialize polynomial_diagonal_sum_right_scale_congruent (bb) - L34
specialize polynomial_diagonal_sum_right_scale_congruent (bc) - L35
specialize polynomial_diagonal_sum_right_scale_congruent (M) - L36
specialize polynomial_diagonal_sum_right_scale_congruent (sb)
05Use earlier factsL37–46
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L37
specialize polynomial_diagonal_sum_right_scale_congruent (sc) - L38
specialize polynomial_diagonal_sum_right_scale_congruent (i) - L39
specialize polynomial_diagonal_sum_right_scale_congruent (x) - L40
specialize polynomial_diagonal_sum_right_scale_congruent (x1) - L41
specialize polynomial_diagonal_sum_right_scale_congruent (x3) - L42
specialize polynomial_diagonal_sum_right_scale_congruent (x4) - L43
specialize polynomial_diagonal_sum_right_scale_congruent (S i) - L44
specialize polynomial_diagonal_sum_right_scale_congruent (x2) - L45
specialize polynomial_diagonal_sum_right_scale_congruent (x5) - L46
apply polynomial_diagonal_sum_right_scale_congruent
06Use earlier factsL47–51
07Separate the logical casesL52–54
08Establish htailL55–62
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply mod eq trans.
- L55
have htail : ModEq(p,k · x2,r)Definitions: ModEq(p,k · x2,r)Original native command in the exact edition - L56
specialize mod_eq_trans (p) - L57
specialize mod_eq_trans (k*x2) - L58
specialize mod_eq_trans (x5) - L59
specialize mod_eq_trans (r) - L60
apply mod_eq_trans - L61
exact hsum - L62
exact hr_witness_witness_witness_right_right_right
09Separate the logical casesL63–63
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L63
split
10Use earlier factsL64–64
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L64
exact hs_left
11Separate the logical casesL65–65
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L65
split
12Use earlier factsL66–66
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L66
exact hc_witness_witness_witness_right_right_left
13Separate the logical casesL67–67
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L67
split
14Use earlier factsL68–77
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L68
exact hr_witness_witness_witness_right_right_left - L69
specialize mod_eq_trans (p) - L70
specialize mod_eq_trans (k*c) - L71
specialize mod_eq_trans (k*x2) - L72
specialize mod_eq_trans (r) - L73
apply mod_eq_trans - L74
specialize mod_eq_symm (p) - L75
specialize mod_eq_symm (k*x2) - L76
specialize mod_eq_symm (k*c) - L77
apply mod_eq_symm
15Use earlier factsL78–84
Instantiate or apply named facts and discharge the corresponding proof obligations.
Original defined command ledger · 84 lines
- 0001
intro p - 0002
intro k - 0003
intro ab - 0004
intro ac - 0005
intro L - 0006
intro bb - 0007
intro bc - 0008
intro M - 0009
intro sb - 0010
intro sc - 0011
intro i - 0012
intro c - 0013
intro r - 0014
intro hs - 0015
intro hc - 0016
intro hr - 0017
cases hc - 0018
cases hc_witness - 0019
cases hc_witness_witness - 0020
cases hc_witness_witness_witness - 0021
cases hc_witness_witness_witness_right - 0022
cases hr - 0023
cases hr_witness - 0024
cases hr_witness_witness - 0025
cases hr_witness_witness_witness - 0026
cases hr_witness_witness_witness_right - 0027
have hsum : ModEq(p,k · x2,x5) - 0028
specialize polynomial_diagonal_sum_right_scale_congruent (p) - 0029
specialize polynomial_diagonal_sum_right_scale_congruent (k) - 0030
specialize polynomial_diagonal_sum_right_scale_congruent (ab) - 0031
specialize polynomial_diagonal_sum_right_scale_congruent (ac) - 0032
specialize polynomial_diagonal_sum_right_scale_congruent (L) - 0033
specialize polynomial_diagonal_sum_right_scale_congruent (bb) - 0034
specialize polynomial_diagonal_sum_right_scale_congruent (bc) - 0035
specialize polynomial_diagonal_sum_right_scale_congruent (M) - 0036
specialize polynomial_diagonal_sum_right_scale_congruent (sb) - 0037
specialize polynomial_diagonal_sum_right_scale_congruent (sc) - 0038
specialize polynomial_diagonal_sum_right_scale_congruent (i) - 0039
specialize polynomial_diagonal_sum_right_scale_congruent (x) - 0040
specialize polynomial_diagonal_sum_right_scale_congruent (x1) - 0041
specialize polynomial_diagonal_sum_right_scale_congruent (x3) - 0042
specialize polynomial_diagonal_sum_right_scale_congruent (x4) - 0043
specialize polynomial_diagonal_sum_right_scale_congruent (S i) - 0044
specialize polynomial_diagonal_sum_right_scale_congruent (x2) - 0045
specialize polynomial_diagonal_sum_right_scale_congruent (x5) - 0046
apply polynomial_diagonal_sum_right_scale_congruent - 0047
exact hs - 0048
exact hc_witness_witness_witness_left - 0049
exact hc_witness_witness_witness_right_left - 0050
exact hr_witness_witness_witness_left - 0051
exact hr_witness_witness_witness_right_left - 0052
cases hs - 0053
cases hc_witness_witness_witness_right_right - 0054
cases hr_witness_witness_witness_right_right - 0055
have htail : ModEq(p,k · x2,r) - 0056
specialize mod_eq_trans (p) - 0057
specialize mod_eq_trans (k*x2) - 0058
specialize mod_eq_trans (x5) - 0059
specialize mod_eq_trans (r) - 0060
apply mod_eq_trans - 0061
exact hsum - 0062
exact hr_witness_witness_witness_right_right_right - 0063
split - 0064
exact hs_left - 0065
split - 0066
exact hc_witness_witness_witness_right_right_left - 0067
split - 0068
exact hr_witness_witness_witness_right_right_left - 0069
specialize mod_eq_trans (p) - 0070
specialize mod_eq_trans (k*c) - 0071
specialize mod_eq_trans (k*x2) - 0072
specialize mod_eq_trans (r) - 0073
apply mod_eq_trans - 0074
specialize mod_eq_symm (p) - 0075
specialize mod_eq_symm (k*x2) - 0076
specialize mod_eq_symm (k*c) - 0077
apply mod_eq_symm - 0078
specialize mod_eq_mul_left (p) - 0079
specialize mod_eq_mul_left (x2) - 0080
specialize mod_eq_mul_left (c) - 0081
specialize mod_eq_mul_left (k) - 0082
apply mod_eq_mul_left - 0083
exact hc_witness_witness_witness_right_right_right - 0084
exact htail