---

Step * 2 2 1 1 1 of Lemma first-eclass-val


1. Info : Type
2. A : Type
3. u : EClass(A)@i'
4. v : EClass(A) List@i'
5. ∀es:EO+(Info). ∀e:E.  (∃X∈v. (↑e ∈b X) ∧ (first-eclass(v)(e) = X(e) ∈ A)) supposing ↑e ∈b first-eclass(v)@i'
6. es : EO+(Info)@i'
7. e : E@i
8. ↑e ∈b first-eclass([u / v])
9. (∃X∈v. ↑e ∈b X)
10. ¬↑e ∈b u
11. i : ℕ||v||
12. ↑e ∈b v[i]
13. first-eclass(v)(e) = v[i](e) ∈ A
⊢ first-eclass([u / v])(e) = v[i](e) ∈ A
BY
{ (NthHypEq (-1)⋅ THEN EqCD THEN Auto) }

1
.....subterm..... T:t
2:n
1. Info : Type
2. A : Type
3. u : EClass(A)@i'
4. v : EClass(A) List@i'
5. ∀es:EO+(Info). ∀e:E.  (∃X∈v. (↑e ∈b X) ∧ (first-eclass(v)(e) = X(e) ∈ A)) supposing ↑e ∈b first-eclass(v)@i'
6. es : EO+(Info)@i'
7. e : E@i
8. ↑e ∈b first-eclass([u / v])
9. (∃X∈v. ↑e ∈b X)
10. ¬↑e ∈b u
11. i : ℕ||v||
12. ↑e ∈b v[i]
13. first-eclass(v)(e) = v[i](e) ∈ A
⊢ first-eclass([u / v])(e) = first-eclass(v)(e) ∈ A

---

Latex:

---

Latex:

1.  Info  :  Type
2.  A  :  Type
3.  u  :  EClass(A)@i'
4.  v  :  EClass(A)  List@i'
5.  \mforall{}es:EO+(Info).  \mforall{}e:E.
          (\mexists{}X\mmember{}v.  (\muparrow{}e  \mmember{}\msubb{}  X)  \mwedge{}  (first-eclass(v)(e)  =  X(e)))  supposing  \muparrow{}e  \mmember{}\msubb{}  first-eclass(v)@i'
6.  es  :  EO+(Info)@i'
7.  e  :  E@i
8.  \muparrow{}e  \mmember{}\msubb{}  first-eclass([u  /  v])
9.  (\mexists{}X\mmember{}v.  \muparrow{}e  \mmember{}\msubb{}  X)
10.  \mneg{}\muparrow{}e  \mmember{}\msubb{}  u
11.  i  :  \mBbbN{}||v||
12.  \muparrow{}e  \mmember{}\msubb{}  v[i]
13.  first-eclass(v)(e)  =  v[i](e)
\mvdash{}  first-eclass([u  /  v])(e)  =  v[i](e)


By

---

Latex:
(NthHypEq  (-1)\mcdot{}  THEN  EqCD  THEN  Auto)

---

Home Index