The lines of the Lean statement that state the theorem, then the definitions in the file that it uses.
Local definitions the statement names, followed through the definitions they name in turn. The match is by name in the source text, so a name reached only through notation can be missed; the full file is below.
definition OAI.DimensionTen.blocksZ line 10
def blocksZ : Fin 4 → Matrix (Fin 6) (Fin 4) ℤ := ![ ![ ![6,0,0,0], ![0,6,0,0], ![0,0,6,0], ![0,0,0,6], ![0,0,0,0], ![0,0,0,0] ], ![ ![-12,0,0,0], ![0,-6,0,0], ![0,0,6,0], ![0,0,0,12], ![-6,0,6,6], ![-6,-6,6,0] ], ![ ![0,6,-2,0], ![6,6,0,2], ![-2,0,10,0], ![0,2,0,24], ![0,0,0,6], ![0,-6,6,-6] ], ![ ![0,0,-4,-3], ![0,-2,-3,-4], ![-4,-3,11,6], ![-3,-4,6,25], ![6,6,0,0], ![0,-6,6,6] ] ]
definition OAI.DimensionTen.blocks line 16
def blocks (i : Fin 4) : Matrix (Fin 6) (Fin 4) ℂ := (blocksZ i).map (Int.castRingHom ℂ)
definition OAI.DimensionTen.pencilMap line 19
def pencilMap (A : Matrix (Fin 4) (Fin 4) ℂ) : Matrix (Fin 4) (Fin 4) ℂ := ∑ i : Fin 4, ∑ j : Fin 4, A i j • ((blocks i)ᵀ * blocks j)
abbreviation OAI.DimensionTen.Mat line 22
abbrev Mat (n : ℕ) := Matrix (Fin n) (Fin n) ℂ
definition OAI.DimensionTen.IsComplexLinear line 24
def IsComplexLinear {a b : ℕ} (F : Mat a → Mat b) : Prop := (∀ A B, F (A + B) = F A + F B) ∧ (∀ (c : ℂ) A, F (c • A) = c • F A)
definition OAI.DimensionTen.amplify line 28
def amplify {a b : ℕ} (F : Mat a → Mat b) (k : ℕ) (X : Matrix (Fin k × Fin a) (Fin k × Fin a) ℂ) : Matrix (Fin k × Fin b) (Fin k × Fin b) ℂ := fun u v => F (fun i j => X (u.1, i) (v.1, j)) u.2 v.2
definition OAI.DimensionTen.CompletelyPositive line 33
def CompletelyPositive {a b : ℕ} (F : Mat a → Mat b) : Prop := ∀ k : ℕ, 0 < k → ∀ X : Matrix (Fin k × Fin a) (Fin k × Fin a) ℂ, X.PosSemidef → (amplify F k X).PosSemidef
definition OAI.DimensionTen.PPT line 37
def PPT {a b : ℕ} (F : Mat a → Mat b) : Prop := IsComplexLinear F ∧ CompletelyPositive F ∧ CompletelyPositive (fun X => (F X)ᵀ)
definition OAI.DimensionTen.tensorMap line 55
def tensorMap {a b c d : ℕ} (F : Mat a → Mat b) (G : Mat c → Mat d) (X : Matrix (Fin a × Fin c) (Fin a × Fin c) ℂ) : Matrix (Fin b × Fin d) (Fin b × Fin d) ℂ := ∑ i : Fin c, ∑ j : Fin c, Matrix.kronecker (F (fun a b => X (a, i) (b, j))) (G (Matrix.single i j 1))
definition OAI.DimensionTen.hsAdjoint line 61
def hsAdjoint {a b : ℕ} (F : Mat a → Mat b) (Y : Mat b) : Mat a := fun i j => ∑ u : Fin b, ∑ v : Fin b, star (F (Matrix.single i j 1) u v) * Y u v
definition OAI.DimensionTen.symmetricPairs line 64
def symmetricPairs : Fin 10 → Fin 4 × Fin 4 := ![(0,0), (0,1), (0,2), (0,3), (1,1), (1,2), (1,3), (2,2), (2,3), (3,3)]
definition OAI.DimensionTen.exteriorPairs line 67
def exteriorPairs : Fin 6 → Fin 4 × Fin 4 := ![(0,1), (0,2), (0,3), (1,2), (1,3), (2,3)]
definition OAI.DimensionTen.symmetricIsometry line 70
def symmetricIsometry : Matrix (Fin 4 × Fin 4) (Fin 10) ℂ := fun ij a => let p := (symmetricPairs a).1 let q := (symmetricPairs a).2 if p = q then (if ij = (p,p) then 1 else 0) else ((if ij = (p,q) then 1 else 0) + (if ij = (q,p) then 1 else 0)) / (Real.sqrt 2 : ℂ)
definition OAI.DimensionTen.exteriorIsometry line 78
def exteriorIsometry : Matrix (Fin 4 × Fin 4) (Fin 6) ℂ := fun ij a => let p := (exteriorPairs a).1 let q := (exteriorPairs a).2 ((if ij = (p,q) then 1 else 0) - (if ij = (q,p) then 1 else 0)) / (Real.sqrt 2 : ℂ)
definition OAI.DimensionTen.hodgeComplement line 85
def hodgeComplement : Mat 6 := ![ ![0,0,0,0,0,1], ![0,0,0,0,-1,0], ![0,0,0,1,0,0], ![0,0,1,0,0,0], ![0,-1,0,0,0,0], ![1,0,0,0,0,0] ]
definition OAI.DimensionTen.firstSix line 89
def firstSix : Matrix (Fin 10) (Fin 6) ℂ := fun i j => if i.val = j.val then 1 else 0
definition OAI.DimensionTen.exteriorMap line 92
def exteriorMap (A : Mat 10) : Mat 6 := exteriorIsometryᴴ * tensorMap pencilMap pencilMap (symmetricIsometry * A * symmetricIsometryᴴ) * exteriorIsometry
definition OAI.DimensionTen.complementaryMap line 97
def complementaryMap (A : Mat 10) : Mat 6 := hodgeComplement * (exteriorMap A)ᵀ * hodgeComplementᴴ
definition OAI.DimensionTen.phiOne line 100
def phiOne (A : Mat 10) : Mat 10 := firstSix * exteriorMap Aᵀ * firstSixᴴ
definition OAI.DimensionTen.phiTwo line 103
def phiTwo (B : Mat 10) : Mat 10 := hsAdjoint complementaryMap (firstSixᴴ * B * firstSix)