diff options
author | 2014-08-15 17:43:35 +0200 | |
---|---|---|
committer | 2014-08-18 18:56:39 +0200 | |
commit | 5dcafa956e49eefc451dd021a0fe8ad2e2338088 (patch) | |
tree | c851c0f1cb32815bae652309c39f6d4a681fd2cc /printing/pptactic.ml | |
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 'printing/pptactic.ml')
-rw-r--r-- | printing/pptactic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 5ea4293c9..8c3e9a7e0 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1024,7 +1024,7 @@ let () = Constrarg.wit_intro_pattern (Miscprint.pr_intro_pattern pr_constr_expr) (Miscprint.pr_intro_pattern (fun (c,_) -> pr_glob_constr c)) - (Miscprint.pr_intro_pattern pr_constr); + (Miscprint.pr_intro_pattern (fun c -> pr_constr (snd (c (Global.env()) Evd.empty)))); Genprint.register_print0 Constrarg.wit_clause_dft_concl (pr_clauses (Some true) pr_lident) |