diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-18 19:48:50 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-18 19:48:50 +0000 |
| commit | a3b4bde65a350bf3dc54ccec8f7608355c6a008a (patch) | |
| tree | 46107f5a916af73f9c0051097ce73f2bdd3455b8 /tactics/tacsubst.ml | |
| parent | 7a2701e6741fcf1e800e35b7721fc89abe40cbba (diff) | |
Proof-of-concept: moved four easy-to-handle generic arguments to
their own file, Stdarg.
This required a little trick to correctly handle wit_* naming. We
use a dynamic table to remember exactly where those arguments come
from.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16587 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacsubst.ml')
| -rw-r--r-- | tactics/tacsubst.ml | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/tactics/tacsubst.ml b/tactics/tacsubst.ml index f33e3ccec..ba80d6d6c 100644 --- a/tactics/tacsubst.ml +++ b/tactics/tacsubst.ml @@ -286,11 +286,7 @@ and subst_match_rule subst = function and subst_genarg subst (x:glob_generic_argument) = match genarg_tag x with - | BoolArgType -> in_gen (glbwit wit_bool) (out_gen (glbwit wit_bool) x) - | IntArgType -> in_gen (glbwit wit_int) (out_gen (glbwit wit_int) x) | IntOrVarArgType -> in_gen (glbwit wit_int_or_var) (out_gen (glbwit wit_int_or_var) x) - | StringArgType -> in_gen (glbwit wit_string) (out_gen (glbwit wit_string) x) - | PreIdentArgType -> in_gen (glbwit wit_pre_ident) (out_gen (glbwit wit_pre_ident) x) | IntroPatternArgType -> in_gen (glbwit wit_intro_pattern) (out_gen (glbwit wit_intro_pattern) x) | IdentArgType b -> |