Nest[d,y,2] 770
Nest[d,y[t],2] 779

d[y]=0
d[y[t]]=sin(t)/(1-cos(t))
d[y[z]]=0

tを意識しないといけない定義なんだね
一般性にかけるのかな?