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