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