heptagon/test/sdc/contrenum.ept

15 lines
176 B
Text
Raw Normal View History

2015-09-04 17:33:49 +02:00
type mode = Idle | Active
node f(x:bool) returns (y:bool)
contract
enforce (not y)
with (c:mode)
let
switch c
| Idle do y = false
| Active do y = true
end
tel