pprCoreExprShort (Case _expr var _ty _alts)
 = text "case of" <+> ppr var
pprCoreExprShort (Case _expr var _ty _alts)
 = text "case of" <+> ppr var
pprCoreExprShort (Case _expr var _ty _alts)
 = text "case of" <+> ppr var