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
∀ n. ∀ k. ∀ A. ∀ B. ∀ C. ∀ D. ∀ j. ∀ b. ∀ c. ¬n = 0 → JordanTupleEnumeration(k,n,A,B,C,D,j) → JordanPrimitiveTuple(n,b,c,k) → ∃ x. ∃ y. ∃ z. Lt(x,j) ∧ (BetaAt(A,B,x,y) ∧ BetaAt(C,D,x,z) ∧ JordanTupleCongruence(n,b,c,y,z,k))
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 76 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 (5)
01Fix variables and assumptionsL1–10
02Fix variables and assumptionsL11–12
03Establish hnrmL13–19
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply jordan tuple normalize exists.
- L13
have hnrm : ∃ d. ∃ e. BetaPrefixInto(d,e,k,n) ∧ JordanTupleCongruence(n,b,c,d,e,k)Definitions: BetaPrefixInto(d,e,k,n)JordanTupleCongruence(n,b,c,d,e,k)Original native command in the exact edition - L14
specialize jordan_tuple_normalize_exists (n) - L15
specialize jordan_tuple_normalize_exists (b) - L16
specialize jordan_tuple_normalize_exists (c) - L17
specialize jordan_tuple_normalize_exists (k) - L18
apply jordan_tuple_normalize_exists - L19
exact hn
04Separate the logical casesL20–22
05Establish hprimL23–32
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply jordan primitive tuple congruence transport.
- L23
have hprim : JordanPrimitiveTuple(n,x,x1,k)Definitions: JordanPrimitiveTuple(n,x,x1,k)Original native command in the exact edition - L24
specialize jordan_primitive_tuple_congruence_transport (n) - L25
specialize jordan_primitive_tuple_congruence_transport (b) - L26
specialize jordan_primitive_tuple_congruence_transport (c) - L27
specialize jordan_primitive_tuple_congruence_transport (x) - L28
specialize jordan_primitive_tuple_congruence_transport (x1) - L29
specialize jordan_primitive_tuple_congruence_transport (k) - L30
apply jordan_primitive_tuple_congruence_transport - L31
exact hnrm_witness_witness_right - L32
exact hp
06Establish hlL33–42
Establish this local claim before using it. It is not an additional assumption.
- L33
have hl : JordanTupleListed(x,x1,k,A,B,C,D,j)Definitions: JordanTupleListed(x,x1,k,A,B,C,D,j)Original native command in the exact edition - L34
specialize jordan_enumeration_complete (k) - L35
specialize jordan_enumeration_complete (n) - L36
specialize jordan_enumeration_complete (A) - L37
specialize jordan_enumeration_complete (B) - L38
specialize jordan_enumeration_complete (C) - L39
specialize jordan_enumeration_complete (D) - L40
specialize jordan_enumeration_complete (j) - L41
specialize jordan_enumeration_complete (x) - L42
specialize jordan_enumeration_complete (x1)
07Use earlier factsL43–46
08Separate the logical casesL47–51
09Construct an explicit witnessL52–54
10Separate the logical casesL55–55
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L55
split
11Use earlier factsL56–56
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L56
exact hl_witness_witness_witness_left
12Separate the logical casesL57–57
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L57
split
13Use earlier factsL58–67
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L58
exact hl_witness_witness_witness_right_left - L59
specialize jordan_tuple_congruence_trans (n) - L60
specialize jordan_tuple_congruence_trans (b) - L61
specialize jordan_tuple_congruence_trans (c) - L62
specialize jordan_tuple_congruence_trans (x) - L63
specialize jordan_tuple_congruence_trans (x1) - L64
specialize jordan_tuple_congruence_trans (x3) - L65
specialize jordan_tuple_congruence_trans (x4) - L66
specialize jordan_tuple_congruence_trans (k) - L67
apply jordan_tuple_congruence_trans
14Use earlier factsL68–76
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L68
exact hnrm_witness_witness_right - L69
specialize jordan_tuple_equal_congruence (n) - L70
specialize jordan_tuple_equal_congruence (x) - L71
specialize jordan_tuple_equal_congruence (x1) - L72
specialize jordan_tuple_equal_congruence (x3) - L73
specialize jordan_tuple_equal_congruence (x4) - L74
specialize jordan_tuple_equal_congruence (k) - L75
apply jordan_tuple_equal_congruence - L76
exact hl_witness_witness_witness_right_right
Original defined command ledger · 76 lines
- 0001
intro n - 0002
intro k - 0003
intro A - 0004
intro B - 0005
intro C - 0006
intro D - 0007
intro j - 0008
intro b - 0009
intro c - 0010
intro hn - 0011
intro he - 0012
intro hp - 0013
have hnrm : ∃ d. ∃ e. BetaPrefixInto(d,e,k,n) ∧ JordanTupleCongruence(n,b,c,d,e,k) - 0014
specialize jordan_tuple_normalize_exists (n) - 0015
specialize jordan_tuple_normalize_exists (b) - 0016
specialize jordan_tuple_normalize_exists (c) - 0017
specialize jordan_tuple_normalize_exists (k) - 0018
apply jordan_tuple_normalize_exists - 0019
exact hn - 0020
cases hnrm - 0021
cases hnrm_witness - 0022
cases hnrm_witness_witness - 0023
have hprim : JordanPrimitiveTuple(n,x,x1,k) - 0024
specialize jordan_primitive_tuple_congruence_transport (n) - 0025
specialize jordan_primitive_tuple_congruence_transport (b) - 0026
specialize jordan_primitive_tuple_congruence_transport (c) - 0027
specialize jordan_primitive_tuple_congruence_transport (x) - 0028
specialize jordan_primitive_tuple_congruence_transport (x1) - 0029
specialize jordan_primitive_tuple_congruence_transport (k) - 0030
apply jordan_primitive_tuple_congruence_transport - 0031
exact hnrm_witness_witness_right - 0032
exact hp - 0033
have hl : JordanTupleListed(x,x1,k,A,B,C,D,j) - 0034
specialize jordan_enumeration_complete (k) - 0035
specialize jordan_enumeration_complete (n) - 0036
specialize jordan_enumeration_complete (A) - 0037
specialize jordan_enumeration_complete (B) - 0038
specialize jordan_enumeration_complete (C) - 0039
specialize jordan_enumeration_complete (D) - 0040
specialize jordan_enumeration_complete (j) - 0041
specialize jordan_enumeration_complete (x) - 0042
specialize jordan_enumeration_complete (x1) - 0043
apply jordan_enumeration_complete - 0044
exact he - 0045
exact hnrm_witness_witness_left - 0046
exact hprim - 0047
cases hl - 0048
cases hl_witness - 0049
cases hl_witness_witness - 0050
cases hl_witness_witness_witness - 0051
cases hl_witness_witness_witness_right - 0052
exists x2 - 0053
exists x3 - 0054
exists x4 - 0055
split - 0056
exact hl_witness_witness_witness_left - 0057
split - 0058
exact hl_witness_witness_witness_right_left - 0059
specialize jordan_tuple_congruence_trans (n) - 0060
specialize jordan_tuple_congruence_trans (b) - 0061
specialize jordan_tuple_congruence_trans (c) - 0062
specialize jordan_tuple_congruence_trans (x) - 0063
specialize jordan_tuple_congruence_trans (x1) - 0064
specialize jordan_tuple_congruence_trans (x3) - 0065
specialize jordan_tuple_congruence_trans (x4) - 0066
specialize jordan_tuple_congruence_trans (k) - 0067
apply jordan_tuple_congruence_trans - 0068
exact hnrm_witness_witness_right - 0069
specialize jordan_tuple_equal_congruence (n) - 0070
specialize jordan_tuple_equal_congruence (x) - 0071
specialize jordan_tuple_equal_congruence (x1) - 0072
specialize jordan_tuple_equal_congruence (x3) - 0073
specialize jordan_tuple_equal_congruence (x4) - 0074
specialize jordan_tuple_equal_congruence (k) - 0075
apply jordan_tuple_equal_congruence - 0076
exact hl_witness_witness_witness_right_right