let add_hyp kf env h_id h_pred (obligs, p) = (obligs, map_named_prop (W.add_hyp kf env h_id h_pred) p)