Delegate (mavryk-protocol-alpha.Mavryk_raw_protocol_alpha.Alpha

val check_not_mv4 : 
  Mavryk_protocol_environment_alpha.Signature.public_key_hash ->
  unit Mavryk_protocol_environment_alpha.Error_monad.tzresult

val frozen_deposits_limit : 
  context ->
  public_key_hash ->
  Tez.t option Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val set_frozen_deposits_limit : 
  context ->
  public_key_hash ->
  Tez.t option ->
  context Mavryk_protocol_environment_alpha.Lwt.t

val fold : 
  context ->
  order:[ `Sorted | `Undefined ] ->
  init:'a ->
  f:(public_key_hash -> 'a -> 'a Mavryk_protocol_environment_alpha.Lwt.t) ->
  'a Mavryk_protocol_environment_alpha.Lwt.t

val list : 
  context ->
  public_key_hash list Mavryk_protocol_environment_alpha.Lwt.t

val drain : 
  context ->
  delegate:public_key_hash ->
  destination:public_key_hash ->
  (context * bool * Tez.t * Receipt.balance_updates)
    Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val cycle_end : 
  context ->
  Cycle.t ->
  (context * Receipt.balance_updates * public_key_hash list)
    Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val already_denounced : 
  context ->
  public_key_hash ->
  Level.t ->
  Round.t ->
  Misbehaviour.kind ->
  bool Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

See Already_denounced_storage.already_denounced.

type reward_and_burn = {

reward : Tez.t;
amount_to_burn : Tez.t;

}

type punishing_amounts = {

staked : reward_and_burn;
unstaked : (Cycle.t * reward_and_burn) list;

}

val punish_double_signing : 
  context ->
  operation_hash:Mavryk_protocol_environment_alpha.Operation_hash.t ->
  Misbehaviour.t ->
  public_key_hash ->
  Level.t ->
  rewarded:public_key_hash ->
  context Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

See Delegate_slashed_deposits_storage.punish_double_signing.

type level_participation =

| Participated
| Didn't_participate

val record_baking_activity_and_pay_rewards_and_fees : 
  context ->
  payload_producer:public_key_hash ->
  block_producer:public_key_hash ->
  baking_reward:Tez.t ->
  reward_bonus:Tez.t option ->
  (context * Receipt.balance_updates)
    Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val record_attesting_participation : 
  context ->
  delegate:public_key_hash ->
  participation:level_participation ->
  attesting_power:int ->
  context Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val current_frozen_deposits : 
  context ->
  public_key_hash ->
  Tez.t Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val initial_frozen_deposits : 
  context ->
  public_key_hash ->
  Tez.t Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val delegated_contracts : 
  context ->
  public_key_hash ->
  Contract.t list Mavryk_protocol_environment_alpha.Lwt.t

See Contract_delegate_storage.delegated_contracts.

val registered : 
  context ->
  public_key_hash ->
  bool Mavryk_protocol_environment_alpha.Lwt.t

val deactivated : 
  context ->
  public_key_hash ->
  bool Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val is_forbidden_delegate : t -> public_key_hash -> bool

See Forbidden_delegates_storage.is_forbidden.

val last_cycle_before_deactivation : 
  context ->
  public_key_hash ->
  Cycle.t Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

See Delegate_activation_storage.last_cycle_before_deactivation.

module Consensus_key : sig ... end

val prepare_stake_distribution : 
  context ->
  context Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

See Stake_storage.prepare_stake_distribution.

module Rewards : sig ... end

module Staking_parameters : sig ... end

module Shared_stake : sig ... end

module For_RPC : sig ... end

The functions in this module are considered too costly to be used in the protocol. They are meant to be used only to answer RPC calls.