Up

module Type_equal

: sig

runtime witnes of type equality this is a reduced version of Core.Std.Type_equal.

#
type ('a, 'b) t =
# | T : ('a, 'a) t
#
type ('a, 'b) equal = ('a, 'b) t
#
val conv : ('a, 'b) t -> 'a -> 'b

type-safe conversion between equal types

#
val refl : ('a, 'a) t

type equality is reflexive

#
module Lift : functor (X : sig
#
type 'a t
end
) -> sig

needed in some cases even though t is exported and is a gadt

#
val lift : ('a, 'b) t -> ('a X.t, 'b X.t) t
end
end