Module Mavryk_protocol_environment_alpha.Vdf

val form_size_bytes : int
val discriminant_size_bytes : int
type discriminant
type challenge
type result
type proof
type difficulty = Int64.t
val discriminant_to_bytes : discriminant -> bytes
val discriminant_of_bytes_opt : bytes -> discriminant option
val challenge_to_bytes : challenge -> bytes
val challenge_of_bytes_opt : bytes -> challenge option
val result_to_bytes : result -> bytes
val result_of_bytes_opt : bytes -> result option
val proof_to_bytes : proof -> bytes
val proof_of_bytes_opt : bytes -> proof option
val generate_discriminant : ?seed:Bytes.t -> int -> discriminant
val generate_challenge : discriminant -> Bytes.t -> challenge
val verify : discriminant -> challenge -> difficulty -> result -> proof -> bool