Current library: Alpha v34, 4,223 checked-use theorems; Stable remains 432. Historical first admissions, original proof editions, and non-admitted aliases are preserved. Exact original first-admission records.
Exact expanded first-order arithmetic statement
forall a b c d e f g h. (((a * a + b * b + c * c + d * d) * (e * e + f * f + g * g + h * h)) + (((((a * e + b * f + c * g + d * h) * (0) + (0) * (a * e + b * f + c * g + d * h)) + ((a * f + c * h) * (b * e + d * g) + (b * e + d * g) * (a * f + c * h))) + (((a * g + d * f) * (c * e + b * h) + (c * e + b * h) * (a * g + d * f)) + ((a * h + b * g) * (d * e + c * f) + (d * e + c * f) * (a * h + b * g)))))) = (((((a * e + b * f + c * g + d * h) * (a * e + b * f + c * g + d * h) + (0) * (0)) + ((a * f + c * h) * (a * f + c * h) + (b * e + d * g) * (b * e + d * g))) + (((a * g + d * f) * (a * g + d * f) + (c * e + b * h) * (c * e + b * h)) + ((a * h + b * g) * (a * h + b * g) + (d * e + c * f) * (d * e + c * f)))))Constructive proof overview
Generated structural guide
The complete subtraction-free conjugate quaternion compensation equation follows from sixteen diagonal and twelve explicitly crossed mixed blocks.
The unchanged tactic script uses 5 declared prerequisites and contains 28 exact native proof lines.
dependency-curried kernel-checked theorem body; Alpha enrollment and checked-use authority follow separately sealed release evidence; Stable membership remains unchanged
Proof neighborhood
Direct dependencies
FS002H four_square_euler_diagonal_expansion FS000V four_square_conjugate_diagonal_regroup FS000Y four_square_conjugate_cross_decomposition FS000Z four_square_conjugate_mixed_decomposition FS000X four_square_conjugate_left_decompositionDirect dependents
Formal native tactic body
Dependencies are introduced as named hypotheses before line 1. Local theorem links identify exact declared prerequisites. This exact body belongs to a complete independently kernel-checked constructive proof bundle and has Alpha checked-use authority; it does not imply Stable membership.
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–8
02Calculate and transport equalitiesL9–10
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L9
trans ((((((((((a * e) * (a * e)) + ((a * f) * (a * f))) + ((a * g) * (a * g))) + ((a * h) * (a * h)))) + · expand full local formula (707 characters)
trans ((((((((((a * e) * (a * e)) + ((a * f) * (a * f))) + ((a * g) * (a * g))) + ((a * h) * (a * h)))) + ((((((b * e) * (b * e)) + ((b * f) * (b * f))) + ((b * g) * (b * g))) + ((b * h) * (b * h))))) + ((((((c * e) * (c * e)) + ((c * f) * (c * f))) + ((c * g) * (c * g))) + ((c * h) * (c * h))))) + ((((((d * e) * (d * e)) + ((d * f) * (d * f))) + ((d * g) * (d * g))) + ((d * h) * (d * h)))))) + (((((a * e + b * f + c * g + d * h) * (0) + (0) * (a * e + b * f + c * g + d * h)) + ((a * f + c * h) * (b * e + d * g) + (b * e + d * g) * (a * f + c * h))) + (((a * g + d * f) * (c * e + b * h) + (c * e + b * h) * (a * g + d * f)) + ((a * h + b * g) * (d * e + c * f) + (d * e + c * f) * (a * h + b * g))))) - L10
congr
03Use earlier factsL11–11
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L11
apply four_square_euler_diagonal_expansion
04Calculate and transport equalitiesL12–15
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L12
refl - L13
trans (((((((((a * e) * (a * e)) + ((b * f) * (b * f))) + ((c * g) * (c * g))) + ((d * h) * (d * h)))) + ( · expand full local formula (719 characters)
trans (((((((((a * e) * (a * e)) + ((b * f) * (b * f))) + ((c * g) * (c * g))) + ((d * h) * (d * h)))) + ((((((a * f) * (a * f)) + ((c * h) * (c * h)))) + ((((b * e) * (b * e)) + ((d * g) * (d * g))))))) + (((((((a * g) * (a * g)) + ((d * f) * (d * f)))) + ((((c * e) * (c * e)) + ((b * h) * (b * h)))))) + ((((((a * h) * (a * h)) + ((b * g) * (b * g)))) + ((((d * e) * (d * e)) + ((c * f) * (c * f))))))))) + (((((a * e + b * f + c * g + d * h) * (0) + (0) * (a * e + b * f + c * g + d * h)) + ((a * f + c * h) * (b * e + d * g) + (b * e + d * g) * (a * f + c * h))) + (((a * g + d * f) * (c * e + b * h) + (c * e + b * h) * (a * g + d * f)) + ((a * h + b * g) * (d * e + c * f) + (d * e + c * f) * (a * h + b * g))))) - L14
congr - L15
symm
05Use earlier factsL16–16
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L16
apply four_square_conjugate_diagonal_regroup
06Calculate and transport equalitiesL17–20
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L17
refl - L18
trans (((((((((a * e) * (a * e)) + ((b * f) * (b * f))) + ((c * g) * (c * g))) + ((d * h) * (d * h)))) + ( · expand full local formula (959 characters)
trans (((((((((a * e) * (a * e)) + ((b * f) * (b * f))) + ((c * g) * (c * g))) + ((d * h) * (d * h)))) + ((((((a * f) * (a * f)) + ((c * h) * (c * h)))) + ((((b * e) * (b * e)) + ((d * g) * (d * g))))))) + (((((((a * g) * (a * g)) + ((d * f) * (d * f)))) + ((((c * e) * (c * e)) + ((b * h) * (b * h)))))) + ((((((a * h) * (a * h)) + ((b * g) * (b * g)))) + ((((d * e) * (d * e)) + ((c * f) * (c * f))))))))) + (((((((((((((((a * f) * (b * e) + (b * e) * (a * f))) + (((a * f) * (d * g) + (d * g) * (a * f)))) + (((c * h) * (b * e) + (b * e) * (c * h)))) + (((c * h) * (d * g) + (d * g) * (c * h)))) + (((a * g) * (c * e) + (c * e) * (a * g)))) + (((a * g) * (b * h) + (b * h) * (a * g)))) + (((d * f) * (c * e) + (c * e) * (d * f)))) + (((d * f) * (b * h) + (b * h) * (d * f)))) + (((a * h) * (d * e) + (d * e) * (a * h)))) + (((a * h) * (c * f) + (c * f) * (a * h)))) + (((b * g) * (d * e) + (d * e) * (b * g)))) + (((b * g) * (c * f) + (c * f) * (b * g))))) - L19
congr - L20
refl
07Use earlier factsL21–21
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L21
apply four_square_conjugate_cross_decomposition
08Calculate and transport equalitiesL22–25
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L22
trans (((((((((a * e) * (a * e)) + ((b * f) * (b * f))) + ((c * g) * (c * g))) + ((d * h) * (d * h)))) + ( · expand full local formula (959 characters)
trans (((((((((a * e) * (a * e)) + ((b * f) * (b * f))) + ((c * g) * (c * g))) + ((d * h) * (d * h)))) + ((((((a * f) * (a * f)) + ((c * h) * (c * h)))) + ((((b * e) * (b * e)) + ((d * g) * (d * g))))))) + (((((((a * g) * (a * g)) + ((d * f) * (d * f)))) + ((((c * e) * (c * e)) + ((b * h) * (b * h)))))) + ((((((a * h) * (a * h)) + ((b * g) * (b * g)))) + ((((d * e) * (d * e)) + ((c * f) * (c * f))))))))) + (((((((((((((((a * e) * (b * f) + (b * f) * (a * e))) + (((a * e) * (c * g) + (c * g) * (a * e)))) + (((b * f) * (c * g) + (c * g) * (b * f)))) + (((d * h) * (a * e) + (a * e) * (d * h)))) + (((d * h) * (b * f) + (b * f) * (d * h)))) + (((d * h) * (c * g) + (c * g) * (d * h)))) + (((a * f) * (c * h) + (c * h) * (a * f)))) + (((b * e) * (d * g) + (d * g) * (b * e)))) + (((a * g) * (d * f) + (d * f) * (a * g)))) + (((c * e) * (b * h) + (b * h) * (c * e)))) + (((a * h) * (b * g) + (b * g) * (a * h)))) + (((d * e) * (c * f) + (c * f) * (d * e))))) - L23
congr - L24
refl - L25
symm
09Use earlier factsL26–26
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L26
apply four_square_conjugate_mixed_decomposition
10Calculate and transport equalitiesL27–27
Carry out the recorded arithmetic or equality steps; inspect the exact commands for their direction and premises.
- L27
symm
11Use earlier factsL28–28
Instantiate or apply named facts and discharge the corresponding proof obligations.
- L28
apply four_square_conjugate_left_decomposition
Original exact command ledger · 28 lines
- 0001
intro a - 0002
intro b - 0003
intro c - 0004
intro d - 0005
intro e - 0006
intro f - 0007
intro g - 0008
intro h - 0009
trans ((((((((((a * e) * (a * e)) + ((a * f) * (a * f))) + ((a * g) * (a * g))) + ((a * h) * (a * h)))) + ((((((b * e) * (b * e)) + ((b * f) * (b * f))) + ((b * g) * (b * g))) + ((b * h) * (b * h))))) + ((((((c * e) * (c * e)) + ((c * f) * (c * f))) + ((c * g) * (c * g))) + ((c * h) * (c * h))))) + ((((((d * e) * (d * e)) + ((d * f) * (d * f))) + ((d * g) * (d * g))) + ((d * h) * (d * h)))))) + (((((a * e + b * f + c * g + d * h) * (0) + (0) * (a * e + b * f + c * g + d * h)) + ((a * f + c * h) * (b * e + d * g) + (b * e + d * g) * (a * f + c * h))) + (((a * g + d * f) * (c * e + b * h) + (c * e + b * h) * (a * g + d * f)) + ((a * h + b * g) * (d * e + c * f) + (d * e + c * f) * (a * h + b * g))))) - 0010
congr - 0011
apply four_square_euler_diagonal_expansion - 0012
refl - 0013
trans (((((((((a * e) * (a * e)) + ((b * f) * (b * f))) + ((c * g) * (c * g))) + ((d * h) * (d * h)))) + ((((((a * f) * (a * f)) + ((c * h) * (c * h)))) + ((((b * e) * (b * e)) + ((d * g) * (d * g))))))) + (((((((a * g) * (a * g)) + ((d * f) * (d * f)))) + ((((c * e) * (c * e)) + ((b * h) * (b * h)))))) + ((((((a * h) * (a * h)) + ((b * g) * (b * g)))) + ((((d * e) * (d * e)) + ((c * f) * (c * f))))))))) + (((((a * e + b * f + c * g + d * h) * (0) + (0) * (a * e + b * f + c * g + d * h)) + ((a * f + c * h) * (b * e + d * g) + (b * e + d * g) * (a * f + c * h))) + (((a * g + d * f) * (c * e + b * h) + (c * e + b * h) * (a * g + d * f)) + ((a * h + b * g) * (d * e + c * f) + (d * e + c * f) * (a * h + b * g))))) - 0014
congr - 0015
symm - 0016
apply four_square_conjugate_diagonal_regroup - 0017
refl - 0018
trans (((((((((a * e) * (a * e)) + ((b * f) * (b * f))) + ((c * g) * (c * g))) + ((d * h) * (d * h)))) + ((((((a * f) * (a * f)) + ((c * h) * (c * h)))) + ((((b * e) * (b * e)) + ((d * g) * (d * g))))))) + (((((((a * g) * (a * g)) + ((d * f) * (d * f)))) + ((((c * e) * (c * e)) + ((b * h) * (b * h)))))) + ((((((a * h) * (a * h)) + ((b * g) * (b * g)))) + ((((d * e) * (d * e)) + ((c * f) * (c * f))))))))) + (((((((((((((((a * f) * (b * e) + (b * e) * (a * f))) + (((a * f) * (d * g) + (d * g) * (a * f)))) + (((c * h) * (b * e) + (b * e) * (c * h)))) + (((c * h) * (d * g) + (d * g) * (c * h)))) + (((a * g) * (c * e) + (c * e) * (a * g)))) + (((a * g) * (b * h) + (b * h) * (a * g)))) + (((d * f) * (c * e) + (c * e) * (d * f)))) + (((d * f) * (b * h) + (b * h) * (d * f)))) + (((a * h) * (d * e) + (d * e) * (a * h)))) + (((a * h) * (c * f) + (c * f) * (a * h)))) + (((b * g) * (d * e) + (d * e) * (b * g)))) + (((b * g) * (c * f) + (c * f) * (b * g))))) - 0019
congr - 0020
refl - 0021
apply four_square_conjugate_cross_decomposition - 0022
trans (((((((((a * e) * (a * e)) + ((b * f) * (b * f))) + ((c * g) * (c * g))) + ((d * h) * (d * h)))) + ((((((a * f) * (a * f)) + ((c * h) * (c * h)))) + ((((b * e) * (b * e)) + ((d * g) * (d * g))))))) + (((((((a * g) * (a * g)) + ((d * f) * (d * f)))) + ((((c * e) * (c * e)) + ((b * h) * (b * h)))))) + ((((((a * h) * (a * h)) + ((b * g) * (b * g)))) + ((((d * e) * (d * e)) + ((c * f) * (c * f))))))))) + (((((((((((((((a * e) * (b * f) + (b * f) * (a * e))) + (((a * e) * (c * g) + (c * g) * (a * e)))) + (((b * f) * (c * g) + (c * g) * (b * f)))) + (((d * h) * (a * e) + (a * e) * (d * h)))) + (((d * h) * (b * f) + (b * f) * (d * h)))) + (((d * h) * (c * g) + (c * g) * (d * h)))) + (((a * f) * (c * h) + (c * h) * (a * f)))) + (((b * e) * (d * g) + (d * g) * (b * e)))) + (((a * g) * (d * f) + (d * f) * (a * g)))) + (((c * e) * (b * h) + (b * h) * (c * e)))) + (((a * h) * (b * g) + (b * g) * (a * h)))) + (((d * e) * (c * f) + (c * f) * (d * e))))) - 0023
congr - 0024
refl - 0025
symm - 0026
apply four_square_conjugate_mixed_decomposition - 0027
symm - 0028
apply four_square_conjugate_left_decomposition