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