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