From 568a8fe47f83ab08257239ee098eaf83a32eabbe Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Wed, 19 Jun 2013 19:59:13 +0000
Subject: Moving wit_unit to Stdarg.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16595 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/taccoerce.ml  | 3 ---
 tactics/taccoerce.mli | 2 --
 2 files changed, 5 deletions(-)

(limited to 'tactics')

diff --git a/tactics/taccoerce.ml b/tactics/taccoerce.ml
index 89774ba213..e530a5fbd3 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 f9ffb70a59..75f45e7316 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
-- 
cgit v1.2.3