proposition: Theorem F2R_plus : forall f1 f2 : float beta, F2R (Fplus f1 f2) = (F2R f1 + F2R f2)%R.
proof: Proof. intros f1 f2. unfold Fplus. generalize (Falign_spec f1 f2). destruct (Falign f1 f2) as ((m1, m2), e). intros (H1, H2). rewrite H1, H2. unfold F2R. simpl. rewrite plus_IZR. apply Rmult_plus_distr_r. Qed.
imports: Coq(ZArith Reals Lia) Zaux Raux Defs Float_prop