| ⊦ bits ≠ [] → (false ∈ bits +1 ↔ ¬(¬ bits.last ∧ ¬ false ∈ bits.butlast)) |
bits.last ∨ false ∈ bits.butlast ⊦ bits = [], false ∈ bits +1
Used simplifier rules: succ-zero-03: ⊦ bits ≠ [] ∧ ¬ bits.last → bits +1 = bits.butlast + true;% ⊦ (bits + bits0) + bits1 = bits + bits0 + bits1;% ⊦ boolvar ∈ boolvar0 ' ↔ boolvar ↔ boolvar0;% ⊦ boolvar ∈ bits + bits0 ↔ ¬ ¬(boolvar ∈ bits ∨ boolvar ∈ bits0);% ⊦ bits + boolvar = bits + boolvar ';