diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-08-15 17:43:35 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-08-18 18:56:39 +0200 |
commit | 5dcafa956e49eefc451dd021a0fe8ad2e2338088 (patch) | |
tree | c851c0f1cb32815bae652309c39f6d4a681fd2cc /plugins/funind/g_indfun.ml4 | |
parent | 72498d6d68ac12ba4db0db7d54f0ac6fdaaf0c61 (diff) |
Lazy interpretation of patterns so that expressions such as "intros H H'/H"
can be given with second H bound by the first one.
Not very satisfied by passing closure to tactics.ml, but otherwise
tactics would have to be aware of glob_constr.
Diffstat (limited to 'plugins/funind/g_indfun.ml4')
-rw-r--r-- | plugins/funind/g_indfun.ml4 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/plugins/funind/g_indfun.ml4 b/plugins/funind/g_indfun.ml4 index e688204a4..bbb8a96c5 100644 --- a/plugins/funind/g_indfun.ml4 +++ b/plugins/funind/g_indfun.ml4 @@ -78,10 +78,13 @@ END let pr_intro_as_pat prc _ _ pat = + failwith "todo" +(* match pat with | Some pat -> - spc () ++ str "as" ++ spc () ++ Miscprint.pr_intro_pattern prc pat + spc () ++ str "as" ++ spc () ++ Miscprint.pr_intro_pattern prc pat | None -> mt () +*) let out_disjunctive = function | loc, IntroAction (IntroOrAndPattern l) -> (loc,l) |