Definition rangePos (p : positive) : list positive := 
  map Pos.of_nat (rangeNat (Pos.to_nat p)).

(* Specifications: *)
Lemma ltInRange : forall m n, le n m -> n <> O -> In n (rangeNat m).
Lemma posLtInRange : forall max pos, Pos.le pos max -> In pos (rangePos max).
Lemma rangeNatLt : forall n m, In m (rangeNat n) -> lt m (S n) /\ m <> O.
Lemma rangePosPrefixFree : forall p, PrefixFree (map posToPath (rangePos p)).