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

feat: Add informal def for SM gauge group.

Browse source
This commit is contained in:
jstoobysmith 2024-09-18 07:37:33 -04:00
parent 62f1153088
commit 3aa00ff1e7
3 changed files with 82 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

10
scripts/MetaPrograms/informal.lean
View file

@ -261,6 +261,11 @@ unsafe def mkDot (imports : Array Import) : MetaM String := do
let informal_name := informal.map (fun c => c.2.name)
let formal_deps := deps.filter (fun d => d ∉ informal_name)
let formal_nodes ← formal_deps.mapM formalToNode
let nodes := String.intercalate "\n" formal_nodes.toList
let informalLemmaNodes ← informal.mapM informalToNode
let informalNodes := String.intercalate "\n" informalLemmaNodes.toList
let edges ← informal.mapM informalToEdges
let edges := String.intercalate "\n" edges.toList
let header := "strict digraph G {
bgcolor=\"lightyellow\";
label=\"Informal dependency graph for HepLean\";
@ -268,11 +273,6 @@ unsafe def mkDot (imports : Array Import) : MetaM String := do
labeljust=\"l\";
edge [arrowhead=vee];"
let footer := "}"
let nodes := String.intercalate "\n" formal_nodes.toList
let informalLemmaNodes ← informal.mapM informalToNode
let informalNodes := String.intercalate "\n" informalLemmaNodes.toList
let edges ← informal.mapM informalToEdges
let edges := String.intercalate "\n" edges.toList
pure (header ++ "\n" ++ nodes ++ "\n" ++ informalNodes ++ "\n" ++ edges ++ "\n" ++ footer)
end dotFile