>>> prove $ \(s :: SString) -> sNot (s `match` nothing) Q.E.D.
>>> runTP nothingBetweenZeroAndOne Lemma: nothingBetweenZeroAndOne Q.E.D. [Proven] nothingBetweenZeroAndOne :: Ɐm ∷ Nat → Bool