# let string_is_empty s = (s = "") ;;
val string_is_empty : string -> bool = <fun>

# string_is_empty str ;;
- : bool = false

# string_is_empty "" ;;
- : bool = true