Module Logical.Type
module T : sig ... end
include sig ... end
type comparator_witness
= Base__Comparator.Make(T).comparator_witness
val comparator : (T.t, comparator_witness) Base__Comparator.comparator
type state
= (variable_name, t, Base.String.comparator_witness) Base.Map.t
type goal
= state -> state option Base.Sequence.t