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. ∀ a. ∀ b. ∀ u. ∀ v. Coprime(a,b) → JordanTotient(k,a,u) → JordanTotient(k,b,v) → JordanTotient(k,a · b,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 49 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–8
02Separate the logical casesL9–18
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
03Separate the logical casesL19–21
04Use earlier factsL22–22
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L22
exact ha_left
05Separate the logical casesL23–23
Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.
- L23
split
06Fix variables and assumptionsL24–24
Work with arbitrary variables or the premises of the current implication.
- L24
intro hz
07Use earlier factsL25–34
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L25
specialize mul_ne_zero (a) - L26
specialize mul_ne_zero (b) - L27
apply mul_ne_zero - L28
exact ha_right_left - L29
exact hb_right_left - L30
exact hz - L31
specialize jordan_product_enumeration_exists (a) - L32
specialize jordan_product_enumeration_exists (b) - L33
specialize jordan_product_enumeration_exists (k) - L34
specialize jordan_product_enumeration_exists (x)
08Use earlier factsL35–44
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L35
specialize jordan_product_enumeration_exists (x1) - L36
specialize jordan_product_enumeration_exists (x2) - L37
specialize jordan_product_enumeration_exists (x3) - L38
specialize jordan_product_enumeration_exists (u) - L39
specialize jordan_product_enumeration_exists (x4) - L40
specialize jordan_product_enumeration_exists (x5) - L41
specialize jordan_product_enumeration_exists (x6) - L42
specialize jordan_product_enumeration_exists (x7) - L43
specialize jordan_product_enumeration_exists (v) - L44
apply jordan_product_enumeration_exists
Original defined command ledger · 49 lines
- 0001
intro k - 0002
intro a - 0003
intro b - 0004
intro u - 0005
intro v - 0006
intro hcop - 0007
intro ha - 0008
intro hb - 0009
cases ha - 0010
cases ha_right - 0011
cases hb - 0012
cases hb_right - 0013
cases ha_right_right - 0014
cases ha_right_right_witness - 0015
cases ha_right_right_witness_witness - 0016
cases ha_right_right_witness_witness_witness - 0017
cases hb_right_right - 0018
cases hb_right_right_witness - 0019
cases hb_right_right_witness_witness - 0020
cases hb_right_right_witness_witness_witness - 0021
split - 0022
exact ha_left - 0023
split - 0024
intro hz - 0025
specialize mul_ne_zero (a) - 0026
specialize mul_ne_zero (b) - 0027
apply mul_ne_zero - 0028
exact ha_right_left - 0029
exact hb_right_left - 0030
exact hz - 0031
specialize jordan_product_enumeration_exists (a) - 0032
specialize jordan_product_enumeration_exists (b) - 0033
specialize jordan_product_enumeration_exists (k) - 0034
specialize jordan_product_enumeration_exists (x) - 0035
specialize jordan_product_enumeration_exists (x1) - 0036
specialize jordan_product_enumeration_exists (x2) - 0037
specialize jordan_product_enumeration_exists (x3) - 0038
specialize jordan_product_enumeration_exists (u) - 0039
specialize jordan_product_enumeration_exists (x4) - 0040
specialize jordan_product_enumeration_exists (x5) - 0041
specialize jordan_product_enumeration_exists (x6) - 0042
specialize jordan_product_enumeration_exists (x7) - 0043
specialize jordan_product_enumeration_exists (v) - 0044
apply jordan_product_enumeration_exists - 0045
exact ha_right_left - 0046
exact hb_right_left - 0047
exact hcop - 0048
exact ha_right_right_witness_witness_witness_witness - 0049
exact hb_right_right_witness_witness_witness_witness