diff options
| author | herbelin | 2013-04-17 15:00:23 +0000 |
|---|---|---|
| committer | herbelin | 2013-04-17 15:00:23 +0000 |
| commit | b40a928259fba6c22eb70909ab5e86681ad2ec61 (patch) | |
| tree | f1bd7bea7e3f195606e2603f048fc90e224899eb /printing/printer.ml | |
| parent | fa40a7313918a8f7f37fb5a9620b6c1354dde9e0 (diff) | |
Improving error message in explain_cannot_find_well_typed_abstraction:
make head bound variables distinct from the variables in environment,
so that the naming scheme is the same when, say, printing "fun x:B => foo x"
in environment "x:A" (main error with explicit "fun") and when
printing (secondary error in the "reason" message) "foo x" in
environment "x:A, x:B" (i.e. with "fun" discharged in environment).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16415 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index ac7761994b..531614e505 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -47,6 +47,9 @@ let pr_lconstr_core goal_concl_style env t = let pr_lconstr_env env = pr_lconstr_core false env let pr_constr_env env = pr_constr_core false env +let pr_lconstr_goal_style_env env = pr_lconstr_core true env +let pr_constr_goal_style_env env = pr_constr_core true env + let pr_open_lconstr_env env (_,c) = pr_lconstr_env env c let pr_open_constr_env env (_,c) = pr_constr_env env c |