fact: Definition Fix_Encode (measure : S -> nat) (encode_body : EncodeM S T -> EncodeM S T) : EncodeM S T := fun s env => FueledFix' encode_body (Datatypes.S (measure s)) s env.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.ZArith.ZArith Coq.Strings.String Coq.Vectors.Vector Fiat.Computation Fiat.Narcissus.Common.Specs Fiat.Narcissus.Formats.Base.FMapFormat Fiat.Computation.FixComp