fact: Fixpoint eval_hyps (hyps : list (list hyp)) (vars : list R) (g : Prop) := match hyps, vars with | hh :: th, hv :: tv => eval_hyps_aux hh hv (eval_hyps th tv g) | nil, nil => g | _, _ => True end.
imports: Coq(Reals Psatz) Flocq(Raux) Coq(List) Xreal Interval Tree Prog