let
value_to_bool = of_value_w bool_option