---

Step * 2 1 1 1 1 of Lemma setmem-sigmaset


1. T : Type
2. f : T ⟶ coSet{i:l}
3. B : {a:coSet{i:l}| (a ∈ mk-coset(T;f))}  ⟶ coSet{i:l}
4. ∀a1,a2:coSet{i:l}.  ((a1 ∈ mk-coset(T;f)) ⇒ (a2 ∈ mk-coset(T;f)) ⇒ seteq(a1;a2) ⇒ seteq(B[a1];B[a2]))
5. x : coSet{i:l}
6. a : coSet{i:l}
7. t : T
8. seteq(a;f t)
9. b : coSet{i:l}
10. t1 : set-dom(B[f t])
11. seteq(b;set-item(B[f t];t1))
12. seteq(x;(a,b))
13. ∀t:T. (f t ∈ {a:coSet{i:l}| (a ∈ mk-coset(T;f))} )
14. seteq(B[a];B[f t])
⊢ seteq(x;(f t,set-item(B[f t];t1)))
BY
{ (RWO  "-3" 0 THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  f  :  T  {}\mrightarrow{}  coSet\{i:l\}
3.  B  :  \{a:coSet\{i:l\}|  (a  \mmember{}  mk-coset(T;f))\}    {}\mrightarrow{}  coSet\{i:l\}
4.  \mforall{}a1,a2:coSet\{i:l\}.
          ((a1  \mmember{}  mk-coset(T;f))  {}\mRightarrow{}  (a2  \mmember{}  mk-coset(T;f))  {}\mRightarrow{}  seteq(a1;a2)  {}\mRightarrow{}  seteq(B[a1];B[a2]))
5.  x  :  coSet\{i:l\}
6.  a  :  coSet\{i:l\}
7.  t  :  T
8.  seteq(a;f  t)
9.  b  :  coSet\{i:l\}
10.  t1  :  set-dom(B[f  t])
11.  seteq(b;set-item(B[f  t];t1))
12.  seteq(x;(a,b))
13.  \mforall{}t:T.  (f  t  \mmember{}  \{a:coSet\{i:l\}|  (a  \mmember{}  mk-coset(T;f))\}  )
14.  seteq(B[a];B[f  t])
\mvdash{}  seteq(x;(f  t,set-item(B[f  t];t1)))


By

---

Latex:
(RWO    "-3"  0  THEN  Auto)

---

Home Index