let export_goal fmt x g = match Fol_norm.compile g with | Pred p' -> fpp_goal export_pred fmt x p' | Conv (defs,p') -> fpp_lf_let export_tau export_term fmt defs ; fpp_goal export_pred fmt x p'