diff options
| author | Emilio Jesus Gallego Arias | 2017-11-26 04:30:07 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2017-11-26 04:33:51 +0100 |
| commit | 3cc45d57f6001d8c377825b9b940bc51fb3a96f7 (patch) | |
| tree | ffd95829dd19c019811e82f6c849213920849ff3 /engine/termops.ml | |
| parent | c1e670b386f83ed78104a6eb6e4d17cc1d906439 (diff) | |
[api] Remove aliases of `Evar.t`
There don't really bring anything, we also correct some minor nits
with the printing function.
Diffstat (limited to 'engine/termops.ml')
| -rw-r--r-- | engine/termops.ml | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index 46fac50f22..07fe902220 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -205,8 +205,7 @@ let pr_evar_source = function | Evar_kinds.MatchingVar _ -> str "matching variable" | Evar_kinds.VarInstance id -> str "instance of " ++ Id.print id | Evar_kinds.SubEvar evk -> - let open Evd in - str "subterm of " ++ str (string_of_existential evk) + str "subterm of " ++ Evar.print evk let pr_evar_info evi = let open Evd in @@ -356,7 +355,7 @@ let pr_evar_map_gen with_univs pr_evars sigma = let pr_evar_list sigma l = let open Evd in let pr (ev, evi) = - h 0 (str (string_of_existential ev) ++ + h 0 (Evar.print ev ++ str "==" ++ pr_evar_info evi ++ (if evi.evar_body == Evar_empty then str " {" ++ pr_existential_key sigma ev ++ str "}" |