diff options
| author | Matthieu Sozeau | 2014-08-07 14:08:29 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-08-13 11:52:38 +0200 |
| commit | bcb425ead1d12d6e800f9f13f28b34da529c463e (patch) | |
| tree | b32572d718d3c7bec77c64742f5ddf6e6989b893 /pretyping/evd.ml | |
| parent | c7480636bce632adfa28d6bb0b423a086ade4318 (diff) | |
Bettre pretty-printing of evar maps, avoids printing universe information
for typeclass errors.
Diffstat (limited to 'pretyping/evd.ml')
| -rw-r--r-- | pretyping/evd.ml | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index fcc58f43fd..ff04bda809 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -1617,10 +1617,10 @@ let pr_evar_constraints pbs = in prlist_with_sep fnl pr_evconstr pbs -let pr_evar_map_gen pr_evars sigma = +let pr_evar_map_gen with_univs pr_evars sigma = let { universes = uvs } = sigma in - let evs = if has_no_evar sigma then mt () else pr_evars sigma - and svs = pr_evar_universe_context uvs + let evs = if has_no_evar sigma then mt () else pr_evars sigma ++ fnl () + and svs = if with_univs then pr_evar_universe_context uvs else mt () and cstrs = if List.is_empty sigma.conv_pbs then mt () else @@ -1666,11 +1666,11 @@ let pr_evar_by_filter filter sigma = in prdef ++ prundef -let pr_evar_map depth sigma = - pr_evar_map_gen (fun sigma -> pr_evar_by_depth depth sigma) sigma +let pr_evar_map ?(with_univs=true) depth sigma = + pr_evar_map_gen with_univs (fun sigma -> pr_evar_by_depth depth sigma) sigma -let pr_evar_map_filter filter sigma = - pr_evar_map_gen (fun sigma -> pr_evar_by_filter filter sigma) sigma +let pr_evar_map_filter ?(with_univs=true) filter sigma = + pr_evar_map_gen with_univs (fun sigma -> pr_evar_by_filter filter sigma) sigma let pr_metaset metas = str "[" ++ pr_sequence pr_meta (Metaset.elements metas) ++ str "]" |