YES

   1: nats() -> :(0(),inc(nats()))
   2: inc(:(x1,x2)) -> :(s(x1),inc(x2))
   3: hd(:(x1,x2)) -> x1
   4: tl(:(x1,x2)) -> x2
   5: inc(tl(nats())) -> tl(inc(nats()))

@Rule Labeling
--- R
   1: nats() -> :(0(),inc(nats()))
   2: inc(:(x1,x2)) -> :(s(x1),inc(x2))
   3: hd(:(x1,x2)) -> x1
   4: tl(:(x1,x2)) -> x2
   5: inc(tl(nats())) -> tl(inc(nats()))

--- S
   1: nats() -> :(0(),inc(nats()))
   2: inc(:(x1,x2)) -> :(s(x1),inc(x2))
   3: hd(:(x1,x2)) -> x1
   4: tl(:(x1,x2)) -> x2
   5: inc(tl(nats())) -> tl(inc(nats()))