Scale_round (kimchi_backend.Kimchi_backend_common.Scale

module Stable : sig ... end

type 'a t = 'a Stable.Latest.t = {

accs : ('a * 'a) array;

bits : 'a array;

ss : 'a array;

base : 'a * 'a;

n_prev : 'a;

n_next : 'a;

}

val t_of_sexp : 
  'a. ( Ppx_sexp_conv_lib.Sexp.t -> 'a ) ->
  Ppx_sexp_conv_lib.Sexp.t ->
  'a t

val sexp_of_t : 
  'a. ( 'a -> Ppx_sexp_conv_lib.Sexp.t ) ->
  'a t ->
  Ppx_sexp_conv_lib.Sexp.t

val n_next : 'a t -> 'b

val n_prev : 'a t -> 'b

val base : 'a t -> 'a * 'a

val ss : 'a t -> 'a array

val bits : 'a t -> 'a array

val accs : 'a t -> ('a * 'a) array

module Fields : sig ... end

val to_hlist : 
  'a t ->
  ( unit,
    ('a * 'a) array ->
    'a array ->
    'a array ->
    ('a * 'a) ->
    'a ->
    'a ->
    unit )
    H_list.t

val of_hlist : 
  ( unit,
    ('a * 'a) array ->
    'a array ->
    'a array ->
    ('a * 'a) ->
    'a ->
    'a ->
    unit )
    H_list.t ->
  'a t

val map : 'a t -> f:( 'b -> 'c ) -> 'd t

val map2 : 'a t -> 'b t -> f:( 'c -> 'd -> 'e ) -> 'f t

val fold : 'a t -> f:( 'b list -> 'c -> 'd ) -> init:'e -> 'f