feat: Unit and metric for Weyl

This commit is contained in:
jstoobysmith 2024-10-15 11:23:08 +00:00
parent 98e2f1865d
commit 1ceffaa329
6 changed files with 928 additions and 28 deletions

View file

@ -52,6 +52,11 @@ def fin2Iso {c : Fin 2 → C} : mk c ≅ mk ![c 0] ⊗ mk ![c 1] :=by
fin_cases x
rfl
def finSwapTwo {n : } (i : Fin n) : Fin (2 + n) ≃ Fin n.succ.succ := by
let e1 := Equiv.swap (Fin.castAdd n (0 : Fin 2)) (Fin.natAdd 2 i)
let e2 := Equiv.swap (Fin.castAdd n (1 : Fin 2)) (Fin.natAdd 2 i)
/-- The equivalence between `Fin n.succ` and `Fin 1 ⊕ Fin n` extracting the
`i`th component. -/
def finExtractOne {n : } (i : Fin n.succ) : Fin n.succ ≃ Fin 1 ⊕ Fin n :=