---

Step * 2 1 2 1 2 2 1 2 of Lemma decidable-last-rel


1. T : Type
2. P : (T List) ⟶ T ⟶ ℙ
3. ∀L:T List. ∀x:T.  Dec(P[L;x])
4. L : T List
5. ¬↑null(L)
6. L' : T List
7. L = (L' @ [last(L)]) ∈ (T List)
8. L1 : T List
9. x : T
10. L = (L1 @ [x]) ∈ (T List)
11. P[L1;x]
12. L' = firstn(||L'||;L) ∈ (T List)
13. L1 = firstn(||L1||;L) ∈ (T List)
14. ||L1 @ [x]|| = ||L' @ [last(L)]|| ∈ ℤ
⊢ ||L'|| = ||L1|| ∈ ℤ
BY
{ xxx(((RWO "length_append" (-1)) THENM (Reduce (-1))) THEN Auto')xxx }

---

Latex:

---

Latex:

1.  T  :  Type
2.  P  :  (T  List)  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
3.  \mforall{}L:T  List.  \mforall{}x:T.    Dec(P[L;x])
4.  L  :  T  List
5.  \mneg{}\muparrow{}null(L)
6.  L'  :  T  List
7.  L  =  (L'  @  [last(L)])
8.  L1  :  T  List
9.  x  :  T
10.  L  =  (L1  @  [x])
11.  P[L1;x]
12.  L'  =  firstn(||L'||;L)
13.  L1  =  firstn(||L1||;L)
14.  ||L1  @  [x]||  =  ||L'  @  [last(L)]||
\mvdash{}  ||L'||  =  ||L1||


By

---

Latex:
xxx(((RWO  "length\_append"  (-1))  THENM  (Reduce  (-1)))  THEN  Auto')xxx

---

Home Index