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