Fixpoint Qpositive_inv (w : Qpositive) : Qpositive :=
  match w with
  | One => One
  | nR w' => dL (Qpositive_inv w')
  | dL w' => nR (Qpositive_inv w')
  end.

Theorem interp_non_zero : forall w : Qpositive, exists p : nat, (exists q : nat, Qpositive_i w = (S p, S q)).