diff options
| author | Pierre-Marie Pédrot | 2016-10-17 18:09:28 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-10-17 18:09:28 +0200 |
| commit | 1929b52db6bc282c60a1a3aa39ba87307c68bf78 (patch) | |
| tree | 57a6c7632dec646afb3ab6a1a9519eb313e805ac /kernel/environ.ml | |
| parent | 05ad4f49ac2203dd64dfec79a1fc62ee52115724 (diff) | |
| parent | 34b1813b5adf1df556e0d8a05bde0ec58152f610 (diff) | |
Merge branch 'v8.6'
Diffstat (limited to 'kernel/environ.ml')
| -rw-r--r-- | kernel/environ.ml | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 1d44cac5bd..4a543f1957 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -502,18 +502,6 @@ let apply_to_hyp ctxt id f = | None -> raise Hyp_not_found in aux [] ctxt -let apply_to_hyp_and_dependent_on ctxt id f g = - let rec aux sign = - match match_named_context_val sign with - | Some (d, v, sign) -> - if Id.equal (get_id d) id then - push_named_context_val (f d sign) sign - else - let sign = aux sign in - push_named_context_val (g d sign) sign - | None -> raise Hyp_not_found - in aux ctxt - (* To be used in Logic.clear_hyps *) let remove_hyps ids check_context check_value ctxt = let rec remove_hyps ctxt = match match_named_context_val ctxt with |