proposition: Lemma float2_shift_p1 : forall e m : Z, Float2 m (e + 1) = Float2 (m * 2) e :>R.
proof: Proof. intros e m. unfold float2R, F2R. simpl. rewrite bpow_plus. rewrite mult_IZR. change (bpow radix2 1) with 2%R. ring. Qed.
imports: Coq(ZArith Reals) Flocq(Zaux Raux Defs Digits Float_prop Generic_fmt FIX FLX) Gappa_definitions Gappa_dyadic