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. ¬m = 0 → ¬n = 0 → Coprime(m,n) → JordanTupleEnumeration(k,m,A,B,C,D,u) → JordanTupleEnumeration(k,n,E,F,G,H,v) → ∃ x. ∃ y. ∃ z. ∃ i. JordanTupleEnumeration(k,m · n,x,y,z,i,u · v)
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 75 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–18
03Establish htL19–28
Establish this local claim before using it. It is not an additional assumption.
- L19
have ht : ∀ q. Le(q,u · v) → ∃ x. ∃ y. ∃ z. ∃ i. JordanRectangleCRT(m,n,k,A,B,C,D,u,E,F,G,H,v,x,y,z,i,q)Definitions: Le(q,u · v)JordanRectangleCRT(m,n,k,A,B,C,D,u,E,F,G,H,v,x,y,z,i,q)Original native command in the exact edition - L20
specialize jordan_rectangle_crt_exists (m) - L21
specialize jordan_rectangle_crt_exists (n) - L22
specialize jordan_rectangle_crt_exists (k) - L23
specialize jordan_rectangle_crt_exists (A) - L24
specialize jordan_rectangle_crt_exists (B) - L25
specialize jordan_rectangle_crt_exists (C) - L26
specialize jordan_rectangle_crt_exists (D) - L27
specialize jordan_rectangle_crt_exists (u) - L28
specialize jordan_rectangle_crt_exists (E)
04Use earlier factsL29–38
Instantiate or apply named facts and discharge the corresponding proof obligations.
05Establish hvL39–43
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply ht.
- L39
have hv : ∃ P. ∃ Q. ∃ R. ∃ T. JordanRectangleCRT(m,n,k,A,B,C,D,u,E,F,G,H,v,P,Q,R,T,u · v)Definitions: JordanRectangleCRT(m,n,k,A,B,C,D,u,E,F,G,H,v,P,Q,R,T,u · v)Original native command in the exact edition - L40
specialize ht (u*v) - L41
apply ht - L42
specialize le_refl (u*v) - L43
apply le_refl
06Separate the logical casesL44–47
07Construct an explicit witnessL48–51
08Use earlier factsL52–61
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L52
specialize jordan_rectangle_crt_enumeration (m) - L53
specialize jordan_rectangle_crt_enumeration (n) - L54
specialize jordan_rectangle_crt_enumeration (k) - L55
specialize jordan_rectangle_crt_enumeration (A) - L56
specialize jordan_rectangle_crt_enumeration (B) - L57
specialize jordan_rectangle_crt_enumeration (C) - L58
specialize jordan_rectangle_crt_enumeration (D) - L59
specialize jordan_rectangle_crt_enumeration (u) - L60
specialize jordan_rectangle_crt_enumeration (E) - L61
specialize jordan_rectangle_crt_enumeration (F)
09Use earlier factsL62–71
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L62
specialize jordan_rectangle_crt_enumeration (G) - L63
specialize jordan_rectangle_crt_enumeration (H) - L64
specialize jordan_rectangle_crt_enumeration (v) - L65
specialize jordan_rectangle_crt_enumeration (x) - L66
specialize jordan_rectangle_crt_enumeration (x1) - L67
specialize jordan_rectangle_crt_enumeration (x2) - L68
specialize jordan_rectangle_crt_enumeration (x3) - L69
apply jordan_rectangle_crt_enumeration - L70
exact hm - L71
exact hn
Original defined command ledger · 75 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 hm - 0015
intro hn - 0016
intro hcop - 0017
intro hl - 0018
intro hh - 0019
have ht : ∀ q. Le(q,u · v) → ∃ x. ∃ y. ∃ z. ∃ i. JordanRectangleCRT(m,n,k,A,B,C,D,u,E,F,G,H,v,x,y,z,i,q) - 0020
specialize jordan_rectangle_crt_exists (m) - 0021
specialize jordan_rectangle_crt_exists (n) - 0022
specialize jordan_rectangle_crt_exists (k) - 0023
specialize jordan_rectangle_crt_exists (A) - 0024
specialize jordan_rectangle_crt_exists (B) - 0025
specialize jordan_rectangle_crt_exists (C) - 0026
specialize jordan_rectangle_crt_exists (D) - 0027
specialize jordan_rectangle_crt_exists (u) - 0028
specialize jordan_rectangle_crt_exists (E) - 0029
specialize jordan_rectangle_crt_exists (F) - 0030
specialize jordan_rectangle_crt_exists (G) - 0031
specialize jordan_rectangle_crt_exists (H) - 0032
specialize jordan_rectangle_crt_exists (v) - 0033
apply jordan_rectangle_crt_exists - 0034
exact hm - 0035
exact hn - 0036
exact hcop - 0037
exact hl - 0038
exact hh - 0039
have hv : ∃ P. ∃ Q. ∃ R. ∃ T. JordanRectangleCRT(m,n,k,A,B,C,D,u,E,F,G,H,v,P,Q,R,T,u · v) - 0040
specialize ht (u*v) - 0041
apply ht - 0042
specialize le_refl (u*v) - 0043
apply le_refl - 0044
cases hv - 0045
cases hv_witness - 0046
cases hv_witness_witness - 0047
cases hv_witness_witness_witness - 0048
exists x - 0049
exists x1 - 0050
exists x2 - 0051
exists x3 - 0052
specialize jordan_rectangle_crt_enumeration (m) - 0053
specialize jordan_rectangle_crt_enumeration (n) - 0054
specialize jordan_rectangle_crt_enumeration (k) - 0055
specialize jordan_rectangle_crt_enumeration (A) - 0056
specialize jordan_rectangle_crt_enumeration (B) - 0057
specialize jordan_rectangle_crt_enumeration (C) - 0058
specialize jordan_rectangle_crt_enumeration (D) - 0059
specialize jordan_rectangle_crt_enumeration (u) - 0060
specialize jordan_rectangle_crt_enumeration (E) - 0061
specialize jordan_rectangle_crt_enumeration (F) - 0062
specialize jordan_rectangle_crt_enumeration (G) - 0063
specialize jordan_rectangle_crt_enumeration (H) - 0064
specialize jordan_rectangle_crt_enumeration (v) - 0065
specialize jordan_rectangle_crt_enumeration (x) - 0066
specialize jordan_rectangle_crt_enumeration (x1) - 0067
specialize jordan_rectangle_crt_enumeration (x2) - 0068
specialize jordan_rectangle_crt_enumeration (x3) - 0069
apply jordan_rectangle_crt_enumeration - 0070
exact hm - 0071
exact hn - 0072
exact hcop - 0073
exact hl - 0074
exact hh - 0075
exact hv_witness_witness_witness_witness