val concrete_key_info (k:concrete_key) : info
val concrete_key_info (k:concrete_key) : info
let concrete_key_info k = k.u
(* Idealizing derived authentication tokens; independent of TLS, used for TLS 1.2 Finished message payloads. *)
module MiTLS.Token.UF1CMA
open MiTLS

//TODO use this file instead of TLSPRF

open FStar.Bytes
open MiTLS.Mem

noeq type concrete_key =
  | MAC: u:info -> k:keyrepr u -> concrete_key
/
Spec.Hash.Definitions.fst.checked Spec.Agile.HMAC.fsti.checked prims.fst.checked MiTLS.Random.fst.checked MiTLS.Pkg.fst.checked MiTLS.Mem.fst.checked Hacl.Hash.Definitions.fst.checked FStar.Pervasives.fsti.checked FStar.Bytes.fsti.checked
MiTLS.Token.UF1CMA.fst
k: MiTLS.Token.UF1CMA.concrete_key -> MiTLS.Token.UF1CMA.info
MiTLS.Token.UF1CMA.concrete_key MiTLS.Token.UF1CMA.__proj__MAC__item__u MiTLS.Token.UF1CMA.info
let concrete_key_info k =
  
k.u