---

Step * 1 1 2 1 1 1 of Lemma adjacent-append


1. T : Type
2. x : T
3. y : T
4. L1 : T List
5. L2 : T List
6. i : ℕ||L1 @ L2|| - 1
7. x = L1[i] ∈ T
8. y = L2[(i + 1) - ||L1||] ∈ T
9. i < ||L1||
10. ¬i < ||L1|| - 1
11. 0 < ||L1||
12. 0 < ||L2||
⊢ x = last(L1) ∈ T
BY
{ ((HypSubst (-6) 0 THENA (Auto THEN DVar `L1' THEN All Reduce THEN Auto)) THEN RepUR ``last`` 0 THEN EqCD THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  x  :  T
3.  y  :  T
4.  L1  :  T  List
5.  L2  :  T  List
6.  i  :  \mBbbN{}||L1  @  L2||  -  1
7.  x  =  L1[i]
8.  y  =  L2[(i  +  1)  -  ||L1||]
9.  i  <  ||L1||
10.  \mneg{}i  <  ||L1||  -  1
11.  0  <  ||L1||
12.  0  <  ||L2||
\mvdash{}  x  =  last(L1)


By

---

Latex:
((HypSubst  (-6)  0  THENA  (Auto  THEN  DVar  `L1'  THEN  All  Reduce  THEN  Auto))
  THEN  RepUR  ``last``  0
  THEN  EqCD
  THEN  Auto)

---

Home Index