diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-12 23:28:12 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-10-12 23:28:12 +0200 |
commit | 2faa03903f63523707503ff7b10acac0f959ed0a (patch) | |
tree | 85ce645d0fad8f074ed6e2220fbd37fc6bf10048 /kernel | |
parent | 376b54ff8753496a54fb120e35cd1b8babb44ac9 (diff) |
Remove dead code in Environ.
Diffstat (limited to 'kernel')
-rw-r--r-- | kernel/environ.ml | 12 | ||||
-rw-r--r-- | kernel/environ.mli | 8 |
2 files changed, 0 insertions, 20 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 54898320d..16ddfac64 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 diff --git a/kernel/environ.mli b/kernel/environ.mli index 235ba2fd1..6ac00088b 100644 --- a/kernel/environ.mli +++ b/kernel/environ.mli @@ -264,14 +264,6 @@ val apply_to_hyp : named_context_val -> variable -> (Context.Named.t -> Context.Named.Declaration.t -> Context.Named.t -> Context.Named.Declaration.t) -> named_context_val -(** [apply_to_hyp_and_dependent_on sign id f g] split [sign] into - [tail::(id,_,_)::head] and - return [(g tail)::(f (id,_,_))::head]. *) -val apply_to_hyp_and_dependent_on : named_context_val -> variable -> - (Context.Named.Declaration.t -> named_context_val -> Context.Named.Declaration.t) -> - (Context.Named.Declaration.t -> named_context_val -> Context.Named.Declaration.t) -> - named_context_val - val remove_hyps : Id.Set.t -> (Context.Named.Declaration.t -> Context.Named.Declaration.t) -> (Pre_env.lazy_val -> Pre_env.lazy_val) -> named_context_val -> named_context_val |