let ltype_array_elem lty = match lty with
  | Ctype t -> Ctype (ctype_array_elem t)
  | _ -> Wp_parameters.abort "logic array type ?"