Step
*
of Lemma
set-part_wf
∀[s:coSet{i:l}]. (set-part(s) ∈ Set{i:l})
BY
{ (Auto
   THEN coSetD 1
   THEN D 1
   THEN RepUR ``set-part sub-set`` 0
   THEN Fold `Wsup` 0
   THEN Fold `mk-set` 0
   THEN RepeatFor 2 (MemCD)
   THEN Try ((D -1 THEN Reduce 0 THEN BLemma `coSet-is-Set` THEN Auto))
   THEN Auto) }
Latex:
Latex:
\mforall{}[s:coSet\{i:l\}].  (set-part(s)  \mmember{}  Set\{i:l\})
By
Latex:
(Auto
  THEN  coSetD  1
  THEN  D  1
  THEN  RepUR  ``set-part  sub-set``  0
  THEN  Fold  `Wsup`  0
  THEN  Fold  `mk-set`  0
  THEN  RepeatFor  2  (MemCD)
  THEN  Try  ((D  -1  THEN  Reduce  0  THEN  BLemma  `coSet-is-Set`  THEN  Auto))
  THEN  Auto)
Home
Index