diff options
Diffstat (limited to 'Assignment2')
| -rw-r--r-- | Assignment2/src/DTMC.icl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Assignment2/src/DTMC.icl b/Assignment2/src/DTMC.icl index d9286fd..9d3eda1 100644 --- a/Assignment2/src/DTMC.icl +++ b/Assignment2/src/DTMC.icl @@ -282,8 +282,10 @@ Start w # dtmc = stateElimination dtmc # (z3,w) = startZ3 w # (dtmc,w) = assertProperty prop dtmc z3 w -//# (dtmcs,dtmc) = printDTMC dtmc -//# (_,w) = writeFile drn_out dtmcs w +# (rC,dtmc) = repairConfig dtmc +# (_,w) = mapSt (\s w -> (0, addAssert z3 s w)) rC.totality_restrictions w // Ugly, I know, don't care +# (dtmcs,dtmc) = printDTMC dtmc +# (_,w) = writeFile drn_out dtmcs w = w where prop :: Property |