diff options
| -rw-r--r-- | proofs/proof_trees.ml | 3 | ||||
| -rw-r--r-- | proofs/proof_trees.mli | 5 |
2 files changed, 3 insertions, 5 deletions
diff --git a/proofs/proof_trees.ml b/proofs/proof_trees.ml index 1e0abc02c1..6358b71892 100644 --- a/proofs/proof_trees.ml +++ b/proofs/proof_trees.ml @@ -224,6 +224,9 @@ let rec pr_evars_int i = function str (string_of_existential ev) ++ str " : " ++ pegl)) ++ fnl () ++ pei +(* Equivalent to pr_subgoals but start from the prooftree and + check for uninstantiated existential variables *) + let pr_subgoals_existential sigma = function | [] -> let exl = Evd.non_instantiated sigma in diff --git a/proofs/proof_trees.mli b/proofs/proof_trees.mli index 70e0d8565a..f63771d6e4 100644 --- a/proofs/proof_trees.mli +++ b/proofs/proof_trees.mli @@ -66,8 +66,3 @@ val pr_seq : goal -> std_ppcmds val pr_evars : (existential_key * goal) list -> std_ppcmds val pr_evars_int : int -> (existential_key * goal) list -> std_ppcmds val pr_subgoals_existential : evar_map -> goal list -> std_ppcmds - -(* Gives the ast corresponding to a tactic argument *) -(* -val ast_of_cvt_arg : tactic_arg -> Coqast.t -*) |