| ⊦ perm(x -1l a, y -1l a) ∧ a ∈ x ∧ a ∈ y → perm(x, y) |
a ∈ x, a ∈ y, ∀ a0. #oc(a0, x -1l a) ≤ #oc(a0, y -1l a), ∀ a0. #oc(a0, y -1l a) ≤ #oc(a0, x -1l a) ⊦ #oc(a0, x) ≤ #oc(a0, y) ∧ #oc(a1, y) ≤ #oc(a1, x)
Used simplifier rules: perm-def: ⊦ perm(x, y) ↔ ¬ ¬(x ⊆m y ∧ y ⊆m x);%msubset: ⊦ x ⊆m y ↔ (∀ a. #oc(a, x) ≤ #oc(a, y));