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