diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-10-08 23:28:06 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2014-10-10 20:40:04 +0200 |
| commit | 8a9de08c0e6a5130103cedf05cbcebcf5f621d1e (patch) | |
| tree | 8dd91ad2d43fb99cb99115c5b5377f4a142f8947 /pretyping/evd.ml | |
| parent | 32653d69478992d55dc45a5562aeb6b41ae67f21 (diff) | |
Add debug printers for projections, fix printing of evar constraints
and unsatisfiable constraints which were not done in the right environment.
Diffstat (limited to 'pretyping/evd.ml')
| -rw-r--r-- | pretyping/evd.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index 822a3cb7c..028361185 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -1777,11 +1777,11 @@ let print_env_short env = let pr_evar_constraints pbs = let pr_evconstr (pbty, env, t1, t2) = print_env_short env ++ spc () ++ str "|-" ++ spc () ++ - print_constr t1 ++ spc () ++ + print_constr_env env t1 ++ spc () ++ str (match pbty with | Reduction.CONV -> "==" | Reduction.CUMUL -> "<=") ++ - spc () ++ print_constr t2 + spc () ++ print_constr_env env t2 in prlist_with_sep fnl pr_evconstr pbs |