---

Step * 2 1 1 of Lemma stream-lex_transitivity


1. T : Type
2. c : stream(T)
3. R : T ⟶ T ⟶ ℙ
4. Trans(T;x,y.x R y)
5. AntiSym(T;x,y.x R y)
6. R@0 : stream(T) ⟶ stream(T) ⟶ ℙ
7. Trans(stream(T);s1,s2.s1 R@0 s2)
8. a : stream(T)
9. b : stream(T)
10. s-hd(c) R s-hd(b)
11. (s-hd(c) = s-hd(b) ∈ T) ⇒ (s-tl(a) R@0 s-tl(b))
12. s-hd(b) R s-hd(c)
13. (s-hd(b) = s-hd(c) ∈ T) ⇒ (s-tl(b) R@0 s-tl(c))
14. s-hd(c) R s-hd(c)
15. s-hd(a) = s-hd(c) ∈ T
16. s-hd(b) = s-hd(c) ∈ T
⊢ s-tl(a) R@0 s-tl(c)
BY
{ (ThinTrivial THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  c  :  stream(T)
3.  R  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
4.  Trans(T;x,y.x  R  y)
5.  AntiSym(T;x,y.x  R  y)
6.  R@0  :  stream(T)  {}\mrightarrow{}  stream(T)  {}\mrightarrow{}  \mBbbP{}
7.  Trans(stream(T);s1,s2.s1  R@0  s2)
8.  a  :  stream(T)
9.  b  :  stream(T)
10.  s-hd(c)  R  s-hd(b)
11.  (s-hd(c)  =  s-hd(b))  {}\mRightarrow{}  (s-tl(a)  R@0  s-tl(b))
12.  s-hd(b)  R  s-hd(c)
13.  (s-hd(b)  =  s-hd(c))  {}\mRightarrow{}  (s-tl(b)  R@0  s-tl(c))
14.  s-hd(c)  R  s-hd(c)
15.  s-hd(a)  =  s-hd(c)
16.  s-hd(b)  =  s-hd(c)
\mvdash{}  s-tl(a)  R@0  s-tl(c)


By

---

Latex:
(ThinTrivial  THEN  Auto)

---

Home Index