1type t = [ `Alpha_blend | `Overwrite ] 2 3let to_int : t -> int = function 4 | `Alpha_blend -> 0 5 | `Overwrite -> 1