Step
*
1
of Lemma
seteq-orderedpairs-iff
1. a : coSet{i:l}
2. b : coSet{i:l}
3. a' : coSet{i:l}
4. b' : coSet{i:l}
5. seteq((a,b);(a',b'))
⊢ seteq(a;a') ∧ seteq(b;b')
BY
{ ((RWO "co-seteq-iff" (-1) THENA Auto) THEN Unfold `orderedpairset` -1 THEN (RWO "setmem-pairset" (-1)⋅ THENA Auto)) }
1
1. a : coSet{i:l}
2. b : coSet{i:l}
3. a' : coSet{i:l}
4. b' : coSet{i:l}
5. ∀z:coSet{i:l}. (seteq(z;{a}) ∨ seteq(z;{a,b}) 
⇐⇒ seteq(z;{a'}) ∨ seteq(z;{a',b'}))
⊢ seteq(a;a') ∧ seteq(b;b')
Latex:
Latex:
1.  a  :  coSet\{i:l\}
2.  b  :  coSet\{i:l\}
3.  a'  :  coSet\{i:l\}
4.  b'  :  coSet\{i:l\}
5.  seteq((a,b);(a',b'))
\mvdash{}  seteq(a;a')  \mwedge{}  seteq(b;b')
By
Latex:
((RWO  "co-seteq-iff"  (-1)  THENA  Auto)
  THEN  Unfold  `orderedpairset`  -1
  THEN  (RWO  "setmem-pairset"  (-1)\mcdot{}  THENA  Auto))
Home
Index