diff options
| author | herbelin | 2003-10-10 17:54:54 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-10 17:54:54 +0000 |
| commit | e006de4f75f552faacef09951cec0fad406e6afb (patch) | |
| tree | 6fde6f6707c530295a47f04507467380bf431c96 | |
| parent | 5a131ee885f0d320c228f5f756bb6e552fde740e (diff) | |
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
| -rw-r--r-- | tactics/setoid_replace.ml | 9 |
1 files 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 | [] -> [] |