summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorAlex Auvolat <alex.auvolat@ansys.com>2014-07-02 10:27:30 +0200
committerAlex Auvolat <alex.auvolat@ansys.com>2014-07-02 10:27:30 +0200
commit08096254ecf8c2341320e255ad74a7d99fb46d47 (patch)
tree383b7710c1a82d50a527b367581128f158cc445b /tests
parentcbd88f9238dbd66acacb782bdc0fd3aa9a82b804 (diff)
downloadscade-analyzer-08096254ecf8c2341320e255ad74a7d99fb46d47.tar.gz
scade-analyzer-08096254ecf8c2341320e255ad74a7d99fb46d47.zip
More verbosity ; adapt rfollow so that it can be proved
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