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