Theorem anl | index | src |

theorem anl (a b: wff): $ a /\ b -> a $;
StepHypRefExpression
1 con1
(~a -> a -> ~b) -> ~(a -> ~b) -> a
2 1 conv an
(~a -> a -> ~b) -> a /\ b -> a
3 absurd
~a -> a -> ~b
4 2, 3 ax_mp
a /\ b -> a

Axiom use

axs_prop_calc (ax_1, ax_2, ax_3, ax_mp)