diff options
author | leino <unknown> | 2015-09-11 18:27:23 -0700 |
---|---|---|
committer | leino <unknown> | 2015-09-11 18:27:23 -0700 |
commit | b9319e38746bc6a2043cb7c979c4ccd4b175b86c (patch) | |
tree | 45c298c34a7fd3403a19ffa6049b4fd4eb5499b2 /Test/dafny0/ComputationsNeg.dfy | |
parent | 66281ddb041604d1c02d0356b48e38b9ac2c79dc (diff) | |
parent | ca96e3974019ca956f46c91eb07b2c2dfede1d29 (diff) |
Merge
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);
|