Remove unused 'singleton' calls for if/else CFGs

2024-11-16 14:42:16 -08:00
parent 828b652d3b
commit 4fba1fe79a
2 changed files with 3 additions and 7 deletions
--- a/Language/Graphs.agda
+++ b/Language/Graphs.agda
@@ -122,7 +122,7 @@ wrap g = singleton [] ↦ g ↦ singleton []
 buildCfg : Stmt → Graph
 buildCfg ⟨ bs₁ ⟩ = singleton (bs₁ ∷ [])
 buildCfg (s₁ then s₂) = buildCfg s₁ ↦ buildCfg s₂
-buildCfg (if _ then s₁ else s₂) = singleton [] ↦ (buildCfg s₁ ∙ buildCfg s₂) ↦ singleton []
+buildCfg (if _ then s₁ else s₂) = buildCfg s₁ ∙ buildCfg s₂
 buildCfg (while _ repeat s) = loop (buildCfg s)

 private