"y (x a1 BOMB c) (x BOMB b2 d)";] [] ;;
let o4 () = problem_of (Some"x BOMB a1 c")
[ "x y BOMB d"; "x BOMB a2 c" ] [] ;;
-let o5 () = problem_of (Some"BOT") [] [] ;;
let o6 () = problem_of (Some"x BOMB") ["x y"] [];;
solve_many (List.map ((|>) ()) [
- o1; o2; o3; o4; o5; o6
+ o1; o2; o3; o4; o6
]);;
-assert_unseparable(problem_of None ["BOT"] []);;
assert_unseparable(problem_of (Some"x y") ["x BOMB"] []);;
assert_unseparable(problem_of (Some"x y z") ["x BOMB z"; "x y y"] []);;