Don't compare strings with ==

src/lib/CoAlgFormula.ml

@@ -1164,8 +1164,8 @@ and parse_rest symtab ts =
        ENFORCES (ls, f1)
      | "},(" -> let mvs = movelist ")]" in
        let f1 = parse_rest symtab ts in
-       NENFORCES (TList.nub (==) (ls @ List.map agent_of_move mvs), mvs, f1)
-     | _ -> A.printError mk_exn ~t ~ts "\"}]\" or \"},(\" expected but got: "
+       NENFORCES (TList.nub (fun s t -> compare s t = 0) (ls @ List.map agent_of_move mvs), mvs, f1)
+     | _ -> A.printError mk_exn ~ts "\"}]\" or \"},(\" expected"
     )
   | A.Kwd "<{" ->
     let (t,ls) = agentlist [| "}>"; "},(" |] in
@@ -1174,8 +1174,8 @@ and parse_rest symtab ts =
        ALLOWS (ls, f1)
      | "},(" -> let mvs = movelist ")>" in
        let f1 = parse_rest symtab ts in
-       NALLOWS (TList.nub (==) (ls @ List.map agent_of_move mvs), mvs, f1)
-     | _ -> A.printError mk_exn ~t ~ts "\"}>\" or \"},(\" expected but got: "
+       NALLOWS (TList.nub (fun s t -> compare s t = 0) (ls @ List.map agent_of_move mvs), mvs, f1)
+     | _ -> A.printError mk_exn ~ts "\"}>\" or \"},(\" expected"
     )
   | A.Kwd "{>=" ->
       let (n, denom, s) = boxinternals false "}" in