let export_goal fmt g p =
        try
          (* translate all the [decl] before printing because it might fail ! *)
          E.export_goal fmt g (fpred_of_pred p)
        with Wp_error.Error(model, msg) ->
          Wp_parameters.warning
            "Failed to export from model %s to WHY because %s. Ignored:@.%t"
            model msg (fun fmt -> F.pp_goal fmt g p) ;
          E.export_goal fmt g Fol.Pfalse