let add_as_hyp env hyps goals =
    let add goals h =
      let f p () =
        Datalib.Collector.add_depend h.g_id "hypothesis";
        W.add_as_hyp env h.g_prop p
      in
      let mk_g g = make_goal g.g_id (f g.g_prop) [g.g_descr] in
      List.map mk_g goals
    in List.fold_left add goals hyps