val is_safe : i: Model.Indexing.ae_id -> Prims.bool
let is_safe i =
  I.ideal_AEAD && I.is_ae_honest i
module Model.AEAD

module HS = FStar.HyperStack
module I = Model.Indexing
module U32 = FStar.UInt32
module U128 = FStar.UInt128
module B = LowStar.Buffer
module Spec = Spec.Agile.AEAD

#set-options "--fuel 0 --ifuel 0"

open Mem

/// Abbreviations for idealization
/// ------------------------------

// In this module, id is an AEAD id.
let id = I.ae_id

// ea = encryption alg
let alg = I.ea
/
Spec.Hash.Definitions.fst.checked Spec.Agile.AEAD.fsti.checked QUIC.Spec.fsti.checked prims.fst.checked Model.Indexing.fsti.checked Model.Helpers.fsti.checked Mem.fst.checked LowStar.Buffer.fst.checked FStar.UInt8.fsti.checked FStar.UInt32.fsti.checked FStar.UInt128.fsti.checked FStar.Seq.fst.checked FStar.Pervasives.fsti.checked FStar.HyperStack.fst.checked
Model.AEAD.fsti
i: Model.Indexing.ae_id -> Prims.bool
Model.Indexing.ae_id Prims.op_AmpAmp Model.Flags.ideal_AEAD Model.Indexing.is_ae_honest Prims.bool
let is_safe i =
  
I.ideal_AEAD && I.is_ae_honest i