diff options
| author | Matthieu Sozeau | 2015-10-28 11:16:47 -0400 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-10-28 12:38:09 -0400 |
| commit | 89be9efbf6dbd8a04fb8ccab4c9aa7a11b9a0f03 (patch) | |
| tree | 12f3f9e9e414b86098b935fdf73a61fcddeffb77 /printing/printer.ml | |
| parent | 908dcd613b12645f3b62bf44c2696b80a0b16940 (diff) | |
Printing of @{} instances for polymorphic references in Print and About.
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 18e4902255..f4852b1089 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -825,3 +825,7 @@ let pr_polymorphic b = if b then str"Polymorphic " else str"Monomorphic " else mt () +let pr_universe_instance ctx = + let inst = Univ.UContext.instance ctx in + str"@{" ++ Univ.Instance.pr Univ.Level.pr inst ++ str"}" + |