---

Step * of Lemma regextfun_wf

∀[T:Type]. ∀[f:T ⟶ coSet{i:l}]. ∀[w:coW(T;x.set-dom(f x))].  (regextfun(f;w) ∈ coSet{i:l})
BY
{ (Auto
   THEN (InstLemma `fix_wf_coSet_system` [⌜coW(T;x.set-dom(f x))⌝;⌜λG,w. let t,g = w in <set-dom(f t), λu.(G (g u))>⌝]⋅
         THENA (Auto THEN coWD (-1) THEN D -1 THEN Reduce 0 THEN Auto)
         )
   THEN RepUR ``regextfun mk-set Wsup`` 0
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[f:T  {}\mrightarrow{}  coSet\{i:l\}].  \mforall{}[w:coW(T;x.set-dom(f  x))].    (regextfun(f;w)  \mmember{}  coSet\{i:l\})


By

---

Latex:
(Auto
  THEN  (InstLemma  `fix\_wf\_coSet\_system`  [\mkleeneopen{}coW(T;x.set-dom(f  x))\mkleeneclose{};\mkleeneopen{}\mlambda{}G,w.  let  t,g  =  w 
                                                                                                                                              in  <set-dom(f  t)
                                                                                                                                                    ,  \mlambda{}u.(G  (g  u))
                                                                                                                                                    >\mkleeneclose{}]\mcdot{}
              THENA  (Auto  THEN  coWD  (-1)  THEN  D  -1  THEN  Reduce  0  THEN  Auto)
              )
  THEN  RepUR  ``regextfun  mk-set  Wsup``  0
  THEN  Auto)

---

Home Index