diff options
| author | Hugo Herbelin | 2017-03-13 23:06:33 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2017-03-15 14:50:53 +0100 |
| commit | 671e5ad1795b2606a5da9c65758fb0d337c4d14e (patch) | |
| tree | 60de8f2d83355269cb07050d14a97b712bb959d4 /intf | |
| parent | 0e07ace6b6810f70f99fffff924d8c499db18250 (diff) | |
Attempt to improve error message when "apply in" fail.
- Adding a better location in the "apply" on the fly pattern.
- Printing statement of lemma and of hypothesis.
Was suggested by discussion at wish report #5390.
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/misctypes.mli | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/intf/misctypes.mli b/intf/misctypes.mli index e4f595ac4a..33dc2a335c 100644 --- a/intf/misctypes.mli +++ b/intf/misctypes.mli @@ -28,7 +28,7 @@ and 'constr intro_pattern_action_expr = | IntroWildcard | IntroOrAndPattern of 'constr or_and_intro_pattern_expr | IntroInjection of (Loc.t * 'constr intro_pattern_expr) list - | IntroApplyOn of 'constr * (Loc.t * 'constr intro_pattern_expr) + | IntroApplyOn of (Loc.t * 'constr) * (Loc.t * 'constr intro_pattern_expr) | IntroRewrite of bool and 'constr or_and_intro_pattern_expr = | IntroOrPattern of (Loc.t * 'constr intro_pattern_expr) list list |