Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
i7
peregrine
Commits
59d672f9
Commit
59d672f9
authored
Dec 19, 2014
by
Philipp Meyer
Browse files
Changed construction of refinement constraint
parent
f1b60fb1
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Solver/TransitionInvariant.hs
View file @
59d672f9
...
...
@@ -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
b
Or
cPre
|||
bOr
cPost
in
b
And
cPre
==>
bOr
cPost
checkTransitionInvariant
::
PetriNet
->
Formula
Transition
->
[
Cut
]
->
SIMap
Transition
->
SBool
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment