Proof step 1 from proof Uniform-array (conclusion) (back to tree)

System applied rule normalize

And obtained the following new goals

• Proof step 2:

  ¬ indhyp-array(ar), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. indhyp-array(mklist([].head, m)) ⊦

Rule argument

Additional information

Proof step 2 from proof Uniform-array (previous step) (back to tree)

Heuristic simplifier applied rule simplifier

And obtained the following new goals

• Proof step 3:

  ¬ indhyp-array(ar), ∀ m. indhyp-array(mklist([].head, m)), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)) ⊦

Rule argument

Additional information

Proof step 3 from proof Uniform-array (previous step) (back to tree)

User applied rule cut formula

And obtained the following new goals

• Proof step 4:

  ¬ indhyp-array(ar), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. indhyp-array(mklist([].head, m)), ∃ n. n ≤ # ar ∧ (∀ m. m < # ar - n → ar(m) = [].head) ⊦

• Proof step 30:

  ¬ indhyp-array(ar), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. indhyp-array(mklist([].head, m)) ⊦ ∃ n. n ≤ # ar ∧ (∀ m. m < # ar - n → ar(m) = [].head)

Rule argument

Additional information

Used formulas: ∃ n. n ≤ # ar ∧ (∀ m. m < # ar - n → ar(m) = [].head)

Proof step 4 from proof Uniform-array (previous step) (back to tree)

Heuristic simplifier applied rule simplifier

And obtained the following new goals

• Proof step 5:

  n ≤ # ar, ¬ indhyp-array(ar), ∀ m. indhyp-array(mklist([].head, m)), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. m + n < # ar → ar(m) = [].head ⊦

Rule argument

Additional information

Used simplifier rules: n0 ≤ n ⊦ m < n - n0 ↔ m + n0 < n; (s) ⊦ m ≤ n → (n < m ↔ false); (s) ⊦ m ≤ n ↔ ¬ n < m; (ss)

Proof step 5 from proof Uniform-array (previous step) (back to tree)

User applied rule structural induction

And obtained the following new goals

• Proof step 6:

  0 ≤ # ar, ¬ indhyp-array(ar), ∀ m. m + 0 < # ar → ar(m) = [].head, ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. indhyp-array(mklist([].head, m)) ⊦

• Proof step 13:

  n0.+1 ≤ # ar, ¬ indhyp-array(ar), ∀ m. m + n0.+1 < # ar → ar(m) = [].head, ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. indhyp-array(mklist([].head, m)), ∀ ar, indhyp-array. ¬ ( n0 ≤ # ar ∧ ¬ indhyp-array(ar) ∧ (∀ m. indhyp-array(mklist([].head, m))) ∧ (∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a))) ∧ (∀ m. m + n0 < # ar → ar(m) = [].head)) ⊦

Rule argument

Additional information

Used simplifier rules: Nat freely generated by 0, +1;

Proof step 6 from proof Uniform-array (previous step) (back to tree)

Heuristic simplifier applied rule simplifier

And obtained the following new goals

• Proof step 7:

  ¬ indhyp-array(ar), ∀ m. indhyp-array(mklist([].head, m)), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. m < # ar → ar(m) = [].head ⊦

Rule argument

Additional information

Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic ⊦ n + 0 = n; (s) ⊦ 0 ≤ m; (s)

Proof step 7 from proof Uniform-array (previous step) (back to tree)

User applied rule all left

And obtained the following new goals

