(** Lift inject_nat and absolu to natlist and Zlist. *)

(* Specifications: *)
Lemma abs_inj_list :
forall l : natlist, map _ _ Zabs_nat (map _ _ Z_of_nat l) = l.
Lemma inj_abs_pos_list :
forall l : Zlist, allPos l -> map _ _ Z_of_nat (map _ _ Zabs_nat l) = l.
Lemma inlist_inj_abs_pos_list :
forall (q : nat) (l : Zlist),
allPos l -> inlist nat q (map Z nat Zabs_nat l) -> inlist Z (Z_of_nat q) l.