pprint universes as a direct suffix
in subscript in unicode mode
This commit is contained in:
parent
fbfbe57266
commit
82a2f92ddf
2 changed files with 12 additions and 1 deletions
|
@ -94,7 +94,7 @@ mutual
|
|||
export covering
|
||||
PrettyHL q => PrettyHL (Term q d n) where
|
||||
prettyM (TYPE l) =
|
||||
parensIfM App $ !typeD <//> !(withPrec Arg $ prettyM l)
|
||||
parensIfM App $ !typeD <+> hl Syntax !(prettyUnivSuffix l)
|
||||
prettyM (Pi qty s (S [x] t)) =
|
||||
prettyBindType [qty] x s !arrowD t
|
||||
prettyM (Lam (S x t)) =
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue