module FunctionContracts:Wprop.Indexed2
(
Dashtbl.Default_key_marshaler
(
Kernel_function
)
)
(
Dashtbl.Default_key_marshaler
(
Datatype.String
)
)
(
sig
typekey =
Db_types.kernel_function * string
val size :int
val kind :[> `Correctness ]
val dependencies :State.t list
val state_name :Kernel_function.t * string -> string
val state_proxy :Db_types.kernel_function * 'a ->
'b -> (string * Property.identified_property list) optionend
)
module P:Datatype.Pair_with_collections
(
Key1
)
(
Key2
)
(
sig
val module_name :string
end
)
module I:Wprop.Indexed
(
P
)
(
Info
)
typekey1 =
Key1.t
typekey2 =
Key2.t
val state : Key1.t -> Key2.t -> State.t
val property : Key1.t -> Key2.t -> Property.identified_property