95 new Alpha admissions come from 96 source lemmas: tuple equality reflexivity reuses an already-admitted theorem and is not counted twice. All counts use actual finite beta-coded enumerations. G008 multiplicativity is proved; the general prime-power count and distinct-prime product formula are further goals. General prime-power fields (G091) remain open. Stable is unchanged.
Exact theorem in conservative defined notation
∀ m. ∀ n. ∀ k. ∀ A. ∀ B. ∀ C. ∀ D. ∀ u. ∀ E. ∀ F. ∀ G. ∀ H. ∀ v. ∀ P. ∀ Q. ∀ R. ∀ T. ∀ q. ∀ p. ∀ f. ∀ g. JordanRectangleCRT(m,n,k,A,B,C,D,u,E,F,G,H,v,P,Q,R,T,q) → Lt(p,q) → BetaAt(P,Q,p,f) ∧ BetaAt(R,T,p,g) → ∃ x. ∃ y. ∃ z. ∃ i. ∃ j. ∃ w. Lt(x,u) ∧ (Lt(y,v) ∧ (p = v · x + y ∧ (BetaAt(A,B,x,z) ∧ BetaAt(C,D,x,i) ∧ (BetaAt(E,F,y,j) ∧ BetaAt(G,H,y,w) ∧ (BetaAt(P,Q,p,f) ∧ BetaAt(R,T,p,g) ∧ (JordanCanonicalTupleCRT(m,n,z,i,j,w,f,g,k) ∧ JordanPrimitiveTuple(m · n,f,g,k)))))))
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 98 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–20
03Fix variables and assumptionsL21–24
04Establish hvL25–28
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply hr.
- L25
have hv : ∃ i. ∃ j. ∃ b. ∃ c. ∃ d. ∃ e. ∃ f. ∃ g. Lt(i,u) ∧ (Lt(j,v) ∧ (p = v · i + j ∧ (BetaAt(A,B,i,b) ∧ BetaAt(C,D,i,c) ∧ (BetaAt(E,F,j,d) ∧ BetaAt(G,H,j,e) ∧ (BetaAt(P,Q,p,f) ∧ BetaAt(R,T,p,g) ∧ (JordanCanonicalTupleCRT(m,n,b,c,d,e,f,g,k) ∧ JordanPrimitiveTuple(m · n,f,g,k)))))))Definitions: Lt(i,u)Lt(j,v)BetaAt(A,B,i,b)BetaAt(C,D,i,c)BetaAt(E,F,j,d)BetaAt(G,H,j,e)BetaAt(P,Q,p,f)BetaAt(R,T,p,g)JordanCanonicalTupleCRT(m,n,b,c,d,e,f,g,k)JordanPrimitiveTuple(m · n,f,g,k)Original native command in the exact edition - L26
specialize hr (p) - L27
apply hr - L28
exact hp
05Separate the logical casesL29–38
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L29
cases hv - L30
cases hv_witness - L31
cases hv_witness_witness - L32
cases hv_witness_witness_witness - L33
cases hv_witness_witness_witness_witness - L34
cases hv_witness_witness_witness_witness_witness - L35
cases hv_witness_witness_witness_witness_witness_witness - L36
cases hv_witness_witness_witness_witness_witness_witness_witness - L37
cases hv_witness_witness_witness_witness_witness_witness_witness_witness - L38
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right
06Separate the logical casesL39–45
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L39
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right - L40
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right - L41
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right - L42
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right - L43
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right - L44
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_left - L45
cases he
07Establish hfL46–54
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply beta at unique.
- L46
have hf : x6=f - L47
specialize beta_at_unique (P) - L48
specialize beta_at_unique (Q) - L49
specialize beta_at_unique (p) - L50
specialize beta_at_unique (x6) - L51
specialize beta_at_unique (f) - L52
apply beta_at_unique - L53
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_left_left - L54
exact he_left
08Establish hgL55–63
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply beta at unique.
- L55
have hg : x7=g - L56
specialize beta_at_unique (R) - L57
specialize beta_at_unique (T) - L58
specialize beta_at_unique (p) - L59
specialize beta_at_unique (x7) - L60
specialize beta_at_unique (g) - L61
apply beta_at_unique - L62
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_left_right - L63
exact he_right
09Construct an explicit witnessL64–69
10Separate the logical casesL70–70
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L70
split
11Use earlier factsL71–71
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L71
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_left
12Separate the logical casesL72–72
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L72
split
13Use earlier factsL73–73
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L73
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_left
14Separate the logical casesL74–74
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L74
split
15Use earlier factsL75–75
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L75
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_left
16Separate the logical casesL76–76
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L76
split
17Use earlier factsL77–77
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L77
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_left
18Separate the logical casesL78–78
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L78
split
19Use earlier factsL79–79
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L79
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_left
20Separate the logical casesL80–81
21Use earlier factsL82–83
22Separate the logical casesL84–84
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L84
split
23Calculate and transport equalitiesL85–93
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L85
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L86
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L87
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L88
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L89
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L90
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L91
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L92
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - L93
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left
24Use earlier factsL94–94
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L94
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left
25Calculate and transport equalitiesL95–97
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L95
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right - L96
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right - L97
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right
26Use earlier factsL98–98
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L98
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right
Original defined command ledger · 98 lines
- 0001
intro m - 0002
intro n - 0003
intro k - 0004
intro A - 0005
intro B - 0006
intro C - 0007
intro D - 0008
intro u - 0009
intro E - 0010
intro F - 0011
intro G - 0012
intro H - 0013
intro v - 0014
intro P - 0015
intro Q - 0016
intro R - 0017
intro T - 0018
intro q - 0019
intro p - 0020
intro f - 0021
intro g - 0022
intro hr - 0023
intro hp - 0024
intro he - 0025
have hv : ∃ i. ∃ j. ∃ b. ∃ c. ∃ d. ∃ e. ∃ f. ∃ g. Lt(i,u) ∧ (Lt(j,v) ∧ (p = v · i + j ∧ (BetaAt(A,B,i,b) ∧ BetaAt(C,D,i,c) ∧ (BetaAt(E,F,j,d) ∧ BetaAt(G,H,j,e) ∧ (BetaAt(P,Q,p,f) ∧ BetaAt(R,T,p,g) ∧ (JordanCanonicalTupleCRT(m,n,b,c,d,e,f,g,k) ∧ JordanPrimitiveTuple(m · n,f,g,k))))))) - 0026
specialize hr (p) - 0027
apply hr - 0028
exact hp - 0029
cases hv - 0030
cases hv_witness - 0031
cases hv_witness_witness - 0032
cases hv_witness_witness_witness - 0033
cases hv_witness_witness_witness_witness - 0034
cases hv_witness_witness_witness_witness_witness - 0035
cases hv_witness_witness_witness_witness_witness_witness - 0036
cases hv_witness_witness_witness_witness_witness_witness_witness - 0037
cases hv_witness_witness_witness_witness_witness_witness_witness_witness - 0038
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right - 0039
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right - 0040
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right - 0041
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right - 0042
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right - 0043
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right - 0044
cases hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_left - 0045
cases he - 0046
have hf : x6=f - 0047
specialize beta_at_unique (P) - 0048
specialize beta_at_unique (Q) - 0049
specialize beta_at_unique (p) - 0050
specialize beta_at_unique (x6) - 0051
specialize beta_at_unique (f) - 0052
apply beta_at_unique - 0053
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_left_left - 0054
exact he_left - 0055
have hg : x7=g - 0056
specialize beta_at_unique (R) - 0057
specialize beta_at_unique (T) - 0058
specialize beta_at_unique (p) - 0059
specialize beta_at_unique (x7) - 0060
specialize beta_at_unique (g) - 0061
apply beta_at_unique - 0062
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_left_right - 0063
exact he_right - 0064
exists x - 0065
exists x1 - 0066
exists x2 - 0067
exists x3 - 0068
exists x4 - 0069
exists x5 - 0070
split - 0071
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_left - 0072
split - 0073
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_left - 0074
split - 0075
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_left - 0076
split - 0077
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_left - 0078
split - 0079
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_left - 0080
split - 0081
split - 0082
exact he_left - 0083
exact he_right - 0084
split - 0085
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0086
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0087
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0088
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0089
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0090
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0091
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0092
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0093
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0094
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_left - 0095
rewrite hf at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right - 0096
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right - 0097
rewrite hg at hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right - 0098
exact hv_witness_witness_witness_witness_witness_witness_witness_witness_right_right_right_right_right_right_right