proposition: Theorem Fopp_Fminus : forall p q : float, Fopp (Fminus p q) = Fminus q p.
proof: Proof. intros p q; case p; case q; unfold Fopp, Fminus, Fplus in |- *; simpl in |- *; auto. intros n1 e1 n2 e2; apply floatEq; simpl in |- *; repeat rewrite (Z.min_comm e2 e1); repeat rewrite Zopp_mult_distr_l_reverse; auto with zarith. Qed.
imports: Reals ZArith List PeanoNat Psatz