let fpp_goal predicate fmt x p =
  fprintf fmt "@[<hv 2>Lemma %s:@ %a.@]@." x predicate p