16.12.2021, 9:00 - 11:00: Due to updates GitLab may be unavailable for some minutes between 09:00 and 11:00.

Commit 59d672f9 authored by Philipp Meyer's avatar Philipp Meyer
Browse files

Changed construction of refinement constraint

parent f1b60fb1
......@@ -25,13 +25,12 @@ finalInvariantConstraints x = sum (vals x) .> 0
nonnegativityConstraints :: SIMap Transition -> SBool
nonnegativityConstraints x = bAnd $ map (.>= 0) (vals x)
-- TODO: check how changing the representation changes result
checkCuts :: [Cut] -> SIMap Transition -> SBool
checkCuts cuts x = bAnd $ map checkCut cuts
where checkCut (ts, u) =
let cPre = map ((bnot . bOr) . map (positiveVal x)) ts
let cPre = map (bOr . map (positiveVal x)) ts
cPost = map (positiveVal x) u
in bOr cPre ||| bOr cPost
in bAnd cPre ==> bOr cPost
checkTransitionInvariant :: PetriNet -> Formula Transition ->
[Cut] -> SIMap Transition -> SBool
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment