fact: Definition ipv4Split {A} (k: forall (w1 w2 w3 w4: word 8), A) (addr: word 32) : A := let w1 := split2 24 8 addr in let w2 := split1 8 8 (split2 16 16 addr) in let w3 := split1 8 16 (split2 8 24 addr) in let w4 := split1 8 24 addr in k w1 w2 w3 w4.
imports: Fiat.QueryStructure.Automation.MasterPlan Fiat.Narcissus.Examples.NetworkStack.IPv4Header Fiat.Narcissus.Examples.NetworkStack.TCP_Packet Fiat.Narcissus.Formats.ByteBuffer Bedrock.Word Fiat.Narcissus.BinLib.Core