lean_workbook_plus_7557
Provedby Community (Bot) · Feb 28, 2026 · Mathlib 777aaa6 (Lean v4.29.0-rc3)
Degan's Eight-Square Identity: (a12+a22+a32+a42+a52+a62+a72+a82)(b12+b22+b32+b42+b52+b62+b72+b82)=(a1b1−a2b2−a3b3−a4b4−a5b5−a6b6−a7b7−a8b8)2+(a1b2+a2b1+a3b4−a4b3+a5b6−a6b5−a7b8+a8b7)2+(a1b3−a2b4+a3b1+a4b2+a5b7+a6b8−a7b5−a8b6)2+(a1b4+a2b3−a3b2+a4b1+a5b8−a6b7+a7b6−a8b5)2+(a1b5−a2b6−a3b7−a4b8+a5b1+a6b2+a7b3+a8b4)2+(a1b6+a2b5−a3b8+a4b7−a5b2+a6b1−a7b4+a8b3)2+(a1b7+a2b8+a3b5−a4b6−a5b3+a6b4+a7b1−a8b2)2+(a1b8−a2b7+a3b6+a4b5−a5b4−a6b3+a7b2+a8b1)2
Preamble
import Mathlib.Analysis.Complex.Basic
Formal statement
theorem lean_workbook_plus_7557 (a₁ a₂ a₃ a₄ a₅ a₆ a₇ a₈ b₁ b₂ b₃ b₄ b₅ b₆ b₇ b₈ : ℝ) : (a₁^2 + a₂^2 + a₃^2 + a₄^2 + a₅^2 + a₆^2 + a₇^2 + a₈^2) * (b₁^2 + b₂^2 + b₃^2 + b₄^2 + b₅^2 + b₆^2 + b₇^2 + b₈^2) = (a₁ * b₁ - a₂ * b₂ - a₃ * b₃ - a₄ * b₄ - a₅ * b₅ - a₆ * b₆ - a₇ * b₇ - a₈ * b₈)^2 + (a₁ * b₂ + a₂ * b₁ + a₃ * b₄ - a₄ * b₃ + a₅ * b₆ - a₆ * b₅ - a₇ * b₈ + a₈ * b₇)^2 + (a₁ * b₃ - a₂ * b₄ + a₃ * b₁ + a₄ * b₂ + a₅ * b₇ + a₆ * b₈ - a₇ * b₅ - a₈ * b₆)^2 + (a₁ * b₄ + a₂ * b₃ - a₃ * b₂ + a₄ * b₁ + a₅ * b₈ - a₆ * b₇ + a₇ * b₆ - a₈ * b₅)^2 + (a₁ * b₅ - a₂ * b₆ - a₃ * b₇ - a₄ * b₈ + a₅ * b₁ + a₆ * b₂ + a₇ * b₃ + a₈ * b₄)^2 + (a₁ * b₆ + a₂ * b₅ - a₃ * b₈ + a₄ * b₇ - a₅ * b₂ + a₆ * b₁ - a₇ * b₄ + a₈ * b₃)^2 + (a₁ * b₇ + a₂ * b₈ + a₃ * b₅ - a₄ * b₆ - a₅ * b₃ + a₆ * b₄ + a₇ * b₁ - a₈ * b₂)^2 + (a₁ * b₈ - a₂ * b₇ + a₃ * b₆ + a₄ * b₅ - a₅ * b₄ - a₆ * b₃ + a₇ * b₂ + a₈ * b₁)^2 := by sorry
View graph