diff options
| author | Gaëtan Gilbert | 2018-11-13 16:25:23 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-11-16 15:09:52 +0100 |
| commit | 3d49ce63bd1aa35ef2e8abc9cc359ad6031c21bb (patch) | |
| tree | c3750e4aae2d3c0b14879090e001b6cbc1b8c769 /printing/printer.ml | |
| parent | 744a07e53fb99652b2b30520cfe3dfe701bbde18 (diff) | |
Print universe names in subtyping error instead of Var(x).
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 8227933433..7ce08ed6bc 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -250,7 +250,7 @@ let pr_universe_instance_constraints evd inst csts = let pcsts = if Constraint.is_empty csts then mt() else str " |= " ++ prlist_with_sep (fun () -> str "," ++ spc()) - (fun (u,d,v) -> prlev u ++ pr_constraint_type d ++ prlev v) + (fun (u,d,v) -> hov 0 (prlev u ++ pr_constraint_type d ++ prlev v)) (Constraint.elements csts) in str"@{" ++ Instance.pr prlev inst ++ pcsts ++ str"}" |