diff options
| author | puech | 2011-07-29 14:30:18 +0000 |
|---|---|---|
| committer | puech | 2011-07-29 14:30:18 +0000 |
| commit | 1013117e5bfee396c5746cc851bdc72f6330d0ea (patch) | |
| tree | 57964b9643be4246cf6b6f7980cd45c1407174a0 | |
| parent | 7c58b919d9400e532016ba9001dad418bbe1b663 (diff) | |
generic = on named_context replaced by named_context_equal
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14373 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/tacinterp.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 1450d50322..07915be59f 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1235,8 +1235,8 @@ let solvable_by_tactic env evi (ev,args) src = match (!implicit_tactic, src) with | Some tac, (ImplicitArg _ | QuestionMark _) when - Environ.named_context_of_val evi.evar_hyps = - Environ.named_context env -> + Sign.named_context_equal (Environ.named_context_of_val evi.evar_hyps) + (Environ.named_context env) -> let id = id_of_string "H" in start_proof id (Local,Proof Lemma) evi.evar_hyps evi.evar_concl (fun _ _ -> ()); |