Structure ProofTraceWalk
signature ProofTraceWalk = sig
type 'a ptr = 'a ProofTraceParser.ptr
val walk :
{ heap : ProofTraceParser.heap,
thyname : string,
named_thms : (string * Thm.thm * 'thminfo) list ptr,
anon_thms : Thm.thm list ptr,
incr : unit ptr -> unit,
on_def_thm : Thm.thm ptr -> unit } ->
{ tm_defs : Thm.thm ptr list Symtab.table,
ty_defs : Thm.thm ptr list Symtab.table,
is_closed : Term.term ptr -> bool,
get_const_id : Term.term ptr -> string * string,
get_type_id : Type.hol_type ptr -> string * string }
end
HOL 4, Trindemossen-2