nothing :: Prism' (Maybe a) ()
>>> prove $ \(s :: SString) -> sNot (s `match` nothing) Q.E.D.
>>> Nothing `shouldSatisfy` P.nothing
>>> accept nothing Nothing True
>>> accept nothing (Just "something") False