theorem ifpid (a p: wff): $ ifp p a a <-> a $;
p -> (ifp p a a <-> a)
~p -> (ifp p a a <-> a)
ifp p a a <-> a