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