aboutsummaryrefslogtreecommitdiffhomepage
path: root/library/impargs.ml
diff options
context:
space:
mode:
Diffstat (limited to 'library/impargs.ml')
-rw-r--r--library/impargs.ml6
1 files changed, 5 insertions, 1 deletions
diff --git a/library/impargs.ml b/library/impargs.ml
index 3f60bf96a..2d5ffe9ab 100644
--- a/library/impargs.ml
+++ b/library/impargs.ml
@@ -548,7 +548,11 @@ let rebuild_implicits (req,l) =
let classify_implicits (req,_ as obj) =
if req = ImplLocal then Dispose else Substitute obj
-let inImplicits =
+type implicits_obj =
+ implicit_discharge_request *
+ (global_reference * implicits_list list) list
+
+let inImplicits : implicits_obj -> obj =
declare_object {(default_object "IMPLICITS") with
cache_function = cache_implicits;
load_function = load_implicits;