fact: Definition ComplementaryFormat (decode_inv : @CacheDecode store -> Prop) := forall na b ns ns', NFormat na ns ∋ (b, ns') -> NA_OK na -> forall a s s' s'', decode_inv s'' -> Equiv s s'' -> Format a s ∌ (b, s') .
imports: Fiat.Computation Fiat.Common.DecideableEnsembles Fiat.Narcissus.Common.Specs Fiat.Narcissus.Common.Notations Fiat.Narcissus.Common.ComposeOpt