theorem con2 (a b: wff): $ (a -> ~b) -> b -> ~a $;
~~a -> a
(a -> ~b) -> a -> ~b
(a -> ~b) -> ~~a -> ~b
(a -> ~b) -> b -> ~a