请教一个命令输出的问题

怎么能使下面两个求导结果输出的sq1h,sq2h,sq3h的对x的导数给显示为命令行第4-6条的那三条中的sq4h,sq5h,sq6h，我试了4-6三条反过来赋值也不能，还试了1-3三条删去，结果显示递归超出了限制，请问这个是应该怎么操作。
ClearAll
sq1h = -sq1[x];
sq2h = sq2[x] - sq3[x];
sq3h = -sq3[x];
sq1h'[x] = sq4h;
sq2h'[x] = sq5h;
sq3h'[x] = sq6h;
A = D[{raih*Cos[sq2h - \[Theta]]*Cos[sq1h]*Sin[\[Theta]] +
raih*Sin[sq2h - \[Theta]]*Cos[\[Theta]],
raih*Cos[sq2h - \[Theta]]*Sin[sq1h],
raih*Cos[sq2h - \[Theta]]*Cos[sq1h]*Cos[\[Theta]] -
raih*Sin[sq2h - \[Theta]]*Sin[\[Theta]]}, x]
B = D[{l*Cos[sq2h - \[Theta]]*Cos[sq1h]*Sin[\[Theta]] +
l*Sin[sq2h - \[Theta]]*Cos[\[Theta]] +
raih*Sin[sq1h]*Sin[\[Theta]],
l*Cos[sq2h - \[Theta]]*Sin[sq1h] - raih*Cos[sq1h],
l*Cos[sq2h - \[Theta]]*Cos[sq1h]*Cos[\[Theta]] -
l*Sin[sq2h - \[Theta]]*Sin[\[Theta]] +
raih*Sin[sq1h]*Cos[\[Theta]]}, x]