diff options
| author | Matthieu Sozeau | 2015-01-17 20:17:17 +0530 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-01-18 00:16:44 +0530 |
| commit | 237b569dd6539fc1730dbd1dda29f83e24ef8d0c (patch) | |
| tree | 71c1eeaec02da28ae34f8428bab7ddcf7ecc251c /pretyping/reductionops.ml | |
| parent | 1c0110b40a9009aa6b56fafbf34a04e7ae59de0f (diff) | |
Univs: proper printing of global and local universe names (only
printing functions touched in the kernel).
Diffstat (limited to 'pretyping/reductionops.ml')
| -rw-r--r-- | pretyping/reductionops.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/reductionops.ml b/pretyping/reductionops.ml index b8e3b3b145..a23963abca 100644 --- a/pretyping/reductionops.ml +++ b/pretyping/reductionops.ml @@ -306,7 +306,8 @@ struct match c with | Cst_const (c, u) -> if Univ.Instance.is_empty u then Constant.print c - else str"(" ++ Constant.print c ++ str ", " ++ Univ.Instance.pr u ++ str")" + else str"(" ++ Constant.print c ++ str ", " ++ + Univ.Instance.pr Univ.Level.pr u ++ str")" | Cst_proj p -> str".(" ++ Constant.print (Projection.constant p) ++ str")" |