name COMMA formula_type COMMA formula formula_source_and_infos
RPAREN DOT {
AnnotatedFormula ($3,$5,$7,fst $8,snd $8)
- }
+ }
+ | CNF LPAREN
+ TYPE COMMA formula_type COMMA formula formula_source_and_infos
+ RPAREN DOT {
+ AnnotatedFormula ($3,$5,$7,fst $8,snd $8)
+ }
;
formula_type:
atomic_word:
| LNAME { $1 }
| QSTRING { rm_q $1 }
+ | TYPE { (* workaround! *)
+ match $1 with
+ | "theorem" -> "theoremP"
+ | "axiom" -> "axiomP"
+ | s -> prerr_endline s;assert false }
;
formula_source_and_infos: