Up
Module
Same_witness_exn_5
(
A
:
S5
) (
B
:
S5
)
Parameters
A
:
S5
B
:
S5
Signature
type
t = {
eq
: 'a 'b 'c 'd 'e . (('a, 'b, 'c, 'd, 'e)
A.t
, ('a, 'b, 'c, 'd, 'e)
B.t
)
Type_equal.t
;
}
val
witness :
t