>>> prove $ \c -> c `match` whiteSpace .=> isSpaceL1 c Q.E.D.
>>> prove $ \c -> c `match` whiteSpaceNoNewLine .=> c `match` whiteSpace .&& c ./= literal '\n' Q.E.D.