Parameter Make_shared.C

type 'a t
val map : 'a t -> ('a -> 'b) -> 'b t