eorem a -> Proof a -> Proof a
matchMP imp ant = matchMPInst imp ant pure

-- | ⊢ ¬P → P → ⊥
lemma1 :: Th
matchMP :: (Ord a, Show a) => Theorem a -> Proof a -> Proof a
matchMP imp ant = matchMPInst imp ant pure
matchMP imp ant = matchMPInst imp ant pure