1 2 3
val subtac : (Names.identifier * Sast.type_loc) option -> Names.identifier -> Sast.type_loc * Sast.term_loc -> unit