Module ConcreteLabeled.E
val src : ('a * 'b * 'c) -> 'a
val dst : ('a * 'b * 'c) -> 'c
val label : ('a * 'b * 'c) -> 'b
val create : 'a -> 'b -> 'c -> 'a * 'b * 'c
module C : sig ... end
ConcreteLabeled.E
val src : ('a * 'b * 'c) -> 'a
val dst : ('a * 'b * 'c) -> 'c
val label : ('a * 'b * 'c) -> 'b
val create : 'a -> 'b -> 'c -> 'a * 'b * 'c
module C : sig ... end