---

Step * 1 1 2 of Lemma intlex-transitive


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

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

---

Latex:

---

Latex:

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


By

---

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

---

Home Index