aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGravatar ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7>2013-06-19 19:59:13 +0000
committerGravatar ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7>2013-06-19 19:59:13 +0000
commit568a8fe47f83ab08257239ee098eaf83a32eabbe (patch)
treeca247f3f0aaaf90553c743067a43d237004bfdf1
parent902d8031333704b8c1f4b73aa72b1a015530f3a4 (diff)
Moving wit_unit to Stdarg.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16595 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r--interp/stdarg.ml5
-rw-r--r--interp/stdarg.mli2
-rw-r--r--tactics/taccoerce.ml3
-rw-r--r--tactics/taccoerce.mli2
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