Project

General

Profile

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

View differences:

regression_tests/lustre_files/success/kind_fmcad08/misc/durationThm_3.lus
18 18
-- ((p -k-> q and ([[q]] => length <= m))  => ([[p]] => length <= k+m)
19 19

  
20 20
-- Not provable in luke-*
21
--@ ensures OK;
22 21
node top (k0, m0: int; p, q : 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