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