1-Inputs.Finclude Field_intf.Checked
with type bool := Impl.Boolean.var
and type field := Impl.fieldval if_ : Impl.Boolean.var -> then_:t -> else_:t -> tval scale : t -> Impl.field -> tmodule Constant : Field_intf.Constantval typ : ( t, Constant.t ) Impl.Typ.tval constant : Constant.t -> t