From c0bf634783cbb1f7cf2943b56d5f2e798fbed4af Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 31 Mar 2004 15:22:47 +0000
Subject: Morphismes déclarés comme Lemma pas comme Definition

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5624 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/setoid_replace.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml
index bc093cf5de..cc9755b381 100644
--- a/tactics/setoid_replace.ml
+++ b/tactics/setoid_replace.ml
@@ -403,7 +403,7 @@ 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;
-	Pfedit.start_proof id (IsGlobal DefinitionBody) 
+	Pfedit.start_proof id (IsGlobal (Proof Lemma)) 
 	  (Declare.clear_proofs (Global.named_context ()))
 	  lem hook;
 	(Options.if_verbose msg (Pfedit.pr_open_subgoals ())))
-- 
cgit v1.2.3