| perm(x, y) ⊦ perm(a + x, y ++ a), a ∈ x |
perm(x, y), perm(y, x), a ∈ y ++ a ⊦ perm(x, (y ++ a) -1l a), a ∈ x
Used simplifier rules: del-01: ⊦ perm(a ' + x, y) ↔ a ∈ y ∧ perm(x, y -1l a);%sym-01: ⊦ perm(x, y) → perm(y, x);%trans: ⊦ perm(x, y) ∧ perm(y, z) → perm(x, z);%sym-02: ⊦ ¬ perm(x, y) → ¬ perm(y, x);%ref: ⊦ perm(x, x);%sym-02: ⊦ ¬ perm(x, y) → ¬ perm(y, x);% ⊦ a ∈ x ++ b ↔ a = b ∨ a ∈ x; (ws)%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ a + x = a ' + x; (s)