Step
*
2
2
1
of Lemma
orderedpair-first
1. a : coSet{i:l}
2. b : coSet{i:l}
3. ∃x:coSet{i:l}. (x ∈ (a,b))
4. ({a} ⊆ ⋂((a,b)))
⊢ (⋂((a,b)) ⊆ {a})
BY
{ ((BLemma `setsubset-iff` THENW Auto)
   THEN (RWO "setmem-intersectionset" 0 THENA Auto)
   THEN Unfold `orderedpairset` 0
   THEN RWO "setmem-pairset" 0
   THEN Auto) }
Latex:
Latex:
1.  a  :  coSet\{i:l\}
2.  b  :  coSet\{i:l\}
3.  \mexists{}x:coSet\{i:l\}.  (x  \mmember{}  (a,b))
4.  (\{a\}  \msubseteq{}  \mcap{}((a,b)))
\mvdash{}  (\mcap{}((a,b))  \msubseteq{}  \{a\})
By
Latex:
((BLemma  `setsubset-iff`  THENW  Auto)
  THEN  (RWO  "setmem-intersectionset"  0  THENA  Auto)
  THEN  Unfold  `orderedpairset`  0
  THEN  RWO  "setmem-pairset"  0
  THEN  Auto)
Home
Index