---

Step * 1 1 1 1 2 of Lemma stream-coinduction


1. A : Type
2. R : stream(A) ⟶ stream(A) ⟶ ℙ
3. ∀x,y:stream(A).  ((x R y) ⇒ ((s-hd(x) = s-hd(y) ∈ A) ∧ (s-tl(x) R s-tl(y))))
4. x : stream(A)
5. y : stream(A)
6. x R y
7. T : Type
8. (A × T) ⊆r T
9. stream(A) ⊆r T
10. ∀x,y:stream(A).  (R[x;y] ⇒ (x = y ∈ T))
11. x1 : stream(A)
12. y1 : stream(A)
13. R[x1;y1]
14. z : A × T
15. x1 = z ∈ (A × T)
⊢ ((fst(z)) = (fst(y1)) ∈ A) ⇒ ((snd(z)) = (snd(y1)) ∈ T) ⇒ (z = y1 ∈ (A × T))
BY
{ (GenConcl ⌜y1 = 4 ∈ (A × T)⌝⋅ THENA Auto)⋅ }

1
.....wf..... 
1. A : Type
2. R : stream(A) ⟶ stream(A) ⟶ ℙ
3. ∀x,y:stream(A).  ((x R y) ⇒ ((s-hd(x) = s-hd(y) ∈ A) ∧ (s-tl(x) R s-tl(y))))
4. x : stream(A)
5. y : stream(A)
6. x R y
7. T : Type
8. (A × T) ⊆r T
9. stream(A) ⊆r T
10. ∀x,y:stream(A).  (R[x;y] ⇒ (x = y ∈ T))
11. x1 : stream(A)
12. y1 : stream(A)
13. R[x1;y1]
14. z : A × T
15. x1 = z ∈ (A × T)
⊢ y1 ∈ A × T

2
1. A : Type
2. R : stream(A) ⟶ stream(A) ⟶ ℙ
3. ∀x,y:stream(A).  ((x R y) ⇒ ((s-hd(x) = s-hd(y) ∈ A) ∧ (s-tl(x) R s-tl(y))))
4. x : stream(A)
5. y : stream(A)
6. x R y
7. T : Type
8. (A × T) ⊆r T
9. stream(A) ⊆r T
10. ∀x,y:stream(A).  (R[x;y] ⇒ (x = y ∈ T))
11. x1 : stream(A)
12. y1 : stream(A)
13. R[x1;y1]
14. z : A × T
15. x1 = z ∈ (A × T)
16. 4 : A × T
17. y1 = 4 ∈ (A × T)
⊢ ((fst(z)) = (fst(4)) ∈ A) ⇒ ((snd(z)) = (snd(4)) ∈ T) ⇒ (z = 4 ∈ (A × T))

---

Latex:

---

Latex:

1.  A  :  Type
2.  R  :  stream(A)  {}\mrightarrow{}  stream(A)  {}\mrightarrow{}  \mBbbP{}
3.  \mforall{}x,y:stream(A).    ((x  R  y)  {}\mRightarrow{}  ((s-hd(x)  =  s-hd(y))  \mwedge{}  (s-tl(x)  R  s-tl(y))))
4.  x  :  stream(A)
5.  y  :  stream(A)
6.  x  R  y
7.  T  :  Type
8.  (A  \mtimes{}  T)  \msubseteq{}r  T
9.  stream(A)  \msubseteq{}r  T
10.  \mforall{}x,y:stream(A).    (R[x;y]  {}\mRightarrow{}  (x  =  y))
11.  x1  :  stream(A)
12.  y1  :  stream(A)
13.  R[x1;y1]
14.  z  :  A  \mtimes{}  T
15.  x1  =  z
\mvdash{}  ((fst(z))  =  (fst(y1)))  {}\mRightarrow{}  ((snd(z))  =  (snd(y1)))  {}\mRightarrow{}  (z  =  y1)


By

---

Latex:
(GenConcl  \mkleeneopen{}y1  =  4\mkleeneclose{}\mcdot{}  THENA  Auto)\mcdot{}

---

Home Index