>>> prove $ \(s :: SString) -> sNot (s `match` nothing) Q.E.D.
>>> isNothing (sNothing :: SMaybe Integer) True >>> isNothing (sJust (literal "nope")) False
>>> sNothing :: SMaybe Integer Nothing :: SMaybe Integer