Closest2Prop

# Library Closest2Prop

`Require Export ClosestProp.
Section F2.
Variable b : Fbound.
Variable precision : nat.
Let radix := 2%Z.
Coercion Local FtoRradix := FtoR radix.
Theorem TwoMoreThanOne : (1 < radix)%Z.
Hint Resolve TwoMoreThanOne.
Hypothesis precisionNotZero : 1 < precision.
Hypothesis pGivesBound : Zpos (vNum b) = Zpower_nat radix precision.
Theorem FevenNormMin : Even (nNormMin 2%nat precision).
Theorem EvenFNSuccFNSuccMid :
forall p : float,
Fbounded b p ->
FNeven b radix precision p ->
Fminus radix (FNSucc b radix precision (FNSucc b radix precision p))
(FNSucc b radix precision p) = Fminus radix (FNSucc b radix precision p) p
:>R.
Theorem AScal2 :
forall p : float, Float (Fnum p) (Fexp p + 1%nat) = (radix * p)%R :>R.
End F2.
Hint Resolve FevenNormMin: float.
`