let notContainsTuple (b,g,f) list = not (List.exists ((=) b) list)

let notContainsList x list = not (List.exists ((=) x) list)

let adjacentBoards = List.filter (fun elem ->
                                                 (notContainsList elem CS) && (notContainsTuple elem removedCurrent)) (neighbors currentBoard zeroInd) // it seems from this it sees CS as a ((int[,]*int*int)*'a*b) even tho it should just be a int[,] list. and it sees (neighbors ...) as ('a*'b*'c) when it should be a int[,] list aswell