Make_access.1-T
type ('a, 'b) t
val constructor : ('b -> 'bt) -> ('a, 'b) t -> ('at, 'bt) t
A legal implementation of this function must satisfy the following properties:
constructor Fn.id = Fn.id
Fn.compose (construct f) (construct g) = construct (Fn.compose f g)