From a74e055acf48583c6fece5d22c805736679376b2 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Sun, 18 Aug 2019 20:27:52 +0200
Subject: [api] Move handling of variable implicit data to impargs

We move `binder_kind` to the pretyping AST, removing the last data
type in the now orphaned file `Decl_kinds`.

This seems a better fit, as this data is not relevant to the lower
layers but only used in `Impargs`.

We also move state keeping to `Impargs`, so now implicit declaration
must include the type. We also remove a duplicated function.
---
 plugins/syntax/numeral.ml         | 2 +-
 plugins/syntax/string_notation.ml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'plugins/syntax')

diff --git a/plugins/syntax/numeral.ml b/plugins/syntax/numeral.ml
index a148a3bc73..9808c61255 100644
--- a/plugins/syntax/numeral.ml
+++ b/plugins/syntax/numeral.ml
@@ -112,7 +112,7 @@ let vernac_numeral_notation local ty f g scope opts =
   let cty = mkRefC ty in
   let app x y = mkAppC (x,[y]) in
   let arrow x y =
-    mkProdC ([CAst.make Anonymous],Default Decl_kinds.Explicit, x, y)
+    mkProdC ([CAst.make Anonymous],Default Glob_term.Explicit, x, y)
   in
   let opt r = app (mkRefC (q_option ())) r in
   let constructors = get_constructors tyc in
diff --git a/plugins/syntax/string_notation.ml b/plugins/syntax/string_notation.ml
index 8c0f9a3339..c92acb0f55 100644
--- a/plugins/syntax/string_notation.ml
+++ b/plugins/syntax/string_notation.ml
@@ -61,7 +61,7 @@ let vernac_string_notation local ty f g scope =
   let of_ty = Smartlocate.global_with_alias g in
   let cty = cref ty in
   let arrow x y =
-    mkProdC ([CAst.make Anonymous],Default Decl_kinds.Explicit, x, y)
+    mkProdC ([CAst.make Anonymous],Default Glob_term.Explicit, x, y)
   in
   let constructors = get_constructors tyc in
   (* Check the type of f *)
-- 
cgit v1.2.3