let rec do_hypothesis env item idps wp = match idps with | [] -> wp | (_id,h)::hs -> F.p_implies (do_prop env item h) (do_hypothesis env item hs wp)