diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-05-17 12:43:22 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-05-17 12:43:22 +0000 |
commit | ddc83ed89cd6671cfa6b5bf2d0ce1fb74ad206c1 (patch) | |
tree | e909215081d80bd77413cf51ceff915fe22d8af2 /interp | |
parent | b748569d82f5d8e886ac9f928c7fa1af5d422ce7 (diff) |
Extension de Tactic Notation pour permettre d'tendre et de faire rffrence aux niveaux syntaxiques des tacticielles
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7029 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
-rw-r--r-- | interp/genarg.ml | 8 | ||||
-rw-r--r-- | interp/genarg.mli | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/interp/genarg.ml b/interp/genarg.ml index 2b01a2034..f81425eb8 100644 --- a/interp/genarg.ml +++ b/interp/genarg.ml @@ -33,7 +33,7 @@ type argument_type = | ConstrArgType | ConstrMayEvalArgType | QuantHypArgType - | TacticArgType + | TacticArgType of int | OpenConstrArgType of bool | ConstrWithBindingsArgType | BindingsArgType @@ -140,9 +140,9 @@ let rawwit_constr_may_eval = ConstrMayEvalArgType let globwit_constr_may_eval = ConstrMayEvalArgType let wit_constr_may_eval = ConstrMayEvalArgType -let rawwit_tactic = TacticArgType -let globwit_tactic = TacticArgType -let wit_tactic = TacticArgType +let rawwit_tactic n = TacticArgType n +let globwit_tactic n = TacticArgType n +let wit_tactic n = TacticArgType n let rawwit_open_constr_gen b = OpenConstrArgType b let globwit_open_constr_gen b = OpenConstrArgType b diff --git a/interp/genarg.mli b/interp/genarg.mli index 042520151..9609576a4 100644 --- a/interp/genarg.mli +++ b/interp/genarg.mli @@ -161,9 +161,9 @@ val globwit_red_expr : ((rawconstr_and_expr,evaluable_global_reference and_short val wit_red_expr : ((constr,evaluable_global_reference) red_expr_gen,constr,'ta) abstract_argument_type (* TODO: transformer tactic en extra arg *) -val rawwit_tactic : ('ta,constr_expr,'ta) abstract_argument_type -val globwit_tactic : ('ta,rawconstr_and_expr,'ta) abstract_argument_type -val wit_tactic : ('ta,constr,'ta) abstract_argument_type +val rawwit_tactic : int -> ('ta,constr_expr,'ta) abstract_argument_type +val globwit_tactic : int -> ('ta,rawconstr_and_expr,'ta) abstract_argument_type +val wit_tactic : int -> ('ta,constr,'ta) abstract_argument_type val wit_list0 : ('a,'co,'ta) abstract_argument_type -> ('a list,'co,'ta) abstract_argument_type @@ -238,7 +238,7 @@ type argument_type = | ConstrArgType | ConstrMayEvalArgType | QuantHypArgType - | TacticArgType + | TacticArgType of int | OpenConstrArgType of bool | ConstrWithBindingsArgType | BindingsArgType |