diff --git a/compiler/heptagon/parsing/hept_parser.mly b/compiler/heptagon/parsing/hept_parser.mly index 2d85423..84437ed 100644 --- a/compiler/heptagon/parsing/hept_parser.mly +++ b/compiler/heptagon/parsing/hept_parser.mly @@ -371,9 +371,8 @@ on_ck: when_ck: | x=IDENT { Cwhen(Q Initial.ptrue,x) } + | NOT x=IDENT { Cwhen(Q Initial.pfalse,x) } | c=constructor_or_bool LPAREN x=IDENT RPAREN { Cwhen(c,x) } - | b=ck x=IDENT { Cwhen(Q Initial.ptrue,x) } - | b=ck NOT x=IDENT { Cwhen(Q Initial.pfalse,x) } equs: | /* empty */ { [] }