Module Type AES_LL_Spec_Type.
(* arr: list of 4 bytes *)
Parameter get_uint32_le: list Z -> Z -> int.

Axiom get_uint32_le_def: get_uint32_le = fun (arr: list Z) (i: Z) =>
(Int.or (Int.or (Int.or
(Int.repr (Znth  i    arr 0))
(Int.shl (Int.repr (Znth (i+1) arr 0)) (Int.repr  8)))
(Int.shl (Int.repr (Znth (i+2) arr 0)) (Int.repr 16)))
(Int.shl (Int.repr (Znth (i+3) arr 0)) (Int.repr 24))).