module OUnitPropList:Property list.sig..end
typet =(int, unit -> unit) Hashtbl.t
val create : unit -> ('a, 'b) Hashtbl.tval new_property : 'a ->
((int, unit -> unit) Hashtbl.t -> 'a -> unit) *
((int, unit -> 'b) Hashtbl.t -> 'a)