diff options
-rw-r--r-- | interp/stdarg.ml | 5 | ||||
-rw-r--r-- | interp/stdarg.mli | 2 | ||||
-rw-r--r-- | tactics/taccoerce.ml | 3 | ||||
-rw-r--r-- | tactics/taccoerce.mli | 2 |
4 files changed, 7 insertions, 5 deletions
diff --git a/interp/stdarg.ml b/interp/stdarg.ml index cfc65bde8..1216e06b1 100644 --- a/interp/stdarg.ml +++ b/interp/stdarg.ml @@ -15,6 +15,11 @@ let def_uniform name pr = { (default_uniform_arg0 name) with arg0_tprint = pr; } +let wit_unit : unit uniform_genarg_type = + let pr_unit _ = str "()" in + let arg = def_uniform "unit" pr_unit in + make0 None "unit" arg + let wit_bool : bool uniform_genarg_type = let pr_bool b = str (if b then "true" else "false") in let arg = def_uniform "bool" pr_bool in diff --git a/interp/stdarg.mli b/interp/stdarg.mli index 276c4c54c..a82a9666b 100644 --- a/interp/stdarg.mli +++ b/interp/stdarg.mli @@ -10,6 +10,8 @@ open Genarg +val wit_unit : unit uniform_genarg_type + val wit_bool : bool uniform_genarg_type val wit_int : int uniform_genarg_type diff --git a/tactics/taccoerce.ml b/tactics/taccoerce.ml index 89774ba21..e530a5fbd 100644 --- a/tactics/taccoerce.ml +++ b/tactics/taccoerce.ml @@ -18,9 +18,6 @@ open Stdarg exception CannotCoerceTo of string -let (wit_unit : (unit, unit, unit) Genarg.genarg_type) = - Genarg.create_arg None "unit" - let (wit_constr_context : (Empty.t, Empty.t, constr) Genarg.genarg_type) = Genarg.create_arg None "constr_context" diff --git a/tactics/taccoerce.mli b/tactics/taccoerce.mli index f9ffb70a5..75f45e731 100644 --- a/tactics/taccoerce.mli +++ b/tactics/taccoerce.mli @@ -82,8 +82,6 @@ val coerce_to_int_or_var_list : Value.t -> int or_var list (** {5 Missing generic arguments} *) -val wit_unit : (unit, unit, unit) genarg_type - val wit_constr_context : (Empty.t, Empty.t, constr) genarg_type val wit_constr_under_binders : (Empty.t, Empty.t, constr_under_binders) genarg_type |