open Functoria.DSL

type icmpv4

val icmpv4 : icmpv4 typ
val direct_icmpv4 : Ip.ipv4 impl -> icmpv4 impl