- 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