fix printer for negated polymorphic variables

types/sortedList.ml

@@ -153,6 +153,8 @@ module Map = struct
   let is_empty l = l = []
   let singleton x y = [ (x,y) ]
 
+  let fold f l acc = List.fold_left (fun tacc (k,v) -> f k v tacc) acc l
+
   let length = List.length
   let domain l = List.map fst l
 

types/sortedList.mli

@@ -37,6 +37,7 @@ sig
     val domain: 'a map -> t
     val restrict: 'a map -> t -> 'a map
     val empty: 'a map
+    val fold: (X.t -> 'a -> 'b -> 'b) -> 'a map -> 'b -> 'b 
     val iter: ('a -> unit) -> 'a map -> unit
     val iteri: (X.t -> 'a -> unit) -> 'a map -> unit
     val filter: (X.t -> 'a -> bool) -> 'a map -> 'a map

types/types.ml

@@ -1653,7 +1653,7 @@ struct
           let l2 =
             List.fold_left (fun acc -> function
               |(`Var v) as x ->
-                  if not(TLV.mem (x,true) tlv) then
+                  if not(TLV.mem (x,false) tlv) then
                     (Atomic (fun ppf -> Format.fprintf ppf "~ %a" Var.print x))::acc
                   else acc
               |`Atm bdd -> assert false

typing/typer.ml

@@ -1132,9 +1132,9 @@ and branches_aux loc env targ tres constr precise = function
         (* Xi_j *)
         let xj =
           let pattpolyvars =
-            List.fold_left (fun acc (_,t) ->
+            IdMap.fold (fun _ t acc ->
               Var.Set.union acc (Types.all_vars (Types.descr t))
-            ) Var.Set.empty env'.gamma 
+            ) env'.gamma Var.Set.empty
           in
           Var.Set.diff pattpolyvars env'.delta
         in