summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/source/rfollow.scade6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/source/rfollow.scade b/tests/source/rfollow.scade
index 6ee1558..c62c90d 100644
--- a/tests/source/rfollow.scade
+++ b/tests/source/rfollow.scade
@@ -1,14 +1,16 @@
node follow(a: real) returns (probe f: real)
var
probe pf: real;
+ prop: bool;
let
assume h1: a >= 0. and a <= 1.;
- guarantee g1: f >= 0. and f <= 1.;
- guarantee g2: pf >= 0. and pf <= 1.;
pf = 0. -> pre f;
f = (pf + a) / 2.0;
+ prop = (f >= 0 and f <= 1.);
+
+ guarantee g1: (true -> pre prop) and prop;
tel