Fixpoint loops (s: statement) : list statement :=
match s with
| Ssequence a b => loops a ++ loops b
| Sloop _ _ => [s]
| Sifthenelse _ a b => loops a ++ loops b
| _ => nil
end.

Lemma big_endian_integer_bytelist:
forall bl, Zlength bl = 4->
bytelist_to_intlist bl = big_endian_integer bl :: nil.