---

Step * of Lemma lnk-decl-compatible-single2

∀[l:IdLnk]. ∀[dt:tg:Id fp-> Type]. ∀[knd:Knd]. ∀[T:Type].
  lnk-decl(l;dt) || knd : T supposing (↑isrcv(knd)) ⇒ (lnk(knd) = l ∈ IdLnk) ⇒ (T = dt(tag(knd))?Void ∈ Type)
BY
{ (Unfold `fpf-compatible` 0 THEN Auto THEN (RWW "fpf-single-dom" (-1)) THEN Auto THEN HypSubst' (-1) 0 THEN Reduce 0) }

1
1. l : IdLnk
2. dt : tg:Id fp-> Type
3. knd : Knd
4. T : Type
5. (↑isrcv(knd)) ⇒ (lnk(knd) = l ∈ IdLnk) ⇒ (T = dt(tag(knd))?Void ∈ Type)
6. x : Knd@i
7. ↑x ∈ dom(lnk-decl(l;dt))@i
8. x = knd ∈ Knd
⊢ lnk-decl(l;dt)(knd) = T ∈ Type

---

Latex:

---

Latex:
\mforall{}[l:IdLnk].  \mforall{}[dt:tg:Id  fp->  Type].  \mforall{}[knd:Knd].  \mforall{}[T:Type].
    lnk-decl(l;dt)  ||  knd  :  T  supposing  (\muparrow{}isrcv(knd))  {}\mRightarrow{}  (lnk(knd)  =  l)  {}\mRightarrow{}  (T  =  dt(tag(knd))?Void)


By

---

Latex:
(Unfold  `fpf-compatible`  0
  THEN  Auto
  THEN  (RWW  "fpf-single-dom"  (-1))
  THEN  Auto
  THEN  HypSubst'  (-1)  0
  THEN  Reduce  0)

---

Home Index