diff options
| author | Erin van der Veen | 2018-07-06 12:04:42 +0200 |
|---|---|---|
| committer | Erin van der Veen | 2018-07-06 12:04:42 +0200 |
| commit | 7f43a3e64dd8ef839a453039fa412f1bc14fc040 (patch) | |
| tree | 61489e1d70fc54101534e54b89a1c8f1a44279e8 /Assignment2 | |
| parent | Add properties (diff) | |
Enforce totality constraints in z3
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 |