Used simplifier rules: and-first: ⊦ bits ≠ [] ∧ bits0 ≠ [] → (bitsand(bits, bits0).first ↔ bits.first ∧ bits0.first);