fact: Definition WrapString {capacity: W} : FacadeWrapper ADTValue string := {| wrap x := ByteString capacity (StringToByteString x); wrap_inj := WrapString_inj |}.
imports: Coq.Program.Program Fiat.CertifiedExtraction.Core Fiat.CertifiedExtraction.FacadeWrappers Fiat.CertifiedExtraction.Extraction.BinEncoders.Basics Fiat.CertifiedExtraction.Extraction.BinEncoders.Properties Bedrock.Arrays Bedrock.Platform.Facade.examples.QsADTs Bedrock.Word