[pre propagation] done.

This commit is contained in:
Arnaud DABY-SEESARAM
2022-12-13 14:25:48 +01:00
parent e9d586dfe7
commit 51ed84504f
7 changed files with 87 additions and 25 deletions

View File

@@ -6,14 +6,8 @@ tel
node undiag_test (i: int) returns (o : bool);
var l1, l2: int; l3: int;
let
l3 = 1 -> 0;
l3 = (pre (1)) -> 0;
(l1, l2) = diagonal_int(i);
o = (not (not (l1 = l2))) and (l1 = l2) and true;
tel
node automaton () returns (o : bool);
let
automaton
| Incr -> do o = (pre o) + 1 done
| Decr -> do o = (pre o) - 1 done
tel