diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-08-18 17:13:19 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-08-18 18:56:39 +0200 |
| commit | 72498d6d68ac12ba4db0db7d54f0ac6fdaaf0c61 (patch) | |
| tree | 79c10bf2a989cab52970046f1a87714f44926a2a /interp | |
| parent | 924771d6fdd1349955c2d0f500ccf34c2109507b (diff) | |
Adding a new intro-pattern for "apply in" on the fly. Using syntax
"pat/term" for "apply term on current_hyp as pat".
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrarg.ml | 2 | ||||
| -rw-r--r-- | interp/constrarg.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/interp/constrarg.ml b/interp/constrarg.ml index aad034c05..9c1382ba1 100644 --- a/interp/constrarg.ml +++ b/interp/constrarg.ml @@ -24,7 +24,7 @@ let unsafe_of_type (t : argument_type) : ('a, 'b, 'c) Genarg.genarg_type = let wit_int_or_var = unsafe_of_type IntOrVarArgType -let wit_intro_pattern : intro_pattern_expr located uniform_genarg_type = +let wit_intro_pattern : (Constrexpr.constr_expr intro_pattern_expr located, glob_constr_and_expr intro_pattern_expr located, constr intro_pattern_expr located) genarg_type = Genarg.make0 None "intropattern" let wit_tactic : (raw_tactic_expr, glob_tactic_expr, glob_tactic_expr) genarg_type = diff --git a/interp/constrarg.mli b/interp/constrarg.mli index 359aab0d8..b6ff3c850 100644 --- a/interp/constrarg.mli +++ b/interp/constrarg.mli @@ -28,7 +28,7 @@ val loc_of_or_by_notation : ('a -> Loc.t) -> 'a or_by_notation -> Loc.t val wit_int_or_var : int or_var uniform_genarg_type -val wit_intro_pattern : intro_pattern_expr located uniform_genarg_type +val wit_intro_pattern : (constr_expr intro_pattern_expr located, glob_constr_and_expr intro_pattern_expr located, constr intro_pattern_expr located) genarg_type val wit_ident : Id.t uniform_genarg_type |