diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2013-12-19 20:02:39 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2013-12-19 20:10:23 +0100 |
| commit | 631298df172c1e034d6898ff13d5d5aabb9a5098 (patch) | |
| tree | b43a195fe510f6692aa5b17c48358a630f04cb1b /interp | |
| parent | cfeb55070713c8131ca0f95c6c374c624b36a895 (diff) | |
Removing the useless pattern ident genarg.
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrarg.ml | 6 | ||||
| -rw-r--r-- | interp/constrarg.mli | 4 |
2 files changed, 1 insertions, 9 deletions
diff --git a/interp/constrarg.ml b/interp/constrarg.ml index 4f20dd560..846fb5b93 100644 --- a/interp/constrarg.ml +++ b/interp/constrarg.ml @@ -39,11 +39,7 @@ let wit_intro_pattern : intro_pattern_expr located uniform_genarg_type = let wit_tactic : (raw_tactic_expr, glob_tactic_expr, glob_tactic_expr) genarg_type = Genarg.make0 None "tactic" -let wit_ident_gen b = unsafe_of_type (IdentArgType b) - -let wit_ident = wit_ident_gen true - -let wit_pattern_ident = wit_ident_gen false +let wit_ident = unsafe_of_type IdentArgType let wit_var = unsafe_of_type VarArgType diff --git a/interp/constrarg.mli b/interp/constrarg.mli index b83c20065..1654d2719 100644 --- a/interp/constrarg.mli +++ b/interp/constrarg.mli @@ -36,10 +36,6 @@ val wit_intro_pattern : intro_pattern_expr located uniform_genarg_type val wit_ident : Id.t uniform_genarg_type -val wit_pattern_ident : Id.t uniform_genarg_type - -val wit_ident_gen : bool -> Id.t uniform_genarg_type - val wit_var : (Id.t located, Id.t located, Id.t) genarg_type val wit_ref : (reference, global_reference located or_var, global_reference) genarg_type |