diff options
| author | herbelin | 2003-10-10 19:01:50 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-10 19:01:50 +0000 |
| commit | df3c831fd818631d31231454f248cb63a3ab8bee (patch) | |
| tree | 78ed21df87de13b270c6b7a0ab78a6062c93b554 | |
| parent | e166e675f8623cc8405663e4cb03aa236e19ea3e (diff) | |
code mort
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4577 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 -*) |