3-Group.Checkedmodule Shifted : sig ... endval scale :
(module Shifted.S with type t = 'shifted) ->
var ->
Scalar.var ->
init:'shifted ->
'shifted Impl.Checked.tval scale_generator :
(module Shifted.S with type t = 'shifted) ->
Scalar.var ->
init:'shifted ->
'shifted Impl.Checked.t