parse_from_grammars : (type_grammar.grammar * term_grammar.grammar) -> ((hol_type frag list -> hol_type) * (term frag list -> term))
- load "arithmeticTheory"; > val it = () : unit - val t = Term`2 + 3`; > val t = `2 + 3` : term
- val (Type,Term) = parse_from_grammars boolTheory.bool_grammars; > val Type = fn : hol_type frag list -> hol_type val Term = fn : term frag list -> term - Term`2 + 3`; <<HOL message: No numerals currently allowed.>> ! Uncaught exception: ! HOL_ERR <poly> - Term`x + y`; <<HOL message: inventing new type variable names: 'a, 'b.>> > val it = `x $+ y` : term
- t; > val it = `2 + 3` : term - Parse.Term`2 + 3`; > val it = `2 + 3` : term