---

Step * 1 2 1 1 of Lemma fpf-normalize-dom


1. A : Type
2. eq : EqDecider(A)
3. B : A ⟶ Type
4. x : A
5. G : Top
6. u : A
7. v : A List
8. x ∈b fst(reduce(λx,f. <[x / filter(λa.(¬b((eq x a) ∨bff));fst(f))], λa.<[x], λx@0.(G x)>(a)?f(a)>;<[], λx.⋅>;v)) ~ x \000C∈b v
9. ¬(u = x ∈ A)
10. L : A List
11. (fst(reduce(λx,f. <[x / filter(λa.(¬b((eq x a) ∨bff));fst(f))], λa.<[x], λx@0.(G x)>(a)?f(a)>;<[], λx.⋅>;v))) = L ∈ \000C(A List)
⊢ x ∈b filter(λa.(¬b((eq u a) ∨bff));L) ~ x ∈b L
BY
{ xxx(Auto THEN ((BLemma `iff_imp_equal_bool` THENM RW assert_pushdownC 0) THENA Auto))xxx }

---

Latex:

---

Latex:

1.  A  :  Type
2.  eq  :  EqDecider(A)
3.  B  :  A  {}\mrightarrow{}  Type
4.  x  :  A
5.  G  :  Top
6.  u  :  A
7.  v  :  A  List
8.  x  \mmember{}\msubb{}  fst(reduce(\mlambda{}x,f.  <[x  /  filter(\mlambda{}a.(\mneg{}\msubb{}((eq  x  a)  \mvee{}\msubb{}ff));fst(f))]
                                                  ,  \mlambda{}a.<[x],  \mlambda{}x@0.(G  x)>(a)?f(a)
                                                  ><[],  \mlambda{}x.\mcdot{}>v))  \msim{}  x  \mmember{}\msubb{}  v
9.  \mneg{}(u  =  x)
10.  L  :  A  List
11.  (fst(reduce(\mlambda{}x,f.  <[x  /  filter(\mlambda{}a.(\mneg{}\msubb{}((eq  x  a)  \mvee{}\msubb{}ff));fst(f))],  \mlambda{}a.<[x],  \mlambda{}x@0.(G  x)>(a)?f(a)><[\000C]
                                                                                                                                                                                          ,  \mlambda{}x.\mcdot{}
                                                                                                                                                                                          >v)))
=  L
\mvdash{}  x  \mmember{}\msubb{}  filter(\mlambda{}a.(\mneg{}\msubb{}((eq  u  a)  \mvee{}\msubb{}ff));L)  \msim{}  x  \mmember{}\msubb{}  L


By

---

Latex:
xxx(Auto  THEN  ((BLemma  `iff\_imp\_equal\_bool`  THENM  RW  assert\_pushdownC  0)  THENA  Auto))xxx

---

Home Index