diff options
| author |  Matej Kosik <m4tej.kosik@gmail.com> | 2016-08-12 17:10:24 +0200 |
|---|---|---|
| committer | Matej Kosik <m4tej.kosik@gmail.com> | 2016-08-24 17:35:04 +0200 |
| commit | f5f4bb97634f4fac3dec766db27af994e745d749 (patch) | |
| tree | b6d512390b4b24b7520d5c5456c0403969017925 /library | |
| parent | 601112e9d6f4a4095e1ba6ba20ad46b60dd9bd74 (diff) | |
CLEANUP: removing superfluous (module) qualifiers
Diffstat (limited to 'library')
| -rw-r--r-- | library/impargs.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/library/impargs.ml b/library/impargs.ml index 3ddef3a9a..cda1a662b 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -515,11 +515,12 @@ let subst_implicits (subst,(req,l)) = (ImplLocal,List.smartmap (subst_implicits_decl subst) l) let impls_of_context ctx = + let open Context.Named.Declaration in let map (decl, impl) = match impl with - | Implicit -> Some (Context.Named.Declaration.get_id decl, Manual, (true, true)) + | Implicit -> Some (get_id decl, Manual, (true, true)) | _ -> None in - let is_set = Context.Named.Declaration.is_local_assum % fst in + let is_set = is_local_assum % fst in List.rev_map map (List.filter is_set ctx) let adjust_side_condition p = function |