proposition: Theorem MKnuth2 : forall p q : float, (Rabs q <= Rabs p)%R -> Fbounded b p -> Fbounded b q -> Iplus (Iminus p (Iminus (Iplus p q) (Iminus (Iplus p q) p))) (Iminus q (Iminus (Iplus p q) p)) = (p + q - Iplus p q)%R :>R.
proof: Proof. intros p q H' H'0 H'1. apply MKnuth; auto. apply (MDekker b precision); auto. Qed.
imports: Reals ZArith List PeanoNat Psatz