print_unambiguous_comprehensions : bool ref
# print_unambiguous_comprehensions := false;; val it : unit = () # `{x + y | x | EVEN(x)}`;; val it : term = `{x + y | EVEN x}` # print_unambiguous_comprehensions := true;; val it : unit = () # `{x + y | x | EVEN(x)}`;; val it : term = `{x + y | x | EVEN x}`