Used simplifier rules: bits2uint-one-03: ⊦ bits2uint(true ') = 1;% ⊦ # [] = 0;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ bits + [] = bits;% ⊦ # bits = 0 ↔ bits = [];