diff options
| author | Matthieu Sozeau | 2016-01-23 15:17:29 -0500 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-01-23 15:58:06 -0500 |
| commit | 5cbcc8fd761df0779f6202fef935f07cfef8a228 (patch) | |
| tree | 886d05ab59b157b812879facc6ef3fa3defc7d20 /printing | |
| parent | ccdc62a6b4722c38f2b37cbf21b14e5094255390 (diff) | |
Implement support for universe binder lists in Instance and Program Fixpoint/Definition.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index d2f59e7b8d..38add9d2c8 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -925,8 +925,9 @@ module Make hov 1 ( (if abst then keyword "Declare" ++ spc () else mt ()) ++ keyword "Instance" ++ - (match snd instid with Name id -> spc () ++ pr_lident (fst instid, id) ++ spc () | - Anonymous -> mt ()) ++ + (match instid with + | (loc, Name id), l -> spc () ++ pr_plident ((loc, id),l) ++ spc () + | (_, Anonymous), _ -> mt ()) ++ pr_and_type_binders_arg sup ++ str":" ++ spc () ++ pr_constr cl ++ pr_priority pri ++ |