let ctype_array_elem tarray =
  match tarray with
    | TArray (ty_elem, _, _, _) -> ty_elem
    | _ -> Wp_parameters.abort "type of array element but not an array"