Apply.LAWS
type 'a t
include Indexed_apply.LAWS with type ('a, _) t := 'a t
include Indexed_functor.LAWS with type ('a, 'index) t := 'a t
val functor_1 : unit -> ('a t, 'a t) Law.t
val functor_2 : unit -> ('a -> 'b, ('c -> 'a) -> 'c t -> 'b t) Law.t
val apply_1 : unit -> (unit t, 'a t -> 'a t) Law.t
val apply_2 : unit -> ('a t, unit t -> 'a t) Law.t