| #oc(a0, (y + y0) -1l a) < #oc(a0, x), a ∈ y0, ∀ a0. #oc(a0, x) ≤ #oc(a0, y + (y0 -1l a)), a0 ∈ x ⊦ |
#oc(a0, (y + y0) -1l a) < #oc(a0, x), a ∈ y0, a0 ∈ x, ∀ a1. #oc(a1, x) ≤ #oc(a1, y) + #oc(a1, y0 -1l a) ⊦
Used simplifier rules: ocappend: ⊦ #oc(a, x + y) = #oc(a, x) + #oc(a, y);%a: ⊦ (x + y) + z = x + y + z; from specification list