---

Step * 2 of Lemma select-tagged-indices-aux_wf


1. A : Type
2. B : Type
3. tg : A ─→ B
4. P : A ─→ 𝔹
5. u : A
6. v : A List
7. select-tagged-indices-aux(P;tg;v) ∈ ℕ ─→ ((ℕ × B) List)
⊢ select-tagged-indices-aux(P;tg;[u / v]) ∈ ℕ ─→ ((ℕ × B) List)
BY
{ Unfold `select-tagged-indices-aux` 0 THEN Reduce 0⋅ }

1
1. A : Type
2. B : Type
3. tg : A ─→ B
4. P : A ─→ 𝔹
5. u : A
6. v : A List
7. select-tagged-indices-aux(P;tg;v) ∈ ℕ ─→ ((ℕ × B) List)
⊢ if P u
  then λn.[<n, tg u> / 
           (rec-case(v) of
            [] => λn.[]
            h::t =>
             r.if P h then λn.[<n, tg h> / (r (n + 1))] else λn.(r (n + 1)) fi  
            (n + 1))]
  else λn.(rec-case(v) of
           [] => λn.[]
           h::t =>
            r.if P h then λn.[<n, tg h> / (r (n + 1))] else λn.(r (n + 1)) fi  
           (n + 1))
  fi  ∈ ℕ ─→ ((ℕ × B) List)

---

Latex:

---

Latex:

1.  A  :  Type
2.  B  :  Type
3.  tg  :  A  {}\mrightarrow{}  B
4.  P  :  A  {}\mrightarrow{}  \mBbbB{}
5.  u  :  A
6.  v  :  A  List
7.  select-tagged-indices-aux(P;tg;v)  \mmember{}  \mBbbN{}  {}\mrightarrow{}  ((\mBbbN{}  \mtimes{}  B)  List)
\mvdash{}  select-tagged-indices-aux(P;tg;[u  /  v])  \mmember{}  \mBbbN{}  {}\mrightarrow{}  ((\mBbbN{}  \mtimes{}  B)  List)


By

---

Latex:
Unfold  `select-tagged-indices-aux`  0  THEN  Reduce  0\mcdot{}

---

Home Index