diff options
| -rw-r--r-- | parsing/ppconstr.ml | 2 | ||||
| -rw-r--r-- | translate/ppconstrnew.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/parsing/ppconstr.ml b/parsing/ppconstr.ml index 3bfd26d72b..ec5147e80a 100644 --- a/parsing/ppconstr.ml +++ b/parsing/ppconstr.ml @@ -87,7 +87,7 @@ let pr_opt pr = function | None -> mt () | Some x -> spc () ++ pr x -let pr_universe u = str "<univ>" +let pr_universe = Univ.pr_univ let pr_sort = function | RProp Term.Null -> str "Prop" diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml index 3e08fae301..12a77e433a 100644 --- a/translate/ppconstrnew.ml +++ b/translate/ppconstrnew.ml @@ -118,7 +118,7 @@ let pr_optc pr = function | None -> mt () | Some x -> pr_sep_com spc pr x -let pr_universe u = str "<univ>" +let pr_universe = Univ.pr_uni let pr_sort = function | RProp Term.Null -> str "Prop" |