21 lines
256 B
Text
21 lines
256 B
Text
MODULE main
|
|
VAR
|
|
x : -1..20;
|
|
increment : process inc(x);
|
|
reset : process res(x);
|
|
ASSIGN
|
|
init(x) := 0;
|
|
SPEC
|
|
AF(x = -1 )
|
|
|
|
MODULE inc(y)
|
|
ASSIGN
|
|
next(y) := (y+1) mod 20;
|
|
FAIRNESS
|
|
running
|
|
|
|
MODULE res(y)
|
|
ASSIGN
|
|
next(y) := -1 ;
|
|
FAIRNESS
|
|
running
|