• Proof step 8:

  indhyp-array(mklist([].head, # ar)), ¬ indhyp-array(ar), ∀ m. m < # ar → ar(m) = [].head, ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)) ⊦

Rule argument

Additional information

Used terms: # ar

Proof step 8 from proof Uniform-array (previous step) (back to tree)

User applied rule cut formula

And obtained the following new goals

• Proof step 9:

  ar ≠ mklist([].head, # ar), indhyp-array(mklist([].head, # ar)), ¬ indhyp-array(ar), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. m < # ar → ar(m) = [].head ⊦

Rule argument

Additional information

Used formulas: ar = mklist([].head, # ar)

Proof step 9 from proof Uniform-array (previous step) (back to tree)

User applied rule apply rewrite lemma

And obtained the following new goals

• Proof step 10:

  ⊦ ar1 = ar2 ↔ # ar1 = # ar2 ∧ (∀ n. n < # ar1 → ar1(n) = ar2(n))

• Proof step 11:

  indhyp-array(mklist([].head, # ar)), ¬ indhyp-array(ar), ∀ m. m < # ar → ar(m) = [].head, ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), # ar ≠ # mklist([].head, # ar) ∨ (∃ n. ¬(n < # ar → ar(n) = mklist([].head, # ar)(n))) ⊦

Rule argument

Additional information

Used terms: ar, mklist([].head, # ar)

Proof step 10 from proof Uniform-array (previous step) (back to tree)

Lemma Extension

Proof step 11 from proof Uniform-array (previous step) (back to tree)

Heuristic simplifier applied rule simplifier

And obtained the following new goals

• Proof step 12:

  ar(n) ≠ [].head, ar ≠ [], n < # ar, indhyp-array(mklist([].head, # ar)), ¬ indhyp-array(ar), ∀ m. m < # ar → ar(m) = [].head, ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)) ⊦

Rule argument

Additional information

Used simplifier rules: Size-mkarray: ⊦ # mklist([].head, n) = n; ⊦ # x = 0 ↔ x = []; (s) f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic ⊦ m < n → mklist(a, n)(m) = a; (s)

Proof step 12 from proof Uniform-array (previous step) (back to tree)

Heuristic quantifier closing applied rule all left

And closed the goal!

Rule argument

Additional information

Used terms: n

Proof step 13 from proof Uniform-array (previous step) (back to tree)

Heuristic simplifier applied rule simplifier

And obtained the following new goals

• Proof step 14:

  ar ≠ [], n0 < # ar, ¬ indhyp-array(ar), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head, ∀ ar0, indhyp-array0. ¬ n0 ≤ # ar0 ∨ indhyp-array0(ar0) ∨ ¬(∀ m. indhyp-array0(mklist([].head, m))) ∨ ¬(∀ ar, m, a. indhyp-array0(ar) → indhyp-array0(ar(m := a))) ∨ ¬(∀ m. m + n0 < # ar0 → ar0(m) = [].head), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. indhyp-array(mklist([].head, m)) ⊦

Rule argument

Additional information

Used simplifier rules: ⊦ # x = 0 ↔ x = []; (s) f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic ⊦ m.+1 = m + 1; (s) c: ⊦ m + n = n + m; from specification nat-basic ⊦ m + 1 ≤ n ↔ m < n; (s)

Proof step 14 from proof Uniform-array (previous step) (back to tree)

User applied rule all left

And obtained the following new goals

• Proof step 15:

  ar ≠ [], n0 < # ar, ¬ indhyp-array(ar), ∀ m. indhyp-array(mklist([].head, m)), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head, ¬ n0 ≤ # ar(# ar - n0.+1 := [].head) ∨ indhyp-array(ar(# ar - n0.+1 := [].head)) ∨ ¬(∀ m. indhyp-array(mklist([].head, m))) ∨ ¬(∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a))) ∨ ¬(∀ m. m + n0 < # ar(# ar - n0.+1 := [].head) → ar(# ar - n0.+1 := [].head)(m) = [].head) ⊦

Rule argument

Additional information

Used terms: ar(# ar - n0.+1 := [].head), indhyp-array

Proof step 15 from proof Uniform-array (previous step) (back to tree)

Heuristic simplifier applied rule simplifier

And obtained the following new goals

• Proof step 16:

  ar ≠ [], n0 < # ar, ¬ indhyp-array(ar), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head, ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. indhyp-array(mklist([].head, m)), indhyp-array(ar(# ar - n0 + 1 := [].head)) ∨ ¬(m + n0 < # ar → ar(# ar - n0 + 1 := [].head)(m) = [].head) ⊦

Rule argument

Additional information

Used simplifier rules: Size-put: ⊦ # ar(n := a) = # ar; ⊦ m.+1 = m + 1; (s) ⊦ m < n → m ≤ n; (s)

Proof step 16 from proof Uniform-array (previous step) (back to tree)

Heuristic elimination applied rule apply elim lemma

And obtained the following new goals

• Proof step 17:

  # ar = n1 + n0 + 1, ar ≠ [], n0 < # ar, n0 + 1 ≤ # ar, ¬ indhyp-array(ar), ∀ m. indhyp-array(mklist([].head, m)), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head, indhyp-array(ar(n1 := [].head)) ∨ ¬(m + n0 < # ar → ar(n1 := [].head)(m) = [].head) ⊦

Rule argument

Additional information

Used simplifier rules: ⊦ m + 1 ≤ n ↔ m < n; (s) ⊦ m < n ↔ ¬ n ≤ m; (ss) ⊦ m < n → (n ≤ m ↔ false); (s) a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic c: ⊦ m + n = n + m; from specification nat-basic n ≤ m ⊦ n0 = m - n ↔ m = n0 + n; (elim) Used terms: # ar, n0 + 1, n1

Proof step 17 from proof Uniform-array (previous step) (back to tree)

Heuristic simplifier applied rule simplifier

And obtained the following new goals

• Proof step 18:

  # ar = n1 + n0 + 1, ar ≠ [], n0 < # ar, ¬ indhyp-array(ar), ∀ m. indhyp-array(mklist([].head, m)), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head, indhyp-array(ar(n1 := [].head)) ∨ ¬(m + n0 < # ar → ar(n1 := [].head)(m) = [].head) ⊦

Rule argument

Additional information

Used simplifier rules: c: ⊦ m + n = n + m; from specification nat-basic a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic ⊦ ¬ m + n < m; (s) ⊦ m < n + 1 ↔ ¬ n < m; (s) lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic ⊦ m + 1 ≤ n ↔ m < n; (s)

Proof step 18 from proof Uniform-array (previous step) (back to tree)

User applied rule case distinction

And obtained the following new goals

• Proof step 19:

  # ar = n1 + n0 + 1, ar ≠ [], n0 < # ar, indhyp-array(ar(n1 := [].head)), ¬ indhyp-array(ar), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head, ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. indhyp-array(mklist([].head, m)) ⊦

• Proof step 27:

  # ar = n1 + n0 + 1, ar(n1 := [].head)(m) ≠ [].head, ar ≠ [], m + n0 < # ar, n0 < # ar, ¬ indhyp-array(ar), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head, ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. indhyp-array(mklist([].head, m)) ⊦

Rule argument

Additional information

Proof step 19 from proof Uniform-array (previous step) (back to tree)

User applied rule all left

And obtained the following new goals

• Proof step 20:

  # ar = n1 + n0 + 1, ar ≠ [], n0 < # ar, indhyp-array(ar(n1 := [].head)), ¬ indhyp-array(ar), indhyp-array(ar(n1 := [].head)) → indhyp-array(ar(n1 := [].head)(n1 := ar(n1))), ∀ m. indhyp-array(mklist([].head, m)), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head ⊦

Rule argument

Additional information

Used terms: ar(n1 := [].head), n1, ar(n1)

Proof step 20 from proof Uniform-array (previous step) (back to tree)

Heuristic simplifier applied rule simplifier

And obtained the following new goals

• Proof step 21:

  # ar = n1 + n0 + 1, ar ≠ [], n0 < # ar, indhyp-array(ar(n1 := [].head)), indhyp-array(ar(n1 := [].head)(n1 := ar(n1))), ¬ indhyp-array(ar), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head, ∀ m. indhyp-array(mklist([].head, m)) ⊦

Rule argument

Additional information

Proof step 21 from proof Uniform-array (previous step) (back to tree)

User applied rule cut formula

And obtained the following new goals

• Proof step 22:

  # ar = n1 + n0 + 1, ar(n1 := [].head)(n1 := ar(n1)) ≠ ar, ar ≠ [], n0 < # ar, indhyp-array(ar(n1 := [].head)(n1 := ar(n1))), indhyp-array(ar(n1 := [].head)), ¬ indhyp-array(ar), ∀ m. indhyp-array(mklist([].head, m)), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head ⊦

Rule argument

Additional information

Used formulas: ar(n1 := [].head)(n1 := ar(n1)) = ar

Proof step 22 from proof Uniform-array (previous step) (back to tree)

User applied rule apply rewrite lemma

And obtained the following new goals

• Proof step 23:

  ⊦ x = y ↔ # x = # y ∧ (∀ n. n < # x → x(n) = y(n))

• Proof step 24:

  # ar = n1 + n0 + 1, ar ≠ [], n0 < # ar, indhyp-array(ar(n1 := [].head)), indhyp-array(ar(n1 := [].head)(n1 := ar(n1))), ¬ indhyp-array(ar), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head, ∀ m. indhyp-array(mklist([].head, m)), # ar(n1 := [].head)(n1 := ar(n1)) ≠ # ar ∨ (∃ n. ¬(n < # ar(n1 := [].head)(n1 := ar(n1)) → ar(n1 := [].head)(n1 := ar(n1))(n) = ar(n))) ⊦

Rule argument

Additional information

Used terms: ar(n1 := [].head)(n1 := ar(n1)), ar

Proof step 23 from proof Uniform-array (previous step) (back to tree)

A spec-lemma

Proof step 24 from proof Uniform-array (previous step) (back to tree)

Heuristic simplifier applied rule simplifier

And obtained the following new goals

• Proof step 25:

  # ar = n1 + n0 + 1, ar(n1 := [].head)(n1 := ar(n1))(n) ≠ ar(n), ar ≠ [], n < # ar, n0 < # ar, indhyp-array(ar(n1 := [].head)), indhyp-array(ar(n1 := [].head)(n1 := ar(n1))), n ≤ n1 + n0, ¬ indhyp-array(ar), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head, ∀ m. indhyp-array(mklist([].head, m)) ⊦

Rule argument

Additional information

Used simplifier rules: Size-put: ⊦ # ar(n := a) = # ar; ⊦ m < n ↔ ¬ n ≤ m; (ss) c: ⊦ m + n = n + m; from specification nat-basic a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic ⊦ m < n + 1 ↔ ¬ n < m; (s) lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic

Proof step 25 from proof Uniform-array (previous step) (back to tree)

User applied rule apply rewrite lemma

And obtained the following new goals

• Proof step 26:

  ⊦ m ≠ n → ar(n := a)(m) = ar(m)

Rule argument

Additional information

Used simplifier rules: Size-put: ⊦ # ar(n := a) = # ar; Put-other: ⊦ m ≠ n → ar(n := a)(m) = ar(m); ⊦ m < n ↔ ¬ n ≤ m; (ss) ⊦ m < n → (n ≤ m ↔ false); (s) m < # x ⊦ x(m := a)(m) = a; (s) Used terms: ar(n1 := [].head), n1, ar(n1), n

Proof step 26 from proof Uniform-array (previous step) (back to tree)

Lemma Put-other

Proof step 27 from proof Uniform-array (previous step) (back to tree)

User applied rule apply rewrite lemma

And obtained the following new goals

• Proof step 28:

  ⊦ m ≠ n → ar(n := a)(m) = ar(m)

• Proof step 29:

  # ar = n1 + n0 + 1, ar(m) ≠ [].head, ar ≠ [], m ≠ n1, n0 < # ar, m + n0 < # ar, ¬ indhyp-array(ar), ∀ m. indhyp-array(mklist([].head, m)), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)), ∀ m. m + n0 + 1 < # ar → ar(m) = [].head ⊦

Rule argument

Additional information

Used simplifier rules: ⊦ m < n ↔ ¬ n ≤ m; (ss) eqle-one: ⊦ m = n + 1 ∧ n < n0 → m ≤ n0; (forward) from specification nat lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic fle: ⊦ m < n ∧ n ≤ n0 → m < n0; (forward) from specification nat ⊦ m ≤ m; (s) ⊦ m + n < m0 → m + n < m0 + n0; (s) ⊦ ¬ m + n < m; (s) a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic c: ⊦ m + n = n + m; from specification nat-basic m < # x ⊦ x(m := a)(m) = a; (s) Used terms: ar, n1, [].head, m

Proof step 28 from proof Uniform-array (previous step) (back to tree)

Lemma Put-other

Proof step 29 from proof Uniform-array (previous step) (back to tree)

User applied rule all left

And closed the goal!

Rule argument

Additional information

Used simplifier rules: ⊦ m < n ↔ ¬ n ≤ m; (ss) ⊦ m < n → (n ≤ m + 1 ↔ n = m + 1); (s) eqle-one: ⊦ m = n + 1 ∧ n < n0 → m ≤ n0; (forward) from specification nat eqs: ⊦ m = n + n0 ∧ m = n + n1 → n0 = n1; (forward) from specification nat-basic a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic c: ⊦ m + n = n + m; from specification nat-basic lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic Used terms: m

Proof step 30 from proof Uniform-array (previous step) (back to tree)

Heuristic simplifier applied rule simplifier

And obtained the following new goals

• Proof step 31:

  ¬ indhyp-array(ar), ∀ m. indhyp-array(mklist([].head, m)), ∀ ar, m, a. indhyp-array(ar) → indhyp-array(ar(m := a)) ⊦ ∃ n. n ≤ # ar ∧ (∀ m. m + n < # ar → ar(m) = [].head)

Rule argument

Additional information

Used simplifier rules: n0 ≤ n ⊦ m < n - n0 ↔ m + n0 < n; (s) ⊦ m ≤ n → (n < m ↔ false); (s) ⊦ m ≤ n ↔ ¬ n < m; (ss)

Proof step 31 from proof Uniform-array (previous step) (back to tree)

User applied rule exists right

And closed the goal!

Rule argument

Additional information

Used simplifier rules: ⊦ m ≤ m; (s) ⊦ ¬ m + n < m; (s) a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic c: ⊦ m + n = n + m; from specification nat-basic Used terms: # ar