For (preface.Preface_laws.Indexed

Parameters

module A : Preface_specs.INDEXED_ALT

include Indexed_functor.LAWS with type ('a, 'index) t := ('a, 'index) A.t

val functor_1 : unit -> (('a, 'index) A.t, ('a, 'index) A.t) Law.t

val functor_2 : 
  unit ->
  ('a -> 'b, ('c -> 'a) -> ('c, 'index) A.t -> ('b, 'index) A.t) Law.t

val alt_1 : 
  unit ->
  (('a, 'index) A.t, ('a, 'index) A.t -> ('a, 'index) A.t -> ('a, 'index) A.t)
    Law.t

val alt_2 : 
  unit ->
  ('a -> 'b, ('a, 'index) A.t -> ('a, 'index) A.t -> ('b, 'index) A.t) Law.t