@@ -1342,9 +1342,18 @@ pprintPTerm ppo bnd docArgs infixes = prettySe 10 bnd
13421342 prettySe p bnd (PTrue _ IsTerm) = annName unitCon $ text "()"
13431343 prettySe p bnd (PTrue _ TypeOrTerm) = text "()"
13441344 prettySe p bnd (PFalse _) = annName falseTy $ text "_|_"
1345− prettySe p bnd (PEq _ _ _ l r) =
1346− bracket p 2 . align . group $
1347− prettySe 10 bnd l <+> eq <$> group (prettySe 10 bnd r)
1345+ prettySe p bnd (PEq _ lt rt l r)
1346+ | ppopt_impl ppo =
1347+ bracket p 1 $
1348+ enclose lparen rparen eq <+>
1349+ align (group (vsep (map (prettyArgS bnd)
1350+ [PImp 0 False [] (sUN "A") lt,
1351+ PImp 0 False [] (sUN "B") rt,
1352+ PExp 0 [] (sUN "x") l,
1353+ PExp 0 [] (sUN "y") r])))
1354+ | otherwise =
1355+ bracket p 2 . align . group $
1356+ prettySe 10 bnd l <+> eq <$> group (prettySe 10 bnd r)
13481357 where eq = annName eqTy (text "=")
13491358 prettySe p bnd (PRewrite _ l r _) =
13501359 bracket p 2 $