diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/impargs.ml | 2 | ||||
| -rw-r--r-- | library/lib.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/library/impargs.ml b/library/impargs.ml index 2997f94ed..07b6b2bae 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -520,7 +520,7 @@ let impls_of_context ctx = | Implicit -> Some (NamedDecl.get_id decl, Manual, (true, true)) | _ -> None in - List.rev_map map (List.filter (is_local_assum % fst) ctx) + List.rev_map map (List.filter (fst %> is_local_assum) ctx) let adjust_side_condition p = function | LessArgsThan n -> LessArgsThan (n+p) diff --git a/library/lib.ml b/library/lib.ml index 412772e8a..a5a9a0194 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -445,7 +445,7 @@ let extract_hyps (secs,ohyps) = in aux (secs,ohyps) let instance_from_variable_context = - Array.of_list % List.map NamedDecl.get_id % List.filter is_local_assum % List.map fst + List.map fst %> List.filter is_local_assum %> List.map NamedDecl.get_id %> Array.of_list let named_of_variable_context = List.map fst |