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
∀ k. ∀ n. ∀ A. ∀ B. ∀ C. ∀ D. ∀ u. ∀ E. ∀ F. ∀ G. ∀ H. ∀ v. ∀ i. JordanTupleEnumeration(k,n,A,B,C,D,u) → JordanTupleEnumeration(k,n,E,F,G,H,v) → Lt(i,u) → ∃ x. Lt(x,v) ∧ (∀ y. ∀ z. ∀ m. ∀ j. BetaAt(A,B,i,y) ∧ BetaAt(C,D,i,z) → BetaAt(E,F,x,m) ∧ BetaAt(G,H,x,j) → IntegerVectorZero(y,z,m,j,k))
Every linked abbreviation expands hygienically to the identical original native formula.
Definition DAG
Actual proof prerequisites
Complete tactic proof in conservative notation
All 66 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–16
03Separate the logical casesL17–17
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L17
cases hl
04Establish hvL18–21
Establish this local claim before using it. It is not an additional assumption. The following proof commands apply hl left.
- L18
have hv : ∃ b. ∃ c. BetaAt(A,B,i,b) ∧ BetaAt(C,D,i,c) ∧ (BetaPrefixInto(b,c,k,n) ∧ JordanPrimitiveTuple(n,b,c,k))Definitions: BetaAt(A,B,i,b)BetaAt(C,D,i,c)BetaPrefixInto(b,c,k,n)JordanPrimitiveTuple(n,b,c,k)Original native command in the exact edition - L19
specialize hl_left (i) - L20
apply hl_left - L21
exact hi
05Separate the logical casesL22–25
06Establish hwL26–35
Establish this local claim before using it. It is not an additional assumption.
- L26
have hw : JordanTupleListed(x,x1,k,E,F,G,H,v)Definitions: JordanTupleListed(x,x1,k,E,F,G,H,v)Original native command in the exact edition - L27
specialize jordan_enumeration_complete (k) - L28
specialize jordan_enumeration_complete (n) - L29
specialize jordan_enumeration_complete (E) - L30
specialize jordan_enumeration_complete (F) - L31
specialize jordan_enumeration_complete (G) - L32
specialize jordan_enumeration_complete (H) - L33
specialize jordan_enumeration_complete (v) - L34
specialize jordan_enumeration_complete (x) - L35
specialize jordan_enumeration_complete (x1)
07Use earlier factsL36–39
08Separate the logical casesL40–44
09Construct an explicit witnessL45–45
Supply the displayed value, then prove that it has the required property.
- L45
exists x2
10Separate the logical casesL46–46
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L46
split
11Use earlier factsL47–56
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L47
exact hw_witness_witness_witness_left - L48
specialize jordan_enumeration_position_match_from_entries (k) - L49
specialize jordan_enumeration_position_match_from_entries (A) - L50
specialize jordan_enumeration_position_match_from_entries (B) - L51
specialize jordan_enumeration_position_match_from_entries (C) - L52
specialize jordan_enumeration_position_match_from_entries (D) - L53
specialize jordan_enumeration_position_match_from_entries (E) - L54
specialize jordan_enumeration_position_match_from_entries (F) - L55
specialize jordan_enumeration_position_match_from_entries (G) - L56
specialize jordan_enumeration_position_match_from_entries (H)
12Use earlier factsL57–66
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L57
specialize jordan_enumeration_position_match_from_entries (i) - L58
specialize jordan_enumeration_position_match_from_entries (x2) - L59
specialize jordan_enumeration_position_match_from_entries (x) - L60
specialize jordan_enumeration_position_match_from_entries (x1) - L61
specialize jordan_enumeration_position_match_from_entries (x3) - L62
specialize jordan_enumeration_position_match_from_entries (x4) - L63
apply jordan_enumeration_position_match_from_entries - L64
exact hv_witness_witness_left - L65
exact hw_witness_witness_witness_right_left - L66
exact hw_witness_witness_witness_right_right
Original defined command ledger · 66 lines
- 0001
intro k - 0002
intro n - 0003
intro A - 0004
intro B - 0005
intro C - 0006
intro D - 0007
intro u - 0008
intro E - 0009
intro F - 0010
intro G - 0011
intro H - 0012
intro v - 0013
intro i - 0014
intro hl - 0015
intro hr - 0016
intro hi - 0017
cases hl - 0018
have hv : ∃ b. ∃ c. BetaAt(A,B,i,b) ∧ BetaAt(C,D,i,c) ∧ (BetaPrefixInto(b,c,k,n) ∧ JordanPrimitiveTuple(n,b,c,k)) - 0019
specialize hl_left (i) - 0020
apply hl_left - 0021
exact hi - 0022
cases hv - 0023
cases hv_witness - 0024
cases hv_witness_witness - 0025
cases hv_witness_witness_right - 0026
have hw : JordanTupleListed(x,x1,k,E,F,G,H,v) - 0027
specialize jordan_enumeration_complete (k) - 0028
specialize jordan_enumeration_complete (n) - 0029
specialize jordan_enumeration_complete (E) - 0030
specialize jordan_enumeration_complete (F) - 0031
specialize jordan_enumeration_complete (G) - 0032
specialize jordan_enumeration_complete (H) - 0033
specialize jordan_enumeration_complete (v) - 0034
specialize jordan_enumeration_complete (x) - 0035
specialize jordan_enumeration_complete (x1) - 0036
apply jordan_enumeration_complete - 0037
exact hr - 0038
exact hv_witness_witness_right_left - 0039
exact hv_witness_witness_right_right - 0040
cases hw - 0041
cases hw_witness - 0042
cases hw_witness_witness - 0043
cases hw_witness_witness_witness - 0044
cases hw_witness_witness_witness_right - 0045
exists x2 - 0046
split - 0047
exact hw_witness_witness_witness_left - 0048
specialize jordan_enumeration_position_match_from_entries (k) - 0049
specialize jordan_enumeration_position_match_from_entries (A) - 0050
specialize jordan_enumeration_position_match_from_entries (B) - 0051
specialize jordan_enumeration_position_match_from_entries (C) - 0052
specialize jordan_enumeration_position_match_from_entries (D) - 0053
specialize jordan_enumeration_position_match_from_entries (E) - 0054
specialize jordan_enumeration_position_match_from_entries (F) - 0055
specialize jordan_enumeration_position_match_from_entries (G) - 0056
specialize jordan_enumeration_position_match_from_entries (H) - 0057
specialize jordan_enumeration_position_match_from_entries (i) - 0058
specialize jordan_enumeration_position_match_from_entries (x2) - 0059
specialize jordan_enumeration_position_match_from_entries (x) - 0060
specialize jordan_enumeration_position_match_from_entries (x1) - 0061
specialize jordan_enumeration_position_match_from_entries (x3) - 0062
specialize jordan_enumeration_position_match_from_entries (x4) - 0063
apply jordan_enumeration_position_match_from_entries - 0064
exact hv_witness_witness_left - 0065
exact hw_witness_witness_witness_right_left - 0066
exact hw_witness_witness_witness_right_right