diff options
| author | herbelin | 2003-10-10 17:55:50 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-10 17:55:50 +0000 |
| commit | 205c682a497bc68fad5ce5f06806cd3b0bfe8443 (patch) | |
| tree | c3f40757e4031c370c7247e1421a35a8f47fde24 | |
| parent | e006de4f75f552faacef09951cec0fad406e6afb (diff) | |
Affichage des buts par Pfedit pour utilisation par les tactiques
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4563 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/correctness/ptactic.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/correctness/ptactic.ml b/contrib/correctness/ptactic.ml index eb1d6b9a7e..49430e834f 100644 --- a/contrib/correctness/ptactic.ml +++ b/contrib/correctness/ptactic.ml @@ -244,7 +244,7 @@ let correctness s p opttac = let id = id_of_string s in start_proof id (IsGlobal (Proof Lemma)) sign cty correctness_hook; Penv.new_edited id (v,p); - if !debug then show_open_subgoals(); + if !debug then msg (Pfedit.pr_open_subgoals()); deb_mess (str"Pred.red_cci: Reduction..." ++ fnl ()); let oc = reduce_open_constr oc in deb_mess (str"AFTER REDUCTION:" ++ fnl ()); @@ -255,4 +255,4 @@ let correctness s p opttac = | Some t -> tclTHEN tac t in solve_nth 1 tac; - if_verbose show_open_subgoals () + if_verbose msg (pr_open_subgoals ()) |