---

Step * 1 2 1 1 of Lemma llex-append1


1. A : Type
2. < : A ⟶ A ⟶ ℙ
3. L1 : A List
4. L2 : A List
5. a : A
6. ||L1|| < ||L2 @ [a]||
7. ∀i:ℕ||L1||. (L1[i] = L2 @ [a][i] ∈ A)
8. ¬||L1|| < ||L2||
⊢ L1 = L2 ∈ (A List)
BY
{ ((BLemma `list_extensionality` THEN Auto' THEN Reduce 0 THEN Auto)
   THEN InstHyp [⌜i⌝] (-4)⋅
   THEN Auto
   THEN RWO "select_append_front" (-1)⋅
   THEN Auto)⋅ }

---

Latex:

---

Latex:

1.  A  :  Type
2.  <  :  A  {}\mrightarrow{}  A  {}\mrightarrow{}  \mBbbP{}
3.  L1  :  A  List
4.  L2  :  A  List
5.  a  :  A
6.  ||L1||  <  ||L2  @  [a]||
7.  \mforall{}i:\mBbbN{}||L1||.  (L1[i]  =  L2  @  [a][i])
8.  \mneg{}||L1||  <  ||L2||
\mvdash{}  L1  =  L2


By

---

Latex:
((BLemma  `list\_extensionality`  THEN  Auto'  THEN  Reduce  0  THEN  Auto)
  THEN  InstHyp  [\mkleeneopen{}i\mkleeneclose{}]  (-4)\mcdot{}
  THEN  Auto
  THEN  RWO  "select\_append\_front"  (-1)\mcdot{}
  THEN  Auto)\mcdot{}

---

Home Index