diff options
| author | Camil Staps | 2018-07-06 12:08:02 +0200 |
|---|---|---|
| committer | Camil Staps | 2018-07-06 12:08:02 +0200 |
| commit | 382fcce692717843f337e606619bb3fd660518be (patch) | |
| tree | 5d1e88c354b88adc7a0ab1274cd1323f18f2b06c /Assignment2 | |
| parent | Enforce totality constraints in z3 (diff) | |
Remove a little bit of ugliness
Diffstat (limited to 'Assignment2')
| -rw-r--r-- | Assignment2/src/DTMC.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assignment2/src/DTMC.icl b/Assignment2/src/DTMC.icl index 9d3eda1..0adfa1f 100644 --- a/Assignment2/src/DTMC.icl +++ b/Assignment2/src/DTMC.icl @@ -283,7 +283,7 @@ Start w # (z3,w) = startZ3 w # (dtmc,w) = assertProperty prop dtmc z3 w # (rC,dtmc) = repairConfig dtmc -# (_,w) = mapSt (\s w -> (0, addAssert z3 s w)) rC.totality_restrictions w // Ugly, I know, don't care +# w = seqSt (addAssert z3) rC.totality_restrictions w # (dtmcs,dtmc) = printDTMC dtmc # (_,w) = writeFile drn_out dtmcs w = w |