2-Curve.Checkedtype t = varval typ : ( t, t ) Impl.Typ.tmodule Shifted : sig ... endval add_unsafe :
t ->
t ->
[ `I_thought_about_this_very_carefully of t ] Impl.Checked.tval if_ : Impl.Boolean.var -> then_:t -> else_:t -> t Impl.Checked.tval double : t -> t Impl.Checked.tval if_value : Impl.Boolean.var -> then_:t -> else_:t -> tval scale :
's Shifted.m ->
t ->
Impl.Boolean.var Bitstring_lib.Bitstring.Lsb_first.t ->
init:'s ->
's Impl.Checked.tval scale_known :
's Shifted.m ->
t ->
Impl.Boolean.var Bitstring_lib.Bitstring.Lsb_first.t ->
init:'s ->
's Impl.Checked.tval sum : 's Shifted.m -> t list -> init:'s -> 's Impl.Checked.tmodule Assert : sig ... end