---

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

.....wf..... 
1. l : IdLnk@i
2. da : k:Knd fp-> Type@i'
3. tg : Id@i
4. (rcv(l,tg) ∈ fpf-domain(da))@i
5. x : Knd
⊢ (x ∈ fpf-domain(da))
  ∧ ((↑isl(if isrcv(x) then if lnk(x) = l then inl tag(x) else inr ⋅  fi  else inr ⋅  fi ))
    c∧ (tg = outl(if isrcv(x) then if lnk(x) = l then inl tag(x) else inr ⋅  fi  else inr ⋅  fi ) ∈ Id)) ∈ ℙ
BY
{ (Reduce 0 THEN RepeatFor 3 ((MemCD THEN Try (Complete (Auto)))) THEN RepeatFor 2 (AutoSplit)) }

---

Latex:


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


By

(Reduce  0  THEN  RepeatFor  3  ((MemCD  THEN  Try  (Complete  (Auto))))  THEN  RepeatFor  2  (AutoSplit))

---

Home Index