Hello,
At least for itensor, changing the defn of lc2kdt from
lc2kdt(exp):=block([exp:expand(exp),n:nterms(exp)],
sum(_lc2kdt0(if n > 1 then part(exp,i) else exp),i,1,n))$
to
lc2kdt(exp):=block([exp:expand(exp),n:nterms(exp)],
sum(_lc2kdt0(if n > 1 then part(exp,i%) else exp),i%,1,n))$
i.e. renaming the summation index to avoid a name collision,
causes problems 26 and 27 to yield the expected results.
I guess we can have a discussion about sum/product evaluation now.
Dunno about ctensor or atensor.
Robert