val serverHelloExtension_e_psk_key_exchange_modes_validator: LL.validator serverHelloExtension_e_psk_key_exchange_modes_parser
val serverHelloExtension_e_psk_key_exchange_modes_validator: LL.validator serverHelloExtension_e_psk_key_exchange_modes_parser
let serverHelloExtension_e_psk_key_exchange_modes_validator =
  LL.validate_bounded_vldata 0 65535 (LL.validate_false ()) ()
module MiTLS.Parsers.ServerHelloExtension_e_psk_key_exchange_modes

(* This file has been automatically generated by EverParse. *)
open FStar.Bytes
module U8 = FStar.UInt8
module U16 = FStar.UInt16
module U32 = FStar.UInt32
module U64 = FStar.UInt64
module LP = LowParse.Spec
module LT = LowParse.TacLib
module LS = LowParse.SLow
module LSZ = LowParse.SLow
module LPI = LowParse.Spec.AllIntegers
module LL = LowParse.Low
module L = FStar.List.Tot
module B = LowStar.Buffer
module BY = FStar.Bytes
module HS = FStar.HyperStack
module HST = FStar.HyperStack.ST

#reset-options "--using_facts_from '* -FStar.Tactics -FStar.Reflection' --z3rlimit 16 --z3cliopt smt.arith.nl=false --max_fuel 2 --max_ifuel 2"

let serverHelloExtension_e_psk_key_exchange_modes_parser =
  LP.parse_bounded_vldata 0 65535 LP.parse_false

let serverHelloExtension_e_psk_key_exchange_modes_serializer =
  LP.serialize_bounded_vldata 0 65535 LP.serialize_false

let serverHelloExtension_e_psk_key_exchange_modes_bytesize (x:serverHelloExtension_e_psk_key_exchange_modes) : GTot nat = Seq.length (serverHelloExtension_e_psk_key_exchange_modes_serializer x)

let serverHelloExtension_e_psk_key_exchange_modes_bytesize_eq x = ()

let serverHelloExtension_e_psk_key_exchange_modes_parser32 =
  LS.parse32_bounded_vldata 0 0ul 65535 65535ul LS.parse32_false

let serverHelloExtension_e_psk_key_exchange_modes_serializer32 =
  LS.serialize32_bounded_vldata 0 65535 LS.serialize32_false

let serverHelloExtension_e_psk_key_exchange_modes_size32 =
  LSZ.size32_bounded_vldata 0 65535 LSZ.size32_false 2ul
/
prims.fst.checked LowStar.Buffer.fst.checked LowParse.TacLib.fst.checked LowParse.Spec.AllIntegers.fst.checked LowParse.Spec.fst.checked LowParse.SLow.fst.checked LowParse.Low.fst.checked FStar.UInt8.fsti.checked FStar.UInt64.fsti.checked FStar.UInt32.fsti.checked FStar.UInt16.fsti.checked FStar.Seq.fst.checked FStar.Pervasives.fsti.checked FStar.List.Tot.fst.checked FStar.HyperStack.ST.fsti.checked FStar.HyperStack.fst.checked FStar.Bytes.fsti.checked
MiTLS.Parsers.ServerHelloExtension_e_psk_key_exchange_modes.fst
LowParse.Low.Base.validator MiTLS.Parsers.ServerHelloExtension_e_psk_key_exchange_modes.serverHelloExtension_e_psk_key_exchange_modes_parser

LowParse.Low.VLData.validate_bounded_vldata LowParse.Spec.Combinators.parse_false_kind Prims.squash Prims.l_False LowParse.Spec.Combinators.parse_false LowParse.Low.Combinators.validate_false
let serverHelloExtension_e_psk_key_exchange_modes_validator =
  
LL.validate_bounded_vldata 0 65535 (LL.validate_false ()) ()