DibyashanuPati/PhysLean
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: lemmas relating to index notation

Browse source
This commit is contained in:
jstoobysmith 2024-10-17 11:43:33 +00:00
parent ac11a510cf
commit 672cc1ed8b
11 changed files with 510 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

4
HepLean/Tensors/Tree/Dot.lean
View file

@ -49,6 +49,10 @@ def dotString (m : ℕ) (nt : ℕ) : ∀ {n : ℕ} {c : Fin n → S.C}, TensorTr
let edge2 := " node" ++ toString m ++ " -> node" ++ toString (2 * t1.size + m + 2) ++ ";\n"
prodNode ++ dotString (m + 1) nt t1 ++ dotString (2 * t1.size + m + 2) (nt + 1) t2
++ edge1 ++ edge2
| neg t =>
let negNode := " node" ++ toString m ++ " [label=\"neg\", shape=box];\n"
let edge1 := " node" ++ toString m ++ " -> node" ++ toString (m + 1) ++ ";\n"
negNode ++ dotString (m + 1) nt t ++ edge1
| smul k t =>
let smulNode := " node" ++ toString m ++ " [label=\"smul\", shape=box];\n"
let edge1 := " node" ++ toString m ++ " -> node" ++ toString (m + 1) ++ ";\n"