Poly (mina_base.Mina_base.Zkapp

module Stable : sig ... end

type ('account, 'protocol_state, 'other, 'pk) t =
  ( 'account, 'protocol_state, 'other, 'pk ) Stable.Latest.t =
  {

self_predicate : 'account;

other : 'other;

fee_payer : 'pk;

protocol_state_predicate : 'protocol_state;

}

val to_yojson : 
  'account 'protocol_state 'other 'pk. ( 'account -> Yojson.Safe.t ) ->
  ( 'protocol_state -> Yojson.Safe.t ) ->
  ( 'other -> Yojson.Safe.t ) ->
  ( 'pk -> Yojson.Safe.t ) ->
  ( 'account, 'protocol_state, 'other, 'pk ) t ->
  Yojson.Safe.t

val of_yojson : 
  'account 'protocol_state 'other 'pk. ( Yojson.Safe.t ->
                                         'account
                                           Ppx_deriving_yojson_runtime.error_or ) ->
  ( Yojson.Safe.t -> 'protocol_state Ppx_deriving_yojson_runtime.error_or ) ->
  ( Yojson.Safe.t -> 'other Ppx_deriving_yojson_runtime.error_or ) ->
  ( Yojson.Safe.t -> 'pk Ppx_deriving_yojson_runtime.error_or ) ->
  Yojson.Safe.t ->
  ( 'account, 'protocol_state, 'other, 'pk ) t
    Ppx_deriving_yojson_runtime.error_or

val _ : 
  ( Yojson.Safe.t -> 'a Ppx_deriving_yojson_runtime.error_or ) ->
  ( Yojson.Safe.t -> 'b Ppx_deriving_yojson_runtime.error_or ) ->
  ( Yojson.Safe.t -> 'c Ppx_deriving_yojson_runtime.error_or ) ->
  ( Yojson.Safe.t -> 'd Ppx_deriving_yojson_runtime.error_or ) ->
  Yojson.Safe.t ->
  ( 'a, 'b, 'c, 'd ) t Ppx_deriving_yojson_runtime.error_or

val to_hlist : 
  ( 'account, 'protocol_state, 'other, 'pk ) t ->
  ( unit, 'account -> 'other -> 'pk -> 'protocol_state -> unit ) H_list.t

val of_hlist : 
  ( unit, 'account -> 'other -> 'pk -> 'protocol_state -> unit ) H_list.t ->
  ( 'account, 'protocol_state, 'other, 'pk ) t

val t_of_sexp : 
  'account 'protocol_state 'other 'pk. ( Ppx_sexp_conv_lib.Sexp.t -> 'account ) ->
  ( Ppx_sexp_conv_lib.Sexp.t -> 'protocol_state ) ->
  ( Ppx_sexp_conv_lib.Sexp.t -> 'other ) ->
  ( Ppx_sexp_conv_lib.Sexp.t -> 'pk ) ->
  Ppx_sexp_conv_lib.Sexp.t ->
  ( 'account, 'protocol_state, 'other, 'pk ) t

val sexp_of_t : 
  'account 'protocol_state 'other 'pk. ( 'account -> Ppx_sexp_conv_lib.Sexp.t ) ->
  ( 'protocol_state -> Ppx_sexp_conv_lib.Sexp.t ) ->
  ( 'other -> Ppx_sexp_conv_lib.Sexp.t ) ->
  ( 'pk -> Ppx_sexp_conv_lib.Sexp.t ) ->
  ( 'account, 'protocol_state, 'other, 'pk ) t ->
  Ppx_sexp_conv_lib.Sexp.t

val equal : 
  'account 'protocol_state 'other 'pk. ( 'account -> 'account -> bool ) ->
  ( 'protocol_state -> 'protocol_state -> bool ) ->
  ( 'other -> 'other -> bool ) ->
  ( 'pk -> 'pk -> bool ) ->
  ( 'account, 'protocol_state, 'other, 'pk ) t ->
  ( 'account, 'protocol_state, 'other, 'pk ) t ->
  bool

val hash_fold_t : 
  'account 'protocol_state 'other 'pk. ( Ppx_hash_lib.Std.Hash.state ->
                                         'account ->
                                         Ppx_hash_lib.Std.Hash.state ) ->
  ( Ppx_hash_lib.Std.Hash.state ->
    'protocol_state ->
    Ppx_hash_lib.Std.Hash.state ) ->
  ( Ppx_hash_lib.Std.Hash.state -> 'other -> Ppx_hash_lib.Std.Hash.state ) ->
  ( Ppx_hash_lib.Std.Hash.state -> 'pk -> Ppx_hash_lib.Std.Hash.state ) ->
  Ppx_hash_lib.Std.Hash.state ->
  ( 'account, 'protocol_state, 'other, 'pk ) t ->
  Ppx_hash_lib.Std.Hash.state

val compare : 
  'account 'protocol_state 'other 'pk. ( 'account -> 'account -> int ) ->
  ( 'protocol_state -> 'protocol_state -> int ) ->
  ( 'other -> 'other -> int ) ->
  ( 'pk -> 'pk -> int ) ->
  ( 'account, 'protocol_state, 'other, 'pk ) t ->
  ( 'account, 'protocol_state, 'other, 'pk ) t ->
  int

val typ : 
  ( unit,
    unit,
    'a ->
    'b ->
    'c ->
    'd ->
    unit,
    'e ->
    'f ->
    'g ->
    'h ->
    unit,
    Backend.Tick.Field.t,
    ( unit, Backend.Tick.Field.t ) Snarky_backendless.Checked_runner.Simple.t )
    Snarky_backendless.Typ.Data_spec0.data_spec ->
  ( ( 'a, 'd, 'b, 'c ) Stable.Latest.t, ( 'e, 'h, 'f, 'g ) Stable.Latest.t )
    Snark_params.Tick.Typ.t