Add missing edge

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2024-04-13 15:30:07 -07:00 · 2024-04-13 15:30:07 -07:00 · 7ed7f20227
parent 163108b9b3
commit 7ed7f20227
1 changed files with 1 additions and 1 deletions
--- a/Language.agda
+++ b/Language.agda
@ -352,7 +352,7 @@ module Graphs where
        buildCfg (while _ repeat s) =
            (buildCfg s ⟨⊗⟩ pushEmptyBlock ⟨⊗⟩ pushEmptyBlock)
            update (λ { g ((idx₁ , idx₂) , idx , idx') →
-                      addEdges g ((idx , idx') ∷ (idx₂ , idx) ∷ []) })
+                      addEdges g ((idx , idx') ∷ (idx , idx₁) ∷ (idx₂ , idx) ∷ []) })
            map (λ { g ((idx₁ , idx₂) , idx , idx') → (idx , idx') })

 open import Lattice.MapSet _≟ˢ_