fix the type of Map.foldlWithKey, such that it can be used with a unique state

src/libraries/OS-Independent/Data/Map.dcl

@@ -109,7 +109,7 @@ del :: !k !(Map k a) -> Map k a | < k
 delU :: !a !.(Map a b) -> u:(!v:(Maybe b), !Map a b) | == a & < a, [u <= v] // !k !w:(Map k u:v) -> x:(Maybe u:v, !y:(Map k u:v)) | == k & < k, [ w y <= u, x <= y, w <= y]
 
 foldrWithKey :: !(k v u:a -> u:a) !u:a !(Map k v) -> u:a
-foldlWithKey :: !(u:a k v -> u:a) !u:a !(Map k v) -> u:a
+foldlWithKey :: !(.a -> .(k -> .(v -> .a))) !.a !(Map k v) -> .a
 
 /**
  * @type (v a -> a) a (Map k v) -> a

src/libraries/OS-Independent/Data/Map.icl

@@ -1225,7 +1225,7 @@ foldrWithKey` f z` (Bin _ kx x l r) = foldrWithKey` f (f kx x (foldrWithKey` f z
 //
 // > let f result k a = result ++ "(" ++ (show k) ++ ":" ++ a ++ ")"
 // > foldlWithKey f "Map: " (fromList [(5,"a"), (3,"b")]) == "Map: (3:b)(5:a)"
-foldlWithKey :: !(u:a k v -> u:a) !u:a !(Map k v) -> u:a
+foldlWithKey :: !(.a -> .(k -> .(v -> .a))) !.a !(Map k v) -> .a
 foldlWithKey f z` Tip              = z`
 foldlWithKey f z` (Bin _ kx x l r) = foldlWithKey f (f (foldlWithKey f z` l) kx x) r