sig   type identity = { ty : string option; name : string option; }   type t = Libvirt.Event.Graphics_subject.identity list   val to_string : Libvirt.Event.Graphics_subject.t -> string end