---

Step * 1 2 1 of Lemma intlex-antisym


1. l1 : ℤ List
2. l2 : ℤ List
3. ¬||l2|| < ||l1||
4. ||l1|| <z ||l2|| ∨b((||l1|| =z ||l2||) ∧b intlex-aux(l1;l2)) = tt
5. ||l2|| = ||l1|| ∈ ℤ
⊢ intlex-aux(l2;l1) = tt ⇒ (l1 = l2 ∈ (ℤ List))
BY
{ (Assert intlex-aux(l1;l2) = tt BY
         (MoveToConcl (-2) THEN BoolCase ⌜||l1|| <z ||l2||⌝⋅ THEN Auto)) }

1
1. l1 : ℤ List
2. l2 : ℤ List
3. ¬||l2|| < ||l1||
4. ||l1|| <z ||l2|| ∨b((||l1|| =z ||l2||) ∧b intlex-aux(l1;l2)) = tt
5. ||l2|| = ||l1|| ∈ ℤ
6. intlex-aux(l1;l2) = tt
⊢ intlex-aux(l2;l1) = tt ⇒ (l1 = l2 ∈ (ℤ List))

---

Latex:

---

Latex:

1.  l1  :  \mBbbZ{}  List
2.  l2  :  \mBbbZ{}  List
3.  \mneg{}||l2||  <  ||l1||
4.  ||l1||  <z  ||l2||  \mvee{}\msubb{}((||l1||  =\msubz{}  ||l2||)  \mwedge{}\msubb{}  intlex-aux(l1;l2))  =  tt
5.  ||l2||  =  ||l1||
\mvdash{}  intlex-aux(l2;l1)  =  tt  {}\mRightarrow{}  (l1  =  l2)


By

---

Latex:
(Assert  intlex-aux(l1;l2)  =  tt  BY
              (MoveToConcl  (-2)  THEN  BoolCase  \mkleeneopen{}||l1||  <z  ||l2||\mkleeneclose{}\mcdot{}  THEN  Auto))

---

Home Index