diff options
| author |  Clément Pit--Claudel <clement.pitclaudel@live.com> | 2015-08-28 21:05:19 -0700 |
|---|---|---|
| committer | Clément Pit--Claudel <clement.pitclaudel@live.com> | 2015-08-28 21:05:19 -0700 |
| commit | f3cfd7a9994af3518655bc4d1d77eeb3619b0999 (patch) | |
| tree | f060144b2b1eb9adaf4e176f3b06f977acee9a67 /Test/dafny0/ComputationsNeg.dfy | |
| parent | 95a42a224dff8eae383d93beb37a3da6a28bb0f3 (diff) | |
Implement workarounds for some tests that fail with /autoTriggers.
The issues here are mostly with induction (wrt. to trigger selection and
quantifier splitting) and with expressions like P(i, j-1) where no good choices
are available.
Diffstat (limited to 'Test/dafny0/ComputationsNeg.dfy')
| -rw-r--r-- | Test/dafny0/ComputationsNeg.dfy | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Test/dafny0/ComputationsNeg.dfy b/Test/dafny0/ComputationsNeg.dfy index 0c539117..b9425d64 100644 --- a/Test/dafny0/ComputationsNeg.dfy +++ b/Test/dafny0/ComputationsNeg.dfy @@ -16,7 +16,7 @@ predicate ThProperty(step: nat, t: Nat, r: nat) {
match t
case Zero => true
- case Succ(o) => step>0 && exists ro:nat :: ThProperty(step-1, o, ro)
+ case Succ(o) => step>0 && exists ro:nat, ss :: ss == step-1 ==> ThProperty(ss, o, ro) // WISH: auto-generate ss
}
ghost method test_ThProperty()
ensures ThProperty(10, Succ(Zero), 0);
|