FS000G · theorem body

quaternion_coordinate_square_balance_total

dependency-curried kernel-checked candidate body; not enrolled in Alpha or Stable

Every Hamilton product has four explicit absolute coordinates with all four constructive squared cross-term corrections.

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.

Statement with defined notation

forall a b c d e f g h. exists m0 m1 m2 m3. (((((a * e) = (b * f + c * g + d * h) + m0) \/ ((b * f + c * g + d * h) = (a * e) + m0)) /\ ((((a * f + b * e + c * h) = (d * g) + m1) \/ ((d * g) = (a * f + b * e + c * h) + m1)) /\ ((((a * g + c * e + d * f) = (b * h) + m2) \/ ((b * h) = (a * g + c * e + d * f) + m2)) /\ (((a * h + b * g + d * e) = (c * f) + m3) \/ ((c * f) = (a * h + b * g + d * e) + m3))))) /\ (((a * e) * (a * e) + (b * f + c * g + d * h) * (b * f + c * g + d * h) = m0 * m0 + ((a * e) * (b * f + c * g + d * h) + (b * f + c * g + d * h) * (a * e))) /\ (((a * f + b * e + c * h) * (a * f + b * e + c * h) + (d * g) * (d * g) = m1 * m1 + ((a * f + b * e + c * h) * (d * g) + (d * g) * (a * f + b * e + c * h))) /\ (((a * g + c * e + d * f) * (a * g + c * e + d * f) + (b * h) * (b * h) = m2 * m2 + ((a * g + c * e + d * f) * (b * h) + (b * h) * (a * g + c * e + d * f))) /\ ((a * h + b * g + d * e) * (a * h + b * g + d * e) + (c * f) * (c * f) = m3 * m3 + ((a * h + b * g + d * e) * (c * f) + (c * f) * (a * h + b * g + d * e)))))))

Every purple notation token opens its conservative definition. This reading surface never changes the unchanged intuitionistic kernel or confers checked-use authority.

Definitions used by this theorem

In the theorem statement

none

In local proof propositions

none
Exact expanded first-order statement
forall a b c d e f g h. exists m0 m1 m2 m3. (((((a * e) = (b * f + c * g + d * h) + m0) \/ ((b * f + c * g + d * h) = (a * e) + m0)) /\ ((((a * f + b * e + c * h) = (d * g) + m1) \/ ((d * g) = (a * f + b * e + c * h) + m1)) /\ ((((a * g + c * e + d * f) = (b * h) + m2) \/ ((b * h) = (a * g + c * e + d * f) + m2)) /\ (((a * h + b * g + d * e) = (c * f) + m3) \/ ((c * f) = (a * h + b * g + d * e) + m3))))) /\ (((a * e) * (a * e) + (b * f + c * g + d * h) * (b * f + c * g + d * h) = m0 * m0 + ((a * e) * (b * f + c * g + d * h) + (b * f + c * g + d * h) * (a * e))) /\ (((a * f + b * e + c * h) * (a * f + b * e + c * h) + (d * g) * (d * g) = m1 * m1 + ((a * f + b * e + c * h) * (d * g) + (d * g) * (a * f + b * e + c * h))) /\ (((a * g + c * e + d * f) * (a * g + c * e + d * f) + (b * h) * (b * h) = m2 * m2 + ((a * g + c * e + d * f) * (b * h) + (b * h) * (a * g + c * e + d * f))) /\ ((a * h + b * g + d * e) * (a * h + b * g + d * e) + (c * f) * (c * f) = m3 * m3 + ((a * h + b * g + d * e) * (c * f) + (c * f) * (a * h + b * g + d * e)))))))

Proof neighborhood

Direct theorem prerequisites

Direct theorem dependents

none

Definition-aware tactic body

Only propositions whose conservative expansion has been checked for exact first-order equivalence are compacted. Every changed line retains its immutable exact replay command.

Read the argument

Proof checkpoints

28 script commands · 6 reading checkpoints · 0 local claims

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.

Definition notation is shown below. Open the paired exact edition for the original native formulas. Source pairing is not a new equivalence certificate.

Named ingredients (2)
01Fix variables and assumptionsL1–8

Work with arbitrary variables or the premises of the current implication.

  1. L1
    intro a
  2. L2
    intro b
  3. L3
    intro c
  4. L4
    intro d
  5. L5
    intro e
  6. L6
    intro f
  7. L7
    intro g
  8. L8
    intro h
02Use earlier factsL9–16

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L9
    specialize quaternion_coordinate_absolute_total a
  2. L10
    specialize quaternion_coordinate_absolute_total b
  3. L11
    specialize quaternion_coordinate_absolute_total c
  4. L12
    specialize quaternion_coordinate_absolute_total d
  5. L13
    specialize quaternion_coordinate_absolute_total e
  6. L14
    specialize quaternion_coordinate_absolute_total f
  7. L15
    specialize quaternion_coordinate_absolute_total g
  8. L16
    specialize quaternion_coordinate_absolute_total h
03Separate the logical casesL17–20

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L17
    cases quaternion_coordinate_absolute_total
  2. L18
    cases quaternion_coordinate_absolute_total_witness
  3. L19
    cases quaternion_coordinate_absolute_total_witness_witness
  4. L20
    cases quaternion_coordinate_absolute_total_witness_witness_witness
04Construct an explicit witnessL21–24

Supply the displayed value, then prove that it has the required property.

  1. L21
    exists x
  2. L22
    exists x1
  3. L23
    exists x2
  4. L24
    exists x3
05Separate the logical casesL25–25

Follow the explicit conjunction, disjunction, witness, or contradiction step recorded below.

  1. L25
    split
06Use earlier factsL26–28

Instantiate or apply named facts and discharge the corresponding proof obligations.

  1. L26
    exact quaternion_coordinate_absolute_total_witness_witness_witness_witness
  2. L27
    apply quaternion_coordinate_square_transport
  3. L28
    exact quaternion_coordinate_absolute_total_witness_witness_witness_witness

Library-wide reading audit

Original defined command ledger · 28 lines
  1. 0001intro a
  2. 0002intro b
  3. 0003intro c
  4. 0004intro d
  5. 0005intro e
  6. 0006intro f
  7. 0007intro g
  8. 0008intro h
  9. 0009specialize quaternion_coordinate_absolute_total a
  10. 0010specialize quaternion_coordinate_absolute_total b
  11. 0011specialize quaternion_coordinate_absolute_total c
  12. 0012specialize quaternion_coordinate_absolute_total d
  13. 0013specialize quaternion_coordinate_absolute_total e
  14. 0014specialize quaternion_coordinate_absolute_total f
  15. 0015specialize quaternion_coordinate_absolute_total g
  16. 0016specialize quaternion_coordinate_absolute_total h
  17. 0017cases quaternion_coordinate_absolute_total
  18. 0018cases quaternion_coordinate_absolute_total_witness
  19. 0019cases quaternion_coordinate_absolute_total_witness_witness
  20. 0020cases quaternion_coordinate_absolute_total_witness_witness_witness
  21. 0021exists x
  22. 0022exists x1
  23. 0023exists x2
  24. 0024exists x3
  25. 0025split
  26. 0026exact quaternion_coordinate_absolute_total_witness_witness_witness_witness
  27. 0027apply quaternion_coordinate_square_transport
  28. 0028exact quaternion_coordinate_absolute_total_witness_witness_witness_witness