fact: Example FourWords_compile : let wrapper := WrapInstance (H := (@WrapListByte (natToWord _ 512))) in ParametricExtraction #vars fourWords #program ret (FourWords_encode fourWords) #arguments (FourWordsAsCollectionOfVariables (NTSome "w0") (NTSome "w1") (NTSome "w2") (NTSome "w3") fourWords) #env MicroEncoders_Env.
imports: Benchmarks.MicroEncodersSetup Fiat.Common.SumType Fiat.Common.EnumType Fiat.Common.BoundedLookup Fiat.Common.ilist Fiat.Computation Fiat.Narcissus.Automation.SolverOpt Fiat.Narcissus.BinLib.Bool Fiat.Narcissus.BinLib.Core Fiat.Narcissus.BinLib.Enum Fiat.Narcissus.BinLib.FixInt Fiat.Narcissus.Common.Compose Fiat.Narcissus.Common.ComposeCheckSum Fiat.Narcissus.Common.ComposeIf Fiat.Narcissus.Common.Specs Fiat.Narcissus.Common.WordFacts Fiat.Narcissus.Lib.FixList Fiat.Narcissus.Lib.IList Fiat.Narcissus.Lib2.Bool Fiat.Narcissus.Lib2.EnumOpt Fiat.Narcissus.Lib2.FixListOpt Fiat.Narcissus.Lib2.NatOpt Fiat.Narcissus.Lib2.NoCache Fiat.Narcissus.Lib2.SumTypeOpt Fiat.Narcissus.Lib2.Vector Fiat.Narcissus.Lib2.WordOpt Fiat.Narcissus.Lib2.IPChecksum