fact: Definition ComplementaryDecoder (decode : @DecodeM A B store) (decode_inv : @CacheDecode store -> Prop) := forall na b ns ns', NA_OK na -> NFormat na ns ∋ (b, ns') -> forall s b', decode_inv s -> decode (mappend b b') s = None.
imports: Fiat.Computation Fiat.Common.DecideableEnsembles Fiat.Narcissus.Common.Specs Fiat.Narcissus.Common.Notations Fiat.Narcissus.Common.ComposeOpt