(*****************************************************)
(**                Division by 2                     *)
Definition half (x : N.t) := snd (half_aux x).
#[global]
Instance half_aux_wd : Proper (N.eq ==> N.eq*N.eq) half_aux.
#[global]
Instance half_wd : Proper (N.eq==>N.eq) half.

Theorem half_decrease : forall n, 0 < n -> half n < n.
Definition pow (n m : N.t) := recursion 1 (fun _ r => n*r) m.