Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
9.2.2023: Due to updates GitLab will be unavailable for some minutes between 9:00 and 11:00.
Open sidebar
i7
peregrine
Commits
e905ed18
Commit
e905ed18
authored
Feb 11, 2017
by
Philipp J. Meyer
Browse files
streamlined u-trap and u-siphon refinement constraints
parent
17a00eb4
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Solver/TerminalMarkingsUniqueConsensus.hs
View file @
e905ed18
...
...
@@ -65,11 +65,8 @@ sequenceIn u x = sum (mval x u) .> 0
checkUTrap
::
PetriNet
->
SIMap
Place
->
SIMap
Place
->
SIMap
Place
->
SIMap
Transition
->
SIMap
Transition
->
Trap
->
SBool
checkUTrap
net
m0
m1
m2
x1
x2
utrap
=
(
((
sequenceNotIn
upre
x1
)
|||
(
sequenceIn
uunmark
x1
)
|||
(
markedByMarking
utrap
m1
))
&&&
((
sequenceNotIn
upre
x2
)
|||
(
sequenceIn
uunmark
x2
)
|||
(
markedByMarking
utrap
m2
))
)
(((
sequenceIn
upre
x1
)
&&&
(
sequenceNotIn
uunmark
x1
))
==>
(
markedByMarking
utrap
m1
))
&&&
(((
sequenceIn
upre
x2
)
&&&
(
sequenceNotIn
uunmark
x2
))
==>
(
markedByMarking
utrap
m2
))
where
upost
=
mpost
net
utrap
upre
=
mpre
net
utrap
uunmark
=
upost
\\
upre
...
...
@@ -80,15 +77,8 @@ checkUTrapConstraints net m0 m1 m2 x1 x2 traps =
checkUSiphon
::
PetriNet
->
SIMap
Place
->
SIMap
Place
->
SIMap
Place
->
SIMap
Transition
->
SIMap
Transition
->
Siphon
->
SBool
checkUSiphon
net
m0
m1
m2
x1
x2
usiphon
=
(
markedByMarking
usiphon
m0
|||
(
((
sequenceNotIn
upost
x1
)
|||
(
sequenceIn
umark
x1
))
&&&
((
sequenceNotIn
upost
x2
)
|||
(
sequenceIn
umark
x2
))
)
)
(((
sequenceIn
upost
x1
)
&&&
(
sequenceNotIn
umark
x1
))
==>
(
markedByMarking
usiphon
m0
))
&&&
(((
sequenceIn
upost
x2
)
&&&
(
sequenceNotIn
umark
x2
))
==>
(
markedByMarking
usiphon
m0
))
where
upost
=
mpost
net
usiphon
upre
=
mpre
net
usiphon
umark
=
upre
\\
upost
...
...
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