| ∀ a. #oc(a, x0) = # x0 ↔ x0 = mklist(a, # x0) ⊦ #oc(a, a0 + x0) = #(a0 + x0) ↔ a0 + x0 = mklist(a, #(a0 + x0)) |
∀ a. #oc(a, x0) = # x0 ↔ x0 = mklist(a, # x0) ⊦ #oc(a, a0 ') + #oc(a, x0) = 1 + # x0 ↔ a0 ' + x0 = mklist(a, 1 + # x0)
Used simplifier rules: ocappend: ⊦ #oc(a, x + y) = #oc(a, x) + #oc(a, y);% ⊦ # a ' = 0 +1; (s)% ⊦ #(x + y) = # x + # y; (s)%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ a + x = a ' + x; (s)