apply IsDeduct.mp_ (P.not_.imp_ (S.not_.imp_ P).not_)
case h1
P S : Formula
⊢ IsDeduct (∅ ∪ {S.imp_ P}) ((S.not_.imp_ P).imp_ P)
case h1.a
P S : Formula
⊢ IsDeduct (∅ ∪ {S.imp_ P}) ((P.not_.imp_ (S.not_.imp_ P).not_).imp_ ((S.not_.imp_ P).imp_ P))

case h1.a
P S : Formula
⊢ IsDeduct (∅ ∪ {S.imp_ P}) (P.not_.imp_ (S.not_.imp_ P).not_)