type 'a my_record = {internal: 'a; show: 'a -> string}
type any_record = Any : 'a my_record -> any_record
let make_any r = Any r
let show (Any {internal; show}) = show internal
type 'a my_record = {internal: 'a; show: 'a -> string}
type any_record = Any : 'a my_record -> any_record
let make_any r = Any r
let show (Any {internal; show}) = show internal
internal: 'a;
show: 'a -> string
}
type any_record = {
my_record: 'a. 'a my_record
}
let show { my_record } =
my_record.show my_record.internal
internal: 'a;
show: 'a -> string
}
type any_record = {
my_record: 'a. 'a my_record
}
let show { my_record } =
my_record.show my_record.internal