Round (tezos-protocol-alpha.Tezos_raw_protocol_alpha.Alpha

type t

val zero : t

val succ : t -> t

val pred : t -> t Tezos_protocol_environment_alpha.Error_monad.tzresult

val to_int32 : t -> int32

val of_int32 : int32 -> t Tezos_protocol_environment_alpha.Error_monad.tzresult

val of_int : int -> t Tezos_protocol_environment_alpha.Error_monad.tzresult

val to_int : t -> int Tezos_protocol_environment_alpha.Error_monad.tzresult

val to_slot : 
  t ->
  committee_size:int ->
  Slot.t Tezos_protocol_environment_alpha.Error_monad.tzresult

val pp : Tezos_protocol_environment_alpha.Format.formatter -> t -> unit

val encoding : t Tezos_protocol_environment_alpha.Data_encoding.t

include Tezos_protocol_environment_alpha.Compare.S with type t := t

val (=) : t -> t -> bool

val (<>) : t -> t -> bool

val (<) : t -> t -> bool

val (<=) : t -> t -> bool

val (>=) : t -> t -> bool

val (>) : t -> t -> bool

val compare : t -> t -> int

val equal : t -> t -> bool

val max : t -> t -> t

val min : t -> t -> t

module Map : Tezos_protocol_environment_alpha.Map.S with type key = t

type round_durations

See Round_repr.Durations.t.

val pp_round_durations : 
  Tezos_protocol_environment_alpha.Format.formatter ->
  round_durations ->
  unit

See Round_repr.Durations.pp.

val round_durations_encoding : 
  round_durations Tezos_protocol_environment_alpha.Data_encoding.t

See Round_repr.Durations.encoding.

val round_duration : round_durations -> t -> Period.t

See Round_repr.Durations.round_duration.

module Durations : sig ... end

val level_offset_of_round : 
  round_durations ->
  round:t ->
  Period.t Tezos_protocol_environment_alpha.Error_monad.tzresult

val timestamp_of_round : 
  round_durations ->
  predecessor_timestamp:Tezos_protocol_environment_alpha.Time.t ->
  predecessor_round:t ->
  round:t ->
  Tezos_protocol_environment_alpha.Time.t
    Tezos_protocol_environment_alpha.Error_monad.tzresult

val timestamp_of_another_round_same_level : 
  round_durations ->
  current_timestamp:Tezos_protocol_environment_alpha.Time.t ->
  current_round:t ->
  considered_round:t ->
  Tezos_protocol_environment_alpha.Time.t
    Tezos_protocol_environment_alpha.Error_monad.tzresult

val round_of_timestamp : 
  round_durations ->
  predecessor_timestamp:Tezos_protocol_environment_alpha.Time.t ->
  predecessor_round:t ->
  timestamp:Tezos_protocol_environment_alpha.Time.t ->
  t Tezos_protocol_environment_alpha.Error_monad.tzresult

val get : 
  context ->
  t Tezos_protocol_environment_alpha.Error_monad.tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val update : 
  context ->
  t ->
  context Tezos_protocol_environment_alpha.Error_monad.tzresult
    Tezos_protocol_environment_alpha.Lwt.t

module Internal_for_tests : sig ... end