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}`