let get_hyp_goal annots = let l = annots.p_both in let l = if new_loops then l @ annots.p_inv else l in let l = List.filter (fun (goal, _p) -> goal) l in List.map (fun (_,p) -> p) l