-ex tensor::subs(const lst & ls, const lst & lr) const
-{
- GINAC_ASSERT(ls.nops() == lr.nops());
-
- for (unsigned i=0; i<ls.nops(); i++) {
- if (is_ex_of_type(ls.op(i), tensor) &&
- compare_same_type(ex_to_tensor(ls.op(i)))==0)
- return lr.op(i);
- }
- return *this;
-}
-