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
c892a4e3
Commit
c892a4e3
authored
Dec 03, 2014
by
Philipp Meyer
Browse files
Removed debug output from communication-free solver
parent
d99ffafa
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Solver/CommFreeReachability.hs
View file @
c892a4e3
...
...
@@ -8,7 +8,6 @@ import PetriNet
import
Property
import
Solver
import
Solver.StateEquation
import
Debug.Trace
checkSubnet
::
PetriNet
->
ModelSI
->
SBool
checkSubnet
net
m
=
...
...
@@ -31,11 +30,9 @@ checkNodes net m =
where
checkNode
p
=
mVal
m
(
prime
p
)
.>
0
==>
bOr
(
map
checkPreCond
(
pre
net
p
))
where
checkPreCond
t
=
trace
(
"checking '"
++
p
++
" > 0 => '"
++
p
++
" > '"
++
head
(
pre
net
t
)
++
" ^ "
++
t
++
" > 0"
)
(
mVal
m
(
prime
p
)
.>
mVal
m
(
prime
(
head
(
pre
net
t
)))
&&&
mVal
m
t
.>
0
)
mVal
m
(
prime
p
)
.==
mVal
m
(
prime
(
head
(
pre
net
t
)))
+
1
&&&
mVal
m
t
.>
0
checkMarkableSubnet
::
PetriNet
->
ModelSI
->
SBool
checkMarkableSubnet
net
m
=
...
...
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