fact: Definition Compose_Decode {S' : Type} (decode : DecodeM S' T) (g : S' -> S) : DecodeM S T := fun b env => `(s, env') <- decode b env; Some (g s, env').
imports: Coq.ZArith.ZArith Coq.Strings.String Coq.Vectors.Vector Fiat.Common.DecideableEnsembles Fiat.Computation Fiat.Narcissus.Common.Specs