$k=1

(Subscript[R, i,j])

(Subscript[R, i,j])~(Subscript[B, i,j])~((Subscript[b2t, i])(Subscript[b2t, j])) /. (Subscript[t, i|j])->t

(Subscript[CC, i])

(Subscript[CC, i])~(Subscript[B, i])~(Subscript[b2t, i]) /. (Subscript[T, i])->T

(Subscript[dm, i,j->k])

((Subscript[t2b, i])(Subscript[t2b, j]))~(Subscript[B, i,j])~(Subscript[dm, i,j->k])~(Subscript[B, k])~(Subscript[b2t, k]) /. {(Subscript[t, k])->t, (Subscript[T, k])->T,(Subscript[τ, i|j])->0}

(Subscript[Kink, i])~(Subscript[B, i])~(Subscript[b2t, i]) /. {(Subscript[t, i])->t, (Subscript[T, i])->T}