Add missing edge

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
This commit is contained in:
Danila Fedorin 2024-04-13 15:30:07 -07:00
parent 163108b9b3
commit 7ed7f20227

View File

@ -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 _≟ˢ_