let add_hyp kf env _ h p = Fol.pimplies (W.translate kf env h, p)