diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-09-15 10:31:38 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-09-15 10:31:38 +0200 |
commit | 041c6c02c2c71b442cf4765918f5c6685c4d92f0 (patch) | |
tree | babe6b0f86c072459fb1d3b2c412c62e11ea5dfd /interp | |
parent | 8c097e35835c4a31a24c043c1bc36ff9d356a87c (diff) | |
parent | b71e68fb78ccde52f1aaa63ef26f0135b92e9be5 (diff) |
Merge PR #1037: Parse directly to Sorts.family when appropriate.
Diffstat (limited to 'interp')
-rw-r--r-- | interp/stdarg.ml | 2 | ||||
-rw-r--r-- | interp/stdarg.mli | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/interp/stdarg.ml b/interp/stdarg.ml index 274ea6213..45dec5112 100644 --- a/interp/stdarg.ml +++ b/interp/stdarg.ml @@ -50,6 +50,8 @@ let wit_ref = make0 "ref" let wit_quant_hyp = make0 "quant_hyp" +let wit_sort_family = make0 "sort_family" + let wit_constr = make0 "constr" diff --git a/interp/stdarg.mli b/interp/stdarg.mli index 1d4a29b9c..dffbd6659 100644 --- a/interp/stdarg.mli +++ b/interp/stdarg.mli @@ -47,6 +47,8 @@ val wit_ref : (reference, global_reference located or_var, global_reference) gen val wit_quant_hyp : quantified_hypothesis uniform_genarg_type +val wit_sort_family : (Sorts.family, unit, unit) genarg_type + val wit_constr : (constr_expr, glob_constr_and_expr, constr) genarg_type val wit_uconstr : (constr_expr , glob_constr_and_expr, Glob_term.closed_glob_constr) genarg_type |