sig   type wto = Cil_types.stmt Wto.partition   module WTO :     sig       type t = wto       val ty : t Type.t       val name : string       val descr : t Descr.t       val packed_descr : Structural_descr.pack       val reprs : t list       val equal : t -> t -> bool       val compare : t -> t -> int       val hash : t -> int       val pretty_code : Format.formatter -> t -> unit       val internal_pretty_code :         Type.precedence -> Format.formatter -> t -> unit       val pretty : Format.formatter -> t -> unit       val varname : t -> string       val mem_project : (Project_skeleton.t -> bool) -> t -> bool       val copy : t -> t     end   val wto_of_kf : Cil_types.kernel_function -> Wto_statement.wto   type wto_index = Cil_types.stmt list   module WTOIndex :     sig       type t = wto_index       val ty : t Type.t       val name : string       val descr : t Descr.t       val packed_descr : Structural_descr.pack       val reprs : t list       val equal : t -> t -> bool       val compare : t -> t -> int       val hash : t -> int       val pretty_code : Format.formatter -> t -> unit       val internal_pretty_code :         Type.precedence -> Format.formatter -> t -> unit       val pretty : Format.formatter -> t -> unit       val varname : t -> string       val mem_project : (Project_skeleton.t -> bool) -> t -> bool       val copy : t -> t     end   val wto_index_of_stmt : Cil_types.stmt -> Wto_statement.wto_index   val wto_index_diff :     Wto_statement.wto_index ->     Wto_statement.wto_index -> Cil_types.stmt list * Cil_types.stmt list   val wto_index_diff_of_stmt :     Cil_types.stmt ->     Cil_types.stmt -> Cil_types.stmt list * Cil_types.stmt list end