Same_witness_exn_2.2-B
type ('a, 'b) t
val typename_of_t : 'a typename -> 'b typename -> ('a, 'b) t typename