(****************************************************************************  IEEE754  :  Paux  Laurent Thery  ******************************************************************************)
Require Export Digit.
Require Export Option.
Require Export Inverse_Image.
Require Export Wf_nat.
Fixpoint exp (n m : nat) {struct m} : nat :=
match m with
| O => 1
| S m' => n * exp n m'
end.

Theorem expPlus : forall n p q : nat, exp n (p + q) = exp n p * exp n q.
intros n p; elim p; simpl in |- *; auto with arith.