---

Step * 1 1 of Lemma map-concat-filter-lemma2

.....antecedent..... 
1. C : Id ─→ Type
2. A : Type
3. B : Type
4. L2 : (tg:Id × (A ─→ B ─→ (C[tg] List))) List
5. L : (l:IdLnk × t:Id × C[t]) List
6. tg : Id
7. a : A
8. b : B
9. map(λx.(snd(x));L) = concat(map(λtgf.map(λx.<fst(tgf), x>;(snd(tgf)) a b);L2)) ∈ ((tg:Id × C[tg]) List)
⊢ map(λx.(snd(x));L) = concat(map(λtgf.map(λx.<fst(tgf), x>;(snd(tgf)) a b);L2)) ∈ ((tg:Id × Top) List)
BY
{ ((HypSubst (-1) 0) THEN Auto) }

---

Latex:


.....antecedent..... 
1.  C  :  Id  {}\mrightarrow{}  Type
2.  A  :  Type
3.  B  :  Type
4.  L2  :  (tg:Id  \mtimes{}  (A  {}\mrightarrow{}  B  {}\mrightarrow{}  (C[tg]  List)))  List
5.  L  :  (l:IdLnk  \mtimes{}  t:Id  \mtimes{}  C[t])  List
6.  tg  :  Id
7.  a  :  A
8.  b  :  B
9.  map(\mlambda{}x.(snd(x));L)  =  concat(map(\mlambda{}tgf.map(\mlambda{}x.<fst(tgf),  x>(snd(tgf))  a  b);L2))
\mvdash{}  map(\mlambda{}x.(snd(x));L)  =  concat(map(\mlambda{}tgf.map(\mlambda{}x.<fst(tgf),  x>(snd(tgf))  a  b);L2))


By

((HypSubst  (-1)  0)  THEN  Auto)

---

Home Index