NO

Problem:
 Ap(Ap(Ap(S(),x),y),z) -> Ap(Ap(x,z),Ap(y,z))
 Ap(Ap(K(),x),y) -> x
 Ap(I(),x) -> x
 Dh(z,z) -> z

Proof:
 Unfolding Processor:
  loop length: 3
  terms:
   Ap(Ap(Ap(S(),Ap(S(),x84)),I()),Ap(Ap(S(),Ap(S(),x84)),I()))
   Ap(Ap(Ap(S(),x84),Ap(Ap(S(),Ap(S(),x84)),I())),Ap(I(),Ap(Ap(S(),Ap(S(),x84)),I())))
   Ap(Ap(x84,Ap(I(),Ap(Ap(S(),Ap(S(),x84)),I()))),Ap(Ap(Ap(S(),Ap(S(),x84)),I()),
                                                     Ap(I(),Ap(Ap(S(),Ap(S(),x84)),I()))))
  context: Ap(Ap(x84,Ap(I(),Ap(Ap(S(),Ap(S(),x84)),I()))),[])
  substitution:
   x84 -> x84
  Qed