diff options
| author |  Matej Kosik <m4tej.kosik@gmail.com> | 2016-02-15 11:55:43 +0100 |
|---|---|---|
| committer | Matej Kosik <m4tej.kosik@gmail.com> | 2016-02-15 16:39:27 +0100 |
| commit | 4f041384cb27f0d24fa14b272884b4b7f69cacbe (patch) | |
| tree | 77ec4088715057e5656f0ef04bcf61395658f939 /kernel/cooking.ml | |
| parent | 5dfb5d5e48c86dabd17ee2167c6fd5304c788474 (diff) | |
CLEANUP: Simplifying the changes done in "kernel/*"
...
...
...
...
...
...
...
...
...
...
...
...
...
...
Diffstat (limited to 'kernel/cooking.ml')
| -rw-r--r-- | kernel/cooking.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/kernel/cooking.ml b/kernel/cooking.ml index d2106f860..86d786b09 100644 --- a/kernel/cooking.ml +++ b/kernel/cooking.ml @@ -203,9 +203,8 @@ let cook_constant env { from = cb; info } = let const_hyps = Context.Named.fold_outside (fun decl hyps -> let open Context.Named.Declaration in - let h = get_id decl in - List.filter (fun decl -> let id = get_id decl in - not (Id.equal id h)) hyps) + List.filter (fun decl' -> not (Id.equal (get_id decl) (get_id decl'))) + hyps) hyps ~init:cb.const_hyps in let typ = match cb.const_type with | RegularArity t -> |