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