diff options
| author | Matej Kosik | 2016-02-15 11:55:43 +0100 |
|---|---|---|
| committer | Matej Kosik | 2016-02-15 16:39:27 +0100 |
| commit | 4f041384cb27f0d24fa14b272884b4b7f69cacbe (patch) | |
| tree | 77ec4088715057e5656f0ef04bcf61395658f939 /kernel/closure.ml | |
| parent | 5dfb5d5e48c86dabd17ee2167c6fd5304c788474 (diff) | |
CLEANUP: Simplifying the changes done in "kernel/*"
...
...
...
...
...
...
...
...
...
...
...
...
...
...
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index dc98cc65d0..4476fe5241 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -245,10 +245,12 @@ and 'a infos = { let info_flags info = info.i_flags let info_env info = info.i_cache.i_env +open Context.Named.Declaration + let rec assoc_defined id = function | [] -> raise Not_found -| Context.Named.Declaration.LocalAssum _ :: ctxt -> assoc_defined id ctxt -| Context.Named.Declaration.LocalDef (id', c, _) :: ctxt -> +| LocalAssum _ :: ctxt -> assoc_defined id ctxt +| LocalDef (id', c, _) :: ctxt -> if Id.equal id id' then c else assoc_defined id ctxt let ref_value_cache ({i_cache = cache} as infos) ref = @@ -285,9 +287,10 @@ let defined_rels flags env = let ctx = rel_context env in let len = List.length ctx in let ans = Array.make len None in + let open Context.Rel.Declaration in let iter i = function - | Context.Rel.Declaration.LocalAssum _ -> () - | Context.Rel.Declaration.LocalDef (_,b,_) -> Array.unsafe_set ans i (Some b) + | LocalAssum _ -> () + | LocalDef (_,b,_) -> Array.unsafe_set ans i (Some b) in let () = List.iteri iter ctx in ans |