fact: Fixpoint invariant_aux h l (u : integral_bound) := match h with | Piece u' v i => u = u' /\ match l with | nil => v = IBv | h :: t => match v with IBp _ => invariant_aux h t v | _ => False end end end.
imports: Coq(BinPos Reals List) Coquelicot(Coquelicot) Coquelicot Xreal Interval Priority