module Same_witness_exn_1: functor (A : S1) -> functor (B : S1) -> sig .. end
functor (
A
:
S1
) ->
B
sig
end
type t = {
eq : 'a. ('a A.t, 'a B.t) Type_equal.t;
'a. ('a A.t, 'a B.t) Type_equal.t
val witness : t
t