let export_goal fmt x g =
  match Fol_norm.coq_normalize 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'