diff options
| author | Hugo Herbelin | 2014-09-13 10:41:28 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-09-13 11:20:28 +0200 |
| commit | 9a4e062c92ad88c894ebbd6e20ee9d1511f24a3f (patch) | |
| tree | f258cc2a80359d4739a244fff0b67c5220bae598 /printing | |
| parent | 50b20a3076c5c8dfe4cf77ccfa65f33c873a2fab (diff) | |
Checking typability of evar instances. Using ";" to separate bindings
in instances.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppconstr.ml | 2 | ||||
| -rw-r--r-- | printing/printer.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index baafbc04fd..058dc2447a 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -180,7 +180,7 @@ let pr_evar pr id l = | [] -> mt() | l -> let f (id,c) = pr_id id ++ str ":=" ++ pr ltop c in - str"@{" ++ hov 0 (prlist_with_sep pr_comma f l) ++ str"}")) + str"@{" ++ hov 0 (prlist_with_sep pr_semicolon f l) ++ str"}")) let las = lapp let lpator = 100 diff --git a/printing/printer.ml b/printing/printer.ml index 2aa9850a80..c19d0fea43 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -225,7 +225,7 @@ let pr_puniverses f env (c,u) = else mt ()) let pr_constant env cst = pr_global_env (Termops.vars_of_env env) (ConstRef cst) -let pr_existential_key sigma evk = str "?" ++ pr_id (evar_ident evk sigma) +let pr_existential_key = Evd.pr_existential_key let pr_existential env sigma ev = pr_lconstr_env env sigma (mkEvar ev) let pr_inductive env ind = pr_lconstr_env env Evd.empty (mkInd ind) let pr_constructor env cstr = pr_lconstr_env env Evd.empty (mkConstruct cstr) |