CristalCaveGem » LustreC » Lustrec-Tests

node Sofar( X : bool ) returns ( Sofar : bool );

let

    Sofar = X -> X or pre Sofar;

tel

node Age (p: bool) returns (age_of_p: int);

let

 age_of_p = 0 -> if pre(p) then pre(age_of_p) - 1 else 0;

tel

node top (ik, im: int; p, q, r : bool) returns (OK: bool);

--@ contract guarantees OK;

var k,m : int;

    env : bool;

let

    k = ik -> pre k;

    m = im -> pre m;

    env = Sofar((k>=1 and m>=1) and (Age(p)>=k => q)  and (Age(q)>=m => r));

    OK = env => (true -> ( (Age(p)>=k+m) => r ));

  --%MAIN;

  --%PROPERTY  OK=true;

tel