Project

General

Profile

Revision 2d37a1e1 regression_tests/lustre_files/success/kind_fmcad08/misc/durationThm_1.lus

View differences:

regression_tests/lustre_files/success/kind_fmcad08/misc/durationThm_1.lus
18 18
-- (p -k-> q and q -m-> r) => p -k+m-> r
19 19

  
20 20
-- Not provable in luke-*
21
--@ ensures OK;
22 21
node top (ik, im: int; p, q, r : bool) returns (OK: bool);
22
--@ contract guarantees OK;
23 23
var k,m : int;
24 24
    env : bool;
25 25
let

Also available in: Unified diff