prettyprinting fix for Pat.Typed nested in Pat.ExtractInfix