A -> ~(~A)
intro x.
intro f.
apply f.
assumption.