and goal_proof = (Utils.pos * int * substitution * Cic.term) list
-val pp_proof: (Cic.name option) list -> goal_proof -> string
+val pp_proof: (Cic.name option) list -> goal_proof -> new_proof -> string
val empty_subst : substitution
val apply_subst : substitution -> Cic.term -> Cic.term