Theorem impsingle-step22

Derivation of impsingle-step22 from [ax-mp] and impsingle. It is used as a lemma in proofs of imim1 and peirce from impsingle. It is Step 22 in Lukasiewicz, where it appears as 'Cpp' using parenthesis-free prefix notation. (Contributed by Larry Lesyna and Jeffrey P. Machado, 2-Aug-2023.) (Proof modification is discouraged.) (New usage is discouraged.)

Conclusion
\( \vdash \varphi \rightarrow \varphi \)
Proof
l0
impsingle-step4
\( \vdash ((\varphi \rightarrow \varphi) \rightarrow \varphi) \rightarrow \varphi \rightarrow \varphi \)
l1
impsingle-step4
\( \vdash ((\varphi \rightarrow \varphi) \rightarrow \varphi) \rightarrow \varphi \rightarrow \varphi \)
l2
impsingle-step4
\( \vdash ((\varphi \rightarrow \varphi) \rightarrow \varphi) \rightarrow (\varphi \rightarrow \varphi) \rightarrow \varphi \)
impsingle
\( \vdash (((\varphi \rightarrow \varphi) \rightarrow \varphi) \rightarrow (\varphi \rightarrow \varphi) \rightarrow \varphi) \rightarrow (((\varphi \rightarrow \varphi) \rightarrow \varphi) \rightarrow \varphi \rightarrow \varphi) \rightarrow (((\varphi \rightarrow \varphi) \rightarrow \varphi) \rightarrow \varphi \rightarrow \varphi) \rightarrow \varphi \rightarrow \varphi \)
ax-mp l2 _
\( \vdash (((\varphi \rightarrow \varphi) \rightarrow \varphi) \rightarrow \varphi \rightarrow \varphi) \rightarrow (((\varphi \rightarrow \varphi) \rightarrow \varphi) \rightarrow \varphi \rightarrow \varphi) \rightarrow \varphi \rightarrow \varphi \)
ax-mp l1 _
\( \vdash (((\varphi \rightarrow \varphi) \rightarrow \varphi) \rightarrow \varphi \rightarrow \varphi) \rightarrow \varphi \rightarrow \varphi \)
ax-mp l0 _