diff options
| author | ppedrot | 2013-08-25 22:33:56 +0000 |
|---|---|---|
| committer | ppedrot | 2013-08-25 22:33:56 +0000 |
| commit | 646c6765e5e3307f8898c4f63c405d91c2e6f47b (patch) | |
| tree | 1055377213a63b0bbbba1ca55fddf96b22f3c218 /kernel/environ.ml | |
| parent | 89b1cff6e2e4f8095f3407c19d6692f2c0477e12 (diff) | |
Replacing lists by sets in clear tactic.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16734 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/environ.ml')
| -rw-r--r-- | kernel/environ.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 8a4871a1dc..9b18db78e8 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -362,7 +362,7 @@ let insert_after_hyp (ctxt,vals) id d check = (* To be used in Logic.clear_hyps *) let remove_hyps ids check_context check_value (ctxt, vals) = List.fold_right2 (fun (id,_,_ as d) (id',v) (ctxt,vals) -> - if List.mem id ids then + if Id.Set.mem id ids then (ctxt,vals) else let nd = check_context d in |