Parse.set_known_constants : string list -> unit
- known_constants(); > val it = ["bool_case", "ARB", "TYPE_DEFINITION", "ONTO", "ONE_ONE", "COND", "LET", "?!", "~", "F", "\\/", "/\\", "!", "T", "?", "@", "==>", "="] : string list - Term`p /\ q`; > val it = `p /\ q` : term - set_known_constants (Lib.subtract (known_constants()) ["/\\"]); > val it = () : unit - Term`p /\ q`; <<HOL message: inventing new type variable names: 'a, 'b, 'c.>> > val it = `p /\ q` : term - strip_comb it; > val it = (`$/\`, [`p`, `q`]) : term * term list - dest_var (#1 it); > val it = ("/\\", `:'a -> 'b -> 'c`) : string * hol_type