aboutsummaryrefslogtreecommitdiff
path: root/interp
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2020-05-11 12:18:40 +0200
committerPierre-Marie Pédrot2020-05-11 12:18:40 +0200
commit0abac9befe6f165dd7829430a229192e6cb18453 (patch)
tree744c8d39701f3226c4fc3bdbaafc10bada0b2de7 /interp
parentaab47903fb2d3e0085b03d5ade94f4ae644cd76c (diff)
parent6e4ebb2dbaa2cb9eb70ce205386bee08c80aaa00 (diff)
Merge PR #12129: Add a `with_strategy` tactic
Ack-by: Zimmi48 Ack-by: ejgallego Ack-by: herbelin Ack-by: ppedrot
Diffstat (limited to 'interp')
-rw-r--r--interp/stdarg.ml2
-rw-r--r--interp/stdarg.mli2
2 files changed, 4 insertions, 0 deletions
diff --git a/interp/stdarg.ml b/interp/stdarg.ml
index 492671fff0..d5f104b7f8 100644
--- a/interp/stdarg.ml
+++ b/interp/stdarg.ml
@@ -42,6 +42,8 @@ let wit_var =
let wit_ref = make0 "ref"
+let wit_smart_global = make0 ~dyn:(val_tag (topwit wit_ref)) "smart_global"
+
let wit_sort_family = make0 "sort_family"
let wit_constr =
diff --git a/interp/stdarg.mli b/interp/stdarg.mli
index 35de3693cb..89bdd78c70 100644
--- a/interp/stdarg.mli
+++ b/interp/stdarg.mli
@@ -39,6 +39,8 @@ val wit_var : (lident, lident, Id.t) genarg_type
val wit_ref : (qualid, GlobRef.t located or_var, GlobRef.t) genarg_type
+val wit_smart_global : (qualid or_by_notation, GlobRef.t located or_var, GlobRef.t) genarg_type
+
val wit_sort_family : (Sorts.family, unit, unit) genarg_type
val wit_constr : (constr_expr, glob_constr_and_expr, constr) genarg_type