diff options
Diffstat (limited to 'library/impargs.ml')
| -rw-r--r-- | library/impargs.ml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/library/impargs.ml b/library/impargs.ml index bce7a15cb..3ddef3a9a 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -515,14 +515,11 @@ let subst_implicits (subst,(req,l)) = (ImplLocal,List.smartmap (subst_implicits_decl subst) l) let impls_of_context ctx = - let map (id, impl, _, _) = match impl with - | Implicit -> Some (id, Manual, (true, true)) + let map (decl, impl) = match impl with + | Implicit -> Some (Context.Named.Declaration.get_id decl, Manual, (true, true)) | _ -> None in - let is_set (_, _, b, _) = match b with - | None -> true - | Some _ -> false - in + let is_set = Context.Named.Declaration.is_local_assum % fst in List.rev_map map (List.filter is_set ctx) let adjust_side_condition p = function |