EQF_ELIM : thm -> thm
A |- tm <=> F --------------- EQF_ELIM A |- ~tm
# EQF_ELIM(REFL `F`);; val it : thm = |- ~F