---

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


1. l : IdLnk@i
2. da : k:Knd fp-> Type@i'
3. tg : Id@i
⊢ ∃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)))
⇐⇒ (rcv(l,tg) ∈ fpf-domain(da))
BY
{ Reduce 0 }

1
1. l : IdLnk@i
2. da : k:Knd fp-> Type@i'
3. tg : Id@i
⊢ ∃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)))
⇐⇒ (rcv(l,tg) ∈ fpf-domain(da))

---

Latex:



1.  l  :  IdLnk@i
2.  da  :  k:Knd  fp->  Type@i'
3.  tg  :  Id@i
\mvdash{}  \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))))
\mLeftarrow{}{}\mRightarrow{}  (rcv(l,tg)  \mmember{}  fpf-domain(da))


By

Reduce  0

---

Home Index