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'