diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-12 21:07:49 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-06-12 21:07:49 +0000 |
| commit | f3376db665463fa75631f001321a090165c44da1 (patch) | |
| tree | ce836fb16e81228c64a53cc527d4bfac1cdb59d4 /tactics/tacintern.ml | |
| parent | bea2a4f5fe5cab0abfc27492117c335a311a0c19 (diff) | |
Added Genarg as generic argument type.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16575 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacintern.ml')
| -rw-r--r-- | tactics/tacintern.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tactics/tacintern.ml b/tactics/tacintern.ml index aa91db9b0..883b9094f 100644 --- a/tactics/tacintern.ml +++ b/tactics/tacintern.ml @@ -787,6 +787,8 @@ and intern_genarg ist x = in_gen (glbwit wit_var) (intern_hyp ist (out_gen (rawwit wit_var) x)) | RefArgType -> in_gen (glbwit wit_ref) (intern_global_reference ist (out_gen (rawwit wit_ref) x)) + | GenArgType -> + in_gen (glbwit wit_genarg) (intern_genarg ist (out_gen (rawwit wit_genarg) x)) | SortArgType -> in_gen (glbwit wit_sort) (out_gen (rawwit wit_sort) x) | ConstrArgType -> |