Tock.Enumerablemodule M : sig ... endtype var = Full.Internal_Basic.Field.Var.tval typ : ( var, M.t ) Full.Internal_Basic.Typ.tval to_bits : M.t -> bool listval assert_equal : var -> var -> unit Full.Internal_Basic.Checked.tval var_to_bits :
var ->
Full.Internal_Basic.Boolean.var list Full.Internal_Basic.Checked.tval if_ :
Full.Internal_Basic.Boolean.var ->
then_:var ->
else_:var ->
var Full.Internal_Basic.Checked.tval (=) :
var ->
var ->
Full.Internal_Basic.Boolean.var Full.Internal_Basic.Checked.t