Via_pure_and_lift2.Reqinclude Preface_specs.Indexed_applicative.WITH_PURE_AND_LIFT2
with type ('a, 'index) t := ('a, 'index) tinclude Preface_specs.Indexed_applicative.WITH_PURE
with type ('a, 'index) t := ('a, 'index) tval pure : 'a -> ('a, 'index) tLift a value from 'a into a new t.