fact: Fixpoint eval_hyps_aux (hyps : list hyp) (var : R) (g : Prop) := match hyps with | hh :: th => eval_hyp hh var -> eval_hyps_aux th var g | nil => g end.
imports: Coq(Reals Psatz) Flocq(Raux) Coq(List) Xreal Interval Tree Prog