let
add_goal kf env _ g p =
Fol
.pand (
W
.translate kf env g, p)