Structure term_pp_utils
signature term_pp_utils =
sig
type term = Term.term
val setbvs : term HOLset.set -> (term_pp_types.printing_info,unit) smpp.t
val getbvs : (term_pp_types.printing_info,term HOLset.set) smpp.t
val addbvs : term list -> (term_pp_types.printing_info,unit)smpp.t
val record_bvars : term list -> (term_pp_types.printing_info,'a) smpp.t ->
(term_pp_types.printing_info,'a) smpp.t
val getfvs : (term_pp_types.printing_info,term HOLset.set) smpp.t
val spotfv : term -> (term_pp_types.printing_info,unit) smpp.t
val set_gspec : (term_pp_types.printing_info,'a) smpp.t ->
(term_pp_types.printing_info,'a) smpp.t
val get_gspec : (term_pp_types.printing_info,bool) smpp.t
end
HOL 4, Kananaskis-10