B : S2
A : S2
type t
=
{
eq : a b. (('a, 'b) A.t, ('a, 'b) B.t) Typerep_lib.Type_equal.t;
}
val witness : t