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