diff options
| author | ppedrot | 2013-07-05 19:22:49 +0000 |
|---|---|---|
| committer | ppedrot | 2013-07-05 19:22:49 +0000 |
| commit | 931bd73212b0095d8c50e0355ee66faa32bf8db6 (patch) | |
| tree | fbff2b6bf249899f4cdcd6d2a821d5259c177d7b /interp | |
| parent | a778b72e3ebfbe784fbe55ee5e124ba3f66cfb10 (diff) | |
Removing SortArgType.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16618 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrarg.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/interp/constrarg.ml b/interp/constrarg.ml index 5c2b3392c4..16af7c3080 100644 --- a/interp/constrarg.ml +++ b/interp/constrarg.ml @@ -53,7 +53,8 @@ let wit_quant_hyp = unsafe_of_type QuantHypArgType let wit_genarg = unsafe_of_type GenArgType -let wit_sort = unsafe_of_type SortArgType +let wit_sort : (glob_sort, glob_sort, sorts) genarg_type = + Genarg.make0 None "sort" let wit_constr = unsafe_of_type ConstrArgType @@ -75,4 +76,5 @@ let wit_red_expr = unsafe_of_type RedExprArgType let () = register_name0 wit_intro_pattern "Constrarg.wit_intro_pattern"; - register_name0 wit_tactic "Constrarg.wit_tactic" + register_name0 wit_tactic "Constrarg.wit_tactic"; + register_name0 wit_sort "Constrarg.wit_sort"; |