---

Step * 1 1 2 of Lemma es-dt-dom

.....wf..... 
1. l : IdLnk@i
2. da : k:Knd fp-> Type@i'
3. tg : Id@i
4. -any : ∃x:Knd
           ((x ∈ fpf-domain(da))
           ∧ ((↑isl((λk.if isrcv(k) then if lnk(k) = l then inl tag(k) else inr ⋅  fi  else inr ⋅  fi ) x))
             c∧ (tg
                = outl((λk.if isrcv(k) then if lnk(k) = l then inl tag(k) else inr ⋅  fi  else inr ⋅  fi ) x)
                ∈ Id))) ∈ Type
⊢ (tg
    ∈ fpf-domain(compose-fpf(λk.if isrcv(k) then if lnk(k) = l then inl tag(k) else inr ⋅  fi  else inr ⋅  fi ;...;da)))
  ∈ Type
BY
{ (Fold `es-dt` 0 THEN Auto) }

---

Latex:

---

Latex:
.....wf..... 
1.  l  :  IdLnk@i
2.  da  :  k:Knd  fp->  Type@i'
3.  tg  :  Id@i
4.  -any  :  \mexists{}x:Knd
                      ((x  \mmember{}  fpf-domain(da))
                      \mwedge{}  ((\muparrow{}isl((\mlambda{}k.if  isrcv(k)
                                                then  if  lnk(k)  =  l  then  inl  tag(k)  else  inr  \mcdot{}    fi 
                                                else  inr  \mcdot{} 
                                                fi  ) 
                                        x))
                          c\mwedge{}  (tg
                                =  outl((\mlambda{}k.if  isrcv(k)
                                                      then  if  lnk(k)  =  l  then  inl  tag(k)  else  inr  \mcdot{}    fi 
                                                      else  inr  \mcdot{} 
                                                      fi  ) 
                                              x))))  \mmember{}  Type
\mvdash{}  (tg  \mmember{}  fpf-domain(compose-fpf(\mlambda{}k.if  isrcv(k)
                                                                    then  if  lnk(k)  =  l  then  inl  tag(k)  else  inr  \mcdot{}    fi 
                                                                    else  inr  \mcdot{} 
                                                                    fi  ;\mlambda{}tg.rcv(l,tg);da)))  \mmember{}  Type


By

---

Latex:
(Fold  `es-dt`  0  THEN  Auto)

---

Home Index