(* "replist" is an alternative to zlist, avoids mysterious typeclass *)
Fixpoint replist' {A: Type} {d: Inhabitant A} (lo: Z) (n: nat) (al: list A) :=
match n with
| O => nil
| S n' =>  Znth lo al :: replist' (Z.succ lo) n' al
end.
Definition replist {cs: compspecs} (t: type)  (lo hi: Z) (al: list (reptype t)) :=
replist'  lo (Z.to_nat (hi-lo)) al.
(* replist t lo hi al *)

Lemma replist_elim {cs: compspecs}:
forall t lo hi al,
lo = 0 -> hi = Zlength al ->
replist t lo hi al = al.