fact: Definition clamp_lower (v : Basic.float Basic.radix2) (h : Z) := match v with | Basic.Fzero => 0%Z | Basic.Fnan => 0%Z | Basic.Float true _ _ => 0%Z | Basic.Float false m e => let v := Z.shiftl (Zpos m) e in if Z.leb h v then h else v end.
imports: Coq(Reals List) Sig Generic_proof Interval_helper Xreal Interval Tree Reify Prog