(*6.7*)

Fixpoint lendian (l:list byte): Z :=
  match l with
    nil => 0
  | h::t => Byte.unsigned h + 2^8 * lendian t
  end.

(* Specifications: *)
Lemma lendian_app: forall l1 l2, lendian (l1++l2) = lendian l1 + 2^(8*Zlength l1) * lendian l2.
Lemma lendian_range: forall l, 0 <= lendian l < 2^(8*Zlength l).