diff options
| author | herbelin | 2004-11-04 12:32:24 +0000 |
|---|---|---|
| committer | herbelin | 2004-11-04 12:32:24 +0000 |
| commit | 745dd2cab8dc63e5741100b24435c5a8b7c19115 (patch) | |
| tree | 4331e185f225f0da92c4acaf955ac2d8e664f369 | |
| parent | 1097a91c82c0efa2758c7a38bb54cc9db0b6f83e (diff) | |
Affichage des univers
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6276 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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" |