| ¬ ¬ i ∈ ints0, perm(ints2, (ints0 + ints1) -1l i), ∀ ints0, ints1. perm(ints2, ints0 + ints1) → Π ints2 = Π ints0 * Π ints1 ⊦ i * Π ints2 = Π ints0 * Π ints1, ¬ i ∈ ints0 ∧ ¬ i ∈ ints1 |
i ∈ ints0, perm(ints2, (ints0 -1l i) + ints1), ∀ ints0, ints1. perm(ints2, ints0 + ints1) → Π ints2 = Π ints0 * Π ints1 ⊦ i * Π ints2 = Π ints0 * Π ints1
Used simplifier rules: a: ⊦ (ints + ints0) + ints1 = ints + ints0 + ints1; from specification list[intlista]%app: ⊦ i ∈ ints → (ints + ints0) -1l i = (ints -1l i) + ints0; from specification list-del[intlista]