---

Step * 2 1 of Lemma deq-member-firstn

.....equality..... 
1. A : Type
2. eq : EqDecider(A)
3. L : A List
4. n : ℕ+
5. n - 1 < ||L||
6. x : A
7. (x ∈ firstn(n - 1;L)) ∨ (x = L[n - 1] ∈ A)
⊢ firstn(n;L) ~ firstn(n - 1;L) @ [L[n - 1]]
BY
{ (RWO "firstn_decomp" 0⋅ THEN Auto) }

---

Latex:

---

Latex:
.....equality..... 
1.  A  :  Type
2.  eq  :  EqDecider(A)
3.  L  :  A  List
4.  n  :  \mBbbN{}\msupplus{}
5.  n  -  1  <  ||L||
6.  x  :  A
7.  (x  \mmember{}  firstn(n  -  1;L))  \mvee{}  (x  =  L[n  -  1])
\mvdash{}  firstn(n;L)  \msim{}  firstn(n  -  1;L)  @  [L[n  -  1]]


By

---

Latex:
(RWO  "firstn\_decomp"  0\mcdot{}  THEN  Auto)

---

Home Index