For (preface.Preface_laws.Invariant.For)

Parameters

module I : Preface_specs.INVARIANT

val invariant_1 : unit -> ('a I.t, 'a I.t) Law.t

val invariant_2 : 
  unit ->
  ('a -> 'b, ('b -> 'a) -> ('c -> 'a) -> ('a -> 'c) -> 'c I.t -> 'b I.t) Law.t