| sublist(0, # int2bits(i), mklist(true, i→n(j)) + int2bits(i)) ≠ [], ¬ sublist(0, # int2bits(i), mklist(true, i→n(j)) + int2bits(i)).first, i < 0 ⊦ |
i < 0 ⊦ sublist(0, # int2bits(i), mklist(true, i→n(j)) + int2bits(i)).first
Used simplifier rules: ⊦ int2bits(j) ≠ [];% ⊦ # bits = 0 ↔ bits = [];% ⊦ sublist(0, n, bits) = [] ↔ n = 0;