From e006de4f75f552faacef09951cec0fad406e6afb Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 10 Oct 2003 17:54:54 +0000
Subject: Affichage des buts par Pfedit pour utilisation par les tactiques
 (Setoid_replace)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4562 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/setoid_replace.ml | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml
index 0ff8ba69a3..6d5fe1a801 100644
--- a/tactics/setoid_replace.ml
+++ b/tactics/setoid_replace.ml
@@ -21,10 +21,7 @@ open Nameops
 open Util
 open Pp
 open Printer
-open Vernacinterp
 open Environ
-open Termast
-open Command
 open Tactics 
 open Tacticals
 open Vernacexpr
@@ -405,8 +402,10 @@ let new_morphism m id hook =
 	let poss = (List.map setoid_table_mem args_t) in
 	let lem = (gen_compat_lemma env m body args_t poss) in
 	new_edited id m poss;
-	start_proof id (IsGlobal DefinitionBody) lem hook;
-	(Options.if_verbose Vernacentries.show_open_subgoals ()))
+	Pfedit.start_proof id (IsGlobal DefinitionBody) 
+	  (Declare.clear_proofs (Global.named_context ()))
+	  lem hook;
+	(Options.if_verbose msg (Pfedit.pr_open_subgoals ())))
 
 let rec sub_bool l1 n = function
   | [] -> []
-- 
cgit v1.2.3