fact: Definition eval_hyp (h : hyp) (var : R) := match h with | Hle true true v => (var <= eval v nil)%R | Hle true false v => (var < eval v nil)%R | Hle false true v => (eval v nil >= var)%R | Hle false false v => (eval v nil > var)%R | Hge true true u => (eval u nil <= var)%R | Hge true false u => (eval u nil < var)%R | Hge false true u => (var >= eval u nil)%R | Hge false false u => (var > eval u nil)%R | Hlele true true u v => (eval u nil <= var <= eval v nil)%R | Hlele true false u v => (eval u nil <= var < eval v nil)%R | Hlele false true u v => (eval u nil < var <= eval v nil)%R | Hlele false false u v => (eval u nil < var < eval v nil)%R | Habsle true true v => (Rabs var <= eval v nil)%R | Habsle true false v => (Rabs var < eval v nil)%R | Habsle false true v => (eval v nil >= Rabs var)%R | Habsle false false v => (eval v nil > Rabs var)%R end.
imports: Coq(Reals Psatz) Flocq(Raux) Coq(List) Xreal Interval Tree Prog