diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/mod_subst.ml | 2 | ||||
| -rw-r--r-- | kernel/univ.ml | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/kernel/mod_subst.ml b/kernel/mod_subst.ml index c967bf1bac..d0f855a322 100644 --- a/kernel/mod_subst.ml +++ b/kernel/mod_subst.ml @@ -274,7 +274,7 @@ let debug_pr_subst sub = let f (s1,s2,s3) = hov 2 (str s1 ++ spc () ++ str "|-> " ++ str s2 ++ spc () ++ str "[" ++ str s3 ++ str "]") in - str "{" ++ hov 2 (prlist_with_sep pr_coma f l) ++ str "}" + str "{" ++ hov 2 (prlist_with_sep pr_comma f l) ++ str "}" let subst_mp0 sub mp = (* 's like subst *) diff --git a/kernel/univ.ml b/kernel/univ.ml index ca0d8fbd03..50de9a0541 100644 --- a/kernel/univ.ml +++ b/kernel/univ.ml @@ -78,9 +78,9 @@ let pr_uni = function str "(" ++ pr_uni_level u ++ str ")+1" | Max (gel,gtl) -> str "max(" ++ hov 0 - (prlist_with_sep pr_coma pr_uni_level gel ++ - (if gel <> [] & gtl <> [] then pr_coma () else mt ()) ++ - prlist_with_sep pr_coma + (prlist_with_sep pr_comma pr_uni_level gel ++ + (if gel <> [] & gtl <> [] then pr_comma () else mt ()) ++ + prlist_with_sep pr_comma (fun x -> str "(" ++ pr_uni_level x ++ str ")+1") gtl) ++ str ")" |