diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/impargs.ml | 4 | ||||
| -rw-r--r-- | library/impargs.mli | 3 |
2 files changed, 4 insertions, 3 deletions
diff --git a/library/impargs.ml b/library/impargs.ml index f0292762f0..4fe898994c 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -680,9 +680,9 @@ let check_rigidity isrigid = if not isrigid then errorlabstrm "" (strbrk "Multiple sequences of implicit arguments available only for references that cannot be applied to an arbitrarily large number of arguments.") -let projection_implicits env p (x, impls) = +let projection_implicits env p impls = let pb = Environ.lookup_projection p env in - x, CList.skipn_at_least pb.Declarations.proj_npars impls + CList.skipn_at_least pb.Declarations.proj_npars impls let declare_manual_implicits local ref ?enriching l = let flags = !implicit_args in diff --git a/library/impargs.mli b/library/impargs.mli index 8ad86bdffd..297145f09c 100644 --- a/library/impargs.mli +++ b/library/impargs.mli @@ -129,7 +129,8 @@ val make_implicits_list : implicit_status list -> implicits_list list val drop_first_implicits : int -> implicits_list -> implicits_list -val projection_implicits : env -> projection -> implicits_list -> implicits_list +val projection_implicits : env -> projection -> implicit_status list -> + implicit_status list val select_impargs_size : int -> implicits_list list -> implicit_status list |