| # x = # y, a0 ∈ x → a0 ∈ y, ∀ a. a ∈ x → a ∈ y, ∀ a. a ∈ y → a ∈ x ⊦ dups(x), dups(y), #oc(a0, y) ≤ #oc(a0, x) |
# x = # y, #oc(a0, y) = 1, a0 ∈ y, ∀ a. a ∈ y → a ∈ x, ∀ a. a ∈ x → a ∈ y ⊦ dups(y), dups(x), a0 ∈ x
Used simplifier rules: oc-dups: ⊦ n < #oc(a, x) ∧ ¬ dups(x) → #oc(a, x) = 1;%oc-zero: ⊦ #oc(a, x) = 0 ↔ ¬ a ∈ x;%notin: ⊦ ¬ a ∈ x → #oc(a, x) = 0;% ⊦ 0 < m ↔ m ≠ 0; (s)% ⊦ m < 1 ↔ m = 0; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m ≤ n ↔ ¬ n < m; (ss)