Adaptive_issuance_services (mavryk-protocol-alpha.Mavryk_raw_protocol_alpha.Adaptive_issuance

type expected_rewards = {

cycle : Alpha_context.Cycle.t;
baking_reward_fixed_portion : Alpha_context.Tez.t;
baking_reward_bonus_per_slot : Alpha_context.Tez.t;
attesting_reward_per_slot : Alpha_context.Tez.t;
seed_nonce_revelation_tip : Alpha_context.Tez.t;
vdf_revelation_tip : Alpha_context.Tez.t;

}

val expected_rewards_encoding : 
  expected_rewards Mavryk_protocol_environment_alpha.Data_encoding.t

val total_supply : 
  'a Mavryk_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.Tez.t
    Mavryk_protocol_environment_alpha.Error_monad.shell_tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val total_frozen_stake : 
  'a Mavryk_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.Tez.t
    Mavryk_protocol_environment_alpha.Error_monad.shell_tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val current_yearly_rate : 
  'a Mavryk_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  string Mavryk_protocol_environment_alpha.Error_monad.shell_tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val current_yearly_rate_exact : 
  'a Mavryk_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Mavryk_protocol_environment_alpha.Q.t
    Mavryk_protocol_environment_alpha.Error_monad.shell_tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val current_yearly_rate_details : 
  'a Mavryk_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  (Mavryk_protocol_environment_alpha.Q.t
   * Mavryk_protocol_environment_alpha.Q.t)
    Mavryk_protocol_environment_alpha.Error_monad.shell_tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val current_issuance_per_minute : 
  'a Mavryk_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.Tez.t
    Mavryk_protocol_environment_alpha.Error_monad.shell_tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val launch_cycle : 
  'a Mavryk_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  Alpha_context.Cycle.t option
    Mavryk_protocol_environment_alpha.Error_monad.shell_tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val expected_issuance : 
  'a Mavryk_protocol_environment_alpha.RPC_context.simple ->
  'a ->
  expected_rewards list
    Mavryk_protocol_environment_alpha.Error_monad.shell_tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

Returns the list of expected issued tez for the current cycle and for the next consensus_rights_delay cycles.

val register : unit -> unit