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