diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-03-20 16:59:15 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-03-20 21:26:40 +0100 |
| commit | dc7b77f09fe5e59e6e48486d9a8c0bdc6acf83b7 (patch) | |
| tree | 1314b0f8a4f296f01b492cbd6db3549cba78f1b9 /interp | |
| parent | 6de9f13ba666250ea397c7db1d9d37075a9dc1c2 (diff) | |
Adding a new Ltac generic argument for forced tactics returing unit.
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrarg.ml | 2 | ||||
| -rw-r--r-- | interp/constrarg.mli | 5 |
2 files changed, 7 insertions, 0 deletions
diff --git a/interp/constrarg.ml b/interp/constrarg.ml index 81e942d82..46be0b8a1 100644 --- a/interp/constrarg.ml +++ b/interp/constrarg.ml @@ -28,6 +28,8 @@ let wit_intro_pattern : (Constrexpr.constr_expr intro_pattern_expr located, glob let wit_tactic : (raw_tactic_expr, glob_tactic_expr, Val.t) genarg_type = Genarg.make0 "tactic" +let wit_ltac = Genarg.make0 ~dyn:(val_tag (topwit Stdarg.wit_unit)) "ltac" + let wit_ident = Genarg.make0 "ident" diff --git a/interp/constrarg.mli b/interp/constrarg.mli index 1197b85a2..d38b1183c 100644 --- a/interp/constrarg.mli +++ b/interp/constrarg.mli @@ -71,6 +71,11 @@ val wit_red_expr : val wit_tactic : (raw_tactic_expr, glob_tactic_expr, Val.t) genarg_type +(** [wit_ltac] is subtly different from [wit_tactic]: they only change for their + toplevel interpretation. The one of [wit_ltac] forces the tactic and + discards the result. *) +val wit_ltac : (raw_tactic_expr, glob_tactic_expr, unit) genarg_type + val wit_clause_dft_concl : (Names.Id.t Loc.located Locus.clause_expr,Names.Id.t Loc.located Locus.clause_expr,Names.Id.t Locus.clause_expr) genarg_type (** Aliases for compatibility *) |