False

lexer.mll

@@ -9,6 +9,7 @@ rule token = parse
   | ')'                         { RPAREN }
   | "->"                        { RARROW }
   | '~'                         { TILDE }
+  | "False"                     { FALSE }
   | ['a'-'z']+['0'-'9']* as s   { VAR_NAME s }
   | ['A'-'Z']+['0'-'9']* as s   { TYPE_NAME s }
   | eof                         { EOF }

parser.mly

@@ -3,7 +3,7 @@
 %}
 
 /* Description des lexèmes définis dans lexer.mll */
-%token LPAREN RPAREN RARROW TILDE
+%token LPAREN RPAREN RARROW TILDE FALSE
 %token <string> VAR_NAME
 %token <string> TYPE_NAME
 %token ENDL EOF
@@ -26,3 +26,4 @@ ty:
   | ty RARROW ty                          { TImpl ($1, $3) }
   | TYPE_NAME                             { TSimple $1 }
   | TILDE ty                              { TImpl ($2, TFalse) }
+  | FALSE                                 { TFalse }