Typename.Same_witness_exn_4
module A : S4
module B : S4
type t = {
eq : a b c d. (('a, 'b, 'c, 'd) A.t, ('a, 'b, 'c, 'd) B.t) Type_equal.t;
}
val witness : t