| a0 < a, ∀ a, y. perm(ins≤(a, x0 + y), ins≤(a, x0) + y) ⊦ perm(ins≤(a, a0 ' + x0) + y, ins≤(a, (a0 ' + x0) + y)), perm(ins≤(a, (a0 ' + x0) + y), ins≤(a, a0 ' + x0) + y) |
a0 < a, ∀ a, y. perm(ins≤(a, x0 + y), ins≤(a, x0) + y) ⊦ perm(ins≤(a, x0) + y, ins≤(a, x0 + y)), perm(ins≤(a, x0 + y), ins≤(a, x0) + y)
Used simplifier rules: ins-n: ⊦ b < a → ins≤(a, b ' + x) = b + ins≤(a, x);%sym-02: ⊦ ¬ perm(x, y) → ¬ perm(y, x); (forward) from specification list-perm%app: ⊦ perm(x + y, x + z) ↔ perm(y, z); from specification list-perm%a: ⊦ (x + y) + z = x + y + z; from specification list%c: ⊦ a + x = a ' + x; from specification list