Module `Verify.Invariant`

Parameters

I : Interface.INVARIANT

Signature

include sig ... end

val id : ('a, 'a) Function.Category.t
val (<.) : ('a, 'b) Bastet__Function.Semigroupoid.t -> ('c, 'a) Bastet__Function.Semigroupoid.t -> ('c, 'b) Bastet__Function.Semigroupoid.t
val identity : 'a I.t -> bool
val composition : ('a -> 'b) -> ('b -> 'a) -> ('b -> 'a) -> ('a -> 'b) -> 'a I.t -> bool