IFC : conv -> conv -> conv -> conv
> IFC (RATOR_CONV BETA_CONV) BETA_CONV NO_CONV ``(\x y. x ==> y) T F``; val it = |- T ==> F : thm
> IFC ALL_CONV BETA_CONV (RATOR_CONV BETA_CONV) ``(\x y. x ==> y) T F``; Exception - BETA_CONV: not a beta redex
> IFC NO_CONV BETA_CONV (RATOR_CONV BETA_CONV) ``(\x y. x ==> y) T F``; val it = |- (\y. T ==> y) F : thm