For_ppx.Of_variant
type ('a, 'single) t = ('a -> 'single) Variantslib.Variant.t -> 'a Optional_diff.t