diff options
| author | ppedrot | 2013-06-12 21:07:49 +0000 |
|---|---|---|
| committer | ppedrot | 2013-06-12 21:07:49 +0000 |
| commit | f3376db665463fa75631f001321a090165c44da1 (patch) | |
| tree | ce836fb16e81228c64a53cc527d4bfac1cdb59d4 /interp | |
| 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 'interp')
| -rw-r--r-- | interp/genarg.ml | 4 | ||||
| -rw-r--r-- | interp/genarg.mli | 3 |
2 files changed, 7 insertions, 0 deletions
diff --git a/interp/genarg.ml b/interp/genarg.ml index f9b5bee0a4..ea8302e91c 100644 --- a/interp/genarg.ml +++ b/interp/genarg.ml @@ -24,6 +24,7 @@ type argument_type = | VarArgType | RefArgType (* Specific types *) + | GenArgType | SortArgType | ConstrArgType | ConstrMayEvalArgType @@ -48,6 +49,7 @@ let rec argument_type_eq arg1 arg2 = match arg1, arg2 with | IdentArgType b1, IdentArgType b2 -> (b1 : bool) == b2 | VarArgType, VarArgType -> true | RefArgType, RefArgType -> true +| GenArgType, GenArgType -> true | SortArgType, SortArgType -> true | ConstrArgType, ConstrArgType -> true | ConstrMayEvalArgType, ConstrMayEvalArgType -> true @@ -118,6 +120,8 @@ let wit_ref = RefArgType let wit_quant_hyp = QuantHypArgType +let wit_genarg = GenArgType + let wit_sort = SortArgType let wit_constr = ConstrArgType diff --git a/interp/genarg.mli b/interp/genarg.mli index 4f5dea7ec0..8f4b816187 100644 --- a/interp/genarg.mli +++ b/interp/genarg.mli @@ -214,6 +214,7 @@ type argument_type = | VarArgType | RefArgType (** Specific types *) + | GenArgType | SortArgType | ConstrArgType | ConstrMayEvalArgType @@ -262,6 +263,8 @@ val wit_ref : (reference, global_reference located or_var, global_reference) gen val wit_quant_hyp : quantified_hypothesis uniform_genarg_type +val wit_genarg : (raw_generic_argument, glob_generic_argument, typed_generic_argument) genarg_type + val wit_sort : (glob_sort, glob_sort, sorts) genarg_type val wit_constr : (constr_expr, glob_constr_and_expr, constr) genarg_type |