---

Step * 1 2 3 of Lemma member-fpf-vals


1. [A] : Type
2. eq : EqDecider(A)@i
3. [B] : A ─→ Type
4. P : A ─→ 𝔹@i
5. d : A List@i
6. f1 : x:{x:A| (x ∈ d)}  ─→ B[x]@i
7. x : A@i
8. v : B[x]@i
9. u : A@i
10. v1 : A List@i
11. ∀g:x:{x:A| (x ∈ v1)}  ─→ B[x]
      ((<x, v> ∈ zip(filter(P;v1);map(g;filter(P;v1)))) ⇐⇒ {((↑x ∈b v1)) ∧ (↑(P x))) ∧ (v = (g x) ∈ B[x])})@i
⊢ ∀g:x:{x:A| (x ∈ [u / v1])}  ─→ B[x]
    ((<x, v> ∈ zip(if P u then [u / filter(P;v1)] else filter(P;v1) fi ;map(g;if P u
                                                                            then [u / filter(P;v1)]
                                                                            else filter(P;v1)
                                                                            fi )))
    ⇐⇒ {((↑((eq u x) ∨bx ∈b v1))) ∧ (↑(P x))) ∧ (v = (g x) ∈ B[x])})
BY
{ ((D 0 THENA Auto) THEN (InstHyp [⌈g⌉] (-2))⋅) }

1
.....wf..... 
1. A : Type
2. eq : EqDecider(A)@i
3. B : A ─→ Type
4. P : A ─→ 𝔹@i
5. d : A List@i
6. f1 : x:{x:A| (x ∈ d)}  ─→ B[x]@i
7. x : A@i
8. v : B[x]@i
9. u : A@i
10. v1 : A List@i
11. ∀g:x:{x:A| (x ∈ v1)}  ─→ B[x]
      ((<x, v> ∈ zip(filter(P;v1);map(g;filter(P;v1)))) ⇐⇒ {((↑x ∈b v1)) ∧ (↑(P x))) ∧ (v = (g x) ∈ B[x])})@i
12. g : x:{x:A| (x ∈ [u / v1])}  ─→ B[x]@i
⊢ g ∈ x:{x:A| (x ∈ v1)}  ─→ B[x]

2
1. [A] : Type
2. eq : EqDecider(A)@i
3. [B] : A ─→ Type
4. P : A ─→ 𝔹@i
5. d : A List@i
6. f1 : x:{x:A| (x ∈ d)}  ─→ B[x]@i
7. x : A@i
8. v : B[x]@i
9. u : A@i
10. v1 : A List@i
11. ∀g:x:{x:A| (x ∈ v1)}  ─→ B[x]
      ((<x, v> ∈ zip(filter(P;v1);map(g;filter(P;v1)))) ⇐⇒ {((↑x ∈b v1)) ∧ (↑(P x))) ∧ (v = (g x) ∈ B[x])})@i
12. g : x:{x:A| (x ∈ [u / v1])}  ─→ B[x]@i
13. (<x, v> ∈ zip(filter(P;v1);map(g;filter(P;v1)))) ⇐⇒ {((↑x ∈b v1)) ∧ (↑(P x))) ∧ (v = (g x) ∈ B[x])}
⊢ (<x, v> ∈ zip(if P u then [u / filter(P;v1)] else filter(P;v1) fi ;map(g;if P u
                                                                         then [u / filter(P;v1)]
                                                                         else filter(P;v1)
                                                                         fi )))
⇐⇒ {((↑((eq u x) ∨bx ∈b v1))) ∧ (↑(P x))) ∧ (v = (g x) ∈ B[x])}

---

Latex:



1.  [A]  :  Type
2.  eq  :  EqDecider(A)@i
3.  [B]  :  A  {}\mrightarrow{}  Type
4.  P  :  A  {}\mrightarrow{}  \mBbbB{}@i
5.  d  :  A  List@i
6.  f1  :  x:\{x:A|  (x  \mmember{}  d)\}    {}\mrightarrow{}  B[x]@i
7.  x  :  A@i
8.  v  :  B[x]@i
9.  u  :  A@i
10.  v1  :  A  List@i
11.  \mforall{}g:x:\{x:A|  (x  \mmember{}  v1)\}    {}\mrightarrow{}  B[x]
            ((<x,  v>  \mmember{}  zip(filter(P;v1);map(g;filter(P;v1))))
            \mLeftarrow{}{}\mRightarrow{}  \{((\muparrow{}x  \mmember{}\msubb{}  v1))  \mwedge{}  (\muparrow{}(P  x)))  \mwedge{}  (v  =  (g  x))\})@i
\mvdash{}  \mforall{}g:x:\{x:A|  (x  \mmember{}  [u  /  v1])\}    {}\mrightarrow{}  B[x]
        ((<x,  v>  \mmember{}  zip(if  P  u  then  [u  /  filter(P;v1)]  else  filter(P;v1)  fi  ;map(g;if  P  u
                                                                                                                                                        then  [u  /  filter(P;v1)]
                                                                                                                                                        else  filter(P;v1)
                                                                                                                                                        fi  )))
        \mLeftarrow{}{}\mRightarrow{}  \{((\muparrow{}((eq  u  x)  \mvee{}\msubb{}x  \mmember{}\msubb{}  v1)))  \mwedge{}  (\muparrow{}(P  x)))  \mwedge{}  (v  =  (g  x))\})


By

((D  0  THENA  Auto)  THEN  (InstHyp  [\mkleeneopen{}g\mkleeneclose{}]  (-2))\mcdot{})

---

Home Index