| a = a0, m ≤ # x0, ∀ m, a, b. m < # x0 → #oc(a, x0[m, b]) = #oc(a, x0) ∨ x0[m] = a ∨ a = b ∨ x0 = [] ⊦ #oc(a, (a0 ' + x0)[m, b]) = #oc(a, a0 ') + #oc(a, x0), (a0 ' + x0)[m] = a, a = b |
m ≤ # x0, ∀ m, a, b. m < # x0 → #oc(a, x0[m, b]) = #oc(a, x0) ∨ x0[m] = a ∨ a = b ∨ x0 = [] ⊦ #oc(a0, (a0 ' + x0)[m, b]) = 1 + #oc(a0, x0), (a0 ' + x0)[m] = a0, a0 = b
Used simplifier rules: one: ⊦ #oc(a, a ') = 1;