Definition Zdigits2 n :=
  match n with
  | Z0 => n
  | Zpos p => Zpos (digits2_pos p)
  | Zneg p => Zpos (digits2_pos p)
  end.

(* Specifications: *)
Lemma Zdigits2_Zdigits : forall n, Zdigits2 n = Zdigits radix2 n.
Lemma Zdigits2_Zdigits : forall n, Zdigits2 n = Zdigits radix2 n.