fact: Fixpoint merge_hyps (prec : I.precision) (hyps : list (list hyp)) := match hyps with | h :: t => cons (merge_hyps_aux prec h I.whole) (merge_hyps prec t) | nil => nil end.
imports: Coq(Reals Psatz) Flocq(Raux) Coq(List) Xreal Interval Tree Prog