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