Add a pcase pattern for maps and `map-let' based on it