Skip to content

Commit

Permalink
WIP: handleProcessMerge is over-widening at the moment, see TODO
Browse files Browse the repository at this point in the history
  • Loading branch information
danmatichuk committed Oct 2, 2024
1 parent 4e87864 commit 41ac2d3
Showing 1 changed file with 7 additions and 0 deletions.
7 changes: 7 additions & 0 deletions src/Pate/Verification/StrongestPosts.hs
Original file line number Diff line number Diff line change
Expand Up @@ -727,6 +727,13 @@ mergeSingletons sneO sneP pg = fnTrace "mergeSingletons" $ withSym $ \sym -> do
(bundles, pg') <- mergeBundles scope snePair pg
let pre_refines = getDomainRefinements syncNode pg

--TODO: this isn't quite right, because the transition from single to two sided analysis immediately
-- results in everything getting dumped from the equivalence domain (since the "other" single-sided state
-- has now changed arbitrarily)
-- We need to give an interpretation for this state via the other side of the analysis, which means we
-- need to include both the original and patched pre-domains (and corresponding assumptions about the
-- uninterpreted functions) when widening both sides

let go :: forall bin. PairGraph sym arch -> SingleNodeEntry arch bin -> EquivM_ sym arch (PairGraph sym arch)
go pg0 sne = do
let bin = singleEntryBin sne
Expand Down

0 comments on commit 41ac2d3

Please sign in to comment.