diff options
| author |  clrenard <clrenard@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-17 16:10:42 +0000 |
|---|---|---|
| committer | clrenard <clrenard@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-11-17 16:10:42 +0000 |
| commit | 4d2d218a6296fad88225ceea66f08355ec6d9a5c (patch) | |
| tree | 80cfe417dd9ab01b68038cdca9f2f9e67f16dcfa /interp | |
| parent | 7422420fb651d0bcbdf31d30ec93403460420daf (diff) | |
New tactics : econstructor, eleft, eright, esplit
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4929 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/genarg.ml | 5 | ||||
| -rw-r--r-- | interp/genarg.mli | 5 |
2 files changed, 10 insertions, 0 deletions
diff --git a/interp/genarg.ml b/interp/genarg.ml index 8eb8d2a0d..0ed7b97f4 100644 --- a/interp/genarg.ml +++ b/interp/genarg.ml @@ -32,6 +32,7 @@ type argument_type = | TacticArgType | CastedOpenConstrArgType | ConstrWithBindingsArgType + | WithBindingsArgType | RedExprArgType | List0ArgType of argument_type | List1ArgType of argument_type @@ -120,6 +121,10 @@ let rawwit_constr_with_bindings = ConstrWithBindingsArgType let globwit_constr_with_bindings = ConstrWithBindingsArgType let wit_constr_with_bindings = ConstrWithBindingsArgType +let rawwit_with_bindings = WithBindingsArgType +let globwit_with_bindings = WithBindingsArgType +let wit_with_bindings = WithBindingsArgType + let rawwit_red_expr = RedExprArgType let globwit_red_expr = RedExprArgType let wit_red_expr = RedExprArgType diff --git a/interp/genarg.mli b/interp/genarg.mli index 6c4da92c7..2418646d9 100644 --- a/interp/genarg.mli +++ b/interp/genarg.mli @@ -121,6 +121,10 @@ val rawwit_constr_with_bindings : (constr_expr with_bindings,constr_expr,'ta) ab val globwit_constr_with_bindings : (rawconstr_and_expr with_bindings,rawconstr_and_expr,'ta) abstract_argument_type val wit_constr_with_bindings : (constr with_bindings,constr,'ta) abstract_argument_type +val rawwit_with_bindings : (constr_expr bindings,constr_expr,'ta) abstract_argument_type +val globwit_with_bindings : (rawconstr_and_expr bindings,rawconstr_and_expr,'ta) abstract_argument_type +val wit_with_bindings : (constr bindings,constr,'ta) abstract_argument_type + val rawwit_red_expr : ((constr_expr,reference) red_expr_gen,constr_expr,'ta) abstract_argument_type val globwit_red_expr : ((rawconstr_and_expr,evaluable_global_reference and_short_name or_var) red_expr_gen,rawconstr_and_expr,'ta) abstract_argument_type val wit_red_expr : ((constr,evaluable_global_reference) red_expr_gen,constr,'ta) abstract_argument_type @@ -204,6 +208,7 @@ type argument_type = | TacticArgType | CastedOpenConstrArgType | ConstrWithBindingsArgType + | WithBindingsArgType | RedExprArgType | List0ArgType of argument_type | List1ArgType of argument_type |