fact: Definition WrapDecoder {A B} sz (impl: forall {sz}, ByteBuffer.t sz -> option (A * nat * B)) (bs: ByteBuffer.t sz) : option A := match impl bs with | Some (pkt, _, _) => Some pkt | None => None end.
imports: Bedrock.Word Fiat.Narcissus.Examples.NetworkStack.EthernetHeader Fiat.Narcissus.Examples.NetworkStack.ARPPacket Fiat.Narcissus.Examples.NetworkStack.IPv4Header Fiat.Narcissus.Examples.NetworkStack.TCP_Packet Fiat.Narcissus.Examples.NetworkStack.UDP_Packet AlignedByteString