Theorem intror_neg_imp | index | src |

右引入\neg\imp

theorem intror_neg_imp (A B: wff): $ A \imp \neg A \imp B $;
StepHypRefExpression
1 imp_imp_swapl
(\neg A \imp A \imp B) \imp A \imp \neg A \imp B
2 neg_elimintror_imp
\neg A \imp A \imp B
3 1, 2 ax_mp
A \imp \neg A \imp B

Axiom use

Logic (ax_mp, ax_1, ax_2, ax_3)