diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-08-12 14:03:32 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-09-12 10:39:32 +0200 |
| commit | 012fe1a96ba81ab0a7fa210610e3f25187baaf1d (patch) | |
| tree | 32282ac2f1198738c8c545b19215ff0a0d9ef6ce /printing/ppconstr.ml | |
| parent | b720cd3cbefa46da784b68a8e016a853f577800c (diff) | |
Referring to evars by names. Added a parser for evars (but parsing of
instances still to do). Using heuristics to name after the quantifier
name it comes. Also added a "sigma" to almost all printing functions.
Diffstat (limited to 'printing/ppconstr.ml')
| -rw-r--r-- | printing/ppconstr.ml | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 0fb97ad16..6956ec448 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -174,15 +174,13 @@ let pr_prim_token = function | Numeral n -> str (Bigint.to_string n) | String s -> qs s -let pr_evar pr n l = - hov 0 (str (Evd.string_of_existential n) ++ +let pr_evar pr id l = + hov 0 (str "?" ++ pr_id id ++ (match l with + | None | Some [] -> mt() | Some l -> - spc () ++ pr_in_comment - (fun l -> - str"[" ++ hov 0 (prlist_with_sep pr_comma (pr ltop) l) ++ str"]") - (List.rev l) - | None -> mt())) + let f (id,c) = pr_id id ++ str ":=" ++ pr ltop c in + str"@{" ++ hov 0 (prlist_with_sep pr_comma f l) ++ str"}")) let las = lapp let lpator = 100 |