fact: Definition clamp_upper (v : Basic.float Basic.radix2) (h : Z) := match v with | Basic.Fzero => 0%Z | Basic.Fnan => h | Basic.Float true _ _ => 0%Z | Basic.Float false m e => let v:= match e with | Z0 => Zpos m | Zpos e' => Z.shiftl (Zpos m) e | Zneg e' => Z.shiftl (Zpos m + (Z.shiftl 1 (Zpos e')) - 1) e end 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