| ⊦ 0 >> 0 = 0 |
⊦ i >> j = bits2int(sublist(0, # int2bits(i), mklist(int2bits(i).first, i→n(j)) + int2bits(i)))
Used simplifier rules: ⊦ int2bits(0) = false ';% ⊦ # boolvar ' = 0 +1;% ⊦ boolvar '.first ↔ boolvar;% ⊦ mklist(boolvar, 0) = [];% ⊦ [] + bits = bits;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ sublist(0, 1, boolvar ') = boolvar ';% ⊦ bits2int(false ') = 0; Used terms: 0, 0