diff options
| -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 | [] -> [] |