diff options
| -rw-r--r-- | dev/top_printers.ml | 7 | ||||
| -rw-r--r-- | kernel/univ.mli | 1 |
2 files changed, 2 insertions, 6 deletions
diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 12e8ed33b5..07f97cbfee 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -66,12 +66,7 @@ let prwc wc = pP(pr_evc wc) let prclenv clenv = pP(pr_clenv clenv) -let p_uni u = - [< 'sTR(string_of_path u.u_sp) ; - 'sTR "." ; - 'iNT u.u_num >] - -let print_uni u = (pP (p_uni u)) +let print_uni u = (pP (pr_uni u)) let pp_universes u = pP [< 'sTR"[" ; pr_universes u ; 'sTR"]" >] diff --git a/kernel/univ.mli b/kernel/univ.mli index c69b809bbc..c37ddba88b 100644 --- a/kernel/univ.mli +++ b/kernel/univ.mli @@ -59,4 +59,5 @@ val merge_constraints : constraints -> universes -> universes (*s Pretty-printing of universes. *) +val pr_uni : universe -> Pp.std_ppcmds val pr_universes : universes -> Pp.std_ppcmds |