new_binder : string * hol_type -> unit
!x:bool. (x=T) \/ (x=F)is actually a prettyprinting of
$! (\x. (x=T) \/ (x=F))
- new_theory "anorak";
() : unit
- new_binder ("!!", (bool-->bool)-->bool);;
() : unit
- Term `!!x. T`;
> val it = `!! x. T` : term