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)