From 205c682a497bc68fad5ce5f06806cd3b0bfe8443 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 10 Oct 2003 17:55:50 +0000
Subject: 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
---
 contrib/correctness/ptactic.ml | 4 ++--
 1 file 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 ())
-- 
cgit v1.2.3