Notice to GitKraken users: A vulnerability has been found in the SSH key generation of GitKraken versions 7.6.0 to 8.0.0 ( If you use GitKraken and have generated a SSH key using one of these versions, please remove it both from your local workstation and from your LRZ GitLab profile.

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

Commit f1030fdd authored by Philipp Meyer's avatar Philipp Meyer
Browse files

Added weight condition to check for communication-freeness

parent 33da1b31
......@@ -30,7 +30,11 @@ checkStructure net FinalPlace =
where finalPlace p = null (post net p) &&
all (\t -> length (post net t) == 1) (pre net p)
checkStructure net CommunicationFree =
all (\t -> length (pre net t) == 1) (transitions net)
all checkTransition (transitions net) &&
all checkWeights (transitions net)
where checkTransition t = length (pre net t) == 1
checkWeights t = all checkWeight (lpre net t)
checkWeight (_,w) = w <= 1
checkParallelT :: PetriNet -> String -> Bool
checkParallelT net t =
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