---

Step * 1 3 of Lemma equipollent-partition


1. k : ℕ
2. [A] : Type
3. A ~ ℕk
4. [P] : A ⟶ ℙ
5. d : ∀x:A. Dec(P[x])
6. L : A List
7. no_repeats(A;L)
8. ||L|| = k ∈ ℤ
9. ∀x:A. (x ∈ L)
10. ∀x:A. ((isl(d x) ∈ 𝔹) ∧ (↑isl(d x) ⇐⇒ P[x]))
11. k = (||filter(λx.isl(d x);L)|| + ||filter(λx.(¬bisl(d x));L)||) ∈ ℤ
12. {a:A| P[a]}  ~ ℕ||filter(λx.isl(d x);L)||
⊢ {a:A| ¬P[a]}  ~ ℕ||filter(λx.(¬bisl(d x));L)||
BY
{ (GenConcl ⌜filter(λx.(¬bisl(d x));L) = X ∈ ({a:A| ¬P[a]}  List)⌝⋅ THEN Try (Complete (Auto))) }

1
.....wf..... 
1. k : ℕ
2. [A] : Type
3. A ~ ℕk
4. [P] : A ⟶ ℙ
5. d : ∀x:A. Dec(P[x])
6. L : A List
7. no_repeats(A;L)
8. ||L|| = k ∈ ℤ
9. ∀x:A. (x ∈ L)
10. ∀x:A. ((isl(d x) ∈ 𝔹) ∧ (↑isl(d x) ⇐⇒ P[x]))
11. k = (||filter(λx.isl(d x);L)|| + ||filter(λx.(¬bisl(d x));L)||) ∈ ℤ
12. {a:A| P[a]}  ~ ℕ||filter(λx.isl(d x);L)||
⊢ filter(λx.(¬bisl(d x));L) ∈ {a:A| ¬P[a]}  List

2
1. k : ℕ
2. [A] : Type
3. A ~ ℕk
4. [P] : A ⟶ ℙ
5. d : ∀x:A. Dec(P[x])
6. L : A List
7. no_repeats(A;L)
8. ||L|| = k ∈ ℤ
9. ∀x:A. (x ∈ L)
10. ∀x:A. ((isl(d x) ∈ 𝔹) ∧ (↑isl(d x) ⇐⇒ P[x]))
11. k = (||filter(λx.isl(d x);L)|| + ||filter(λx.(¬bisl(d x));L)||) ∈ ℤ
12. {a:A| P[a]}  ~ ℕ||filter(λx.isl(d x);L)||
13. X : {a:A| ¬P[a]}  List
14. filter(λx.(¬bisl(d x));L) = X ∈ ({a:A| ¬P[a]}  List)
⊢ {a:A| ¬P[a]}  ~ ℕ||X||

---

Latex:

---

Latex:

1.  k  :  \mBbbN{}
2.  [A]  :  Type
3.  A  \msim{}  \mBbbN{}k
4.  [P]  :  A  {}\mrightarrow{}  \mBbbP{}
5.  d  :  \mforall{}x:A.  Dec(P[x])
6.  L  :  A  List
7.  no\_repeats(A;L)
8.  ||L||  =  k
9.  \mforall{}x:A.  (x  \mmember{}  L)
10.  \mforall{}x:A.  ((isl(d  x)  \mmember{}  \mBbbB{})  \mwedge{}  (\muparrow{}isl(d  x)  \mLeftarrow{}{}\mRightarrow{}  P[x]))
11.  k  =  (||filter(\mlambda{}x.isl(d  x);L)||  +  ||filter(\mlambda{}x.(\mneg{}\msubb{}isl(d  x));L)||)
12.  \{a:A|  P[a]\}    \msim{}  \mBbbN{}||filter(\mlambda{}x.isl(d  x);L)||
\mvdash{}  \{a:A|  \mneg{}P[a]\}    \msim{}  \mBbbN{}||filter(\mlambda{}x.(\mneg{}\msubb{}isl(d  x));L)||


By

---

Latex:
(GenConcl  \mkleeneopen{}filter(\mlambda{}x.(\mneg{}\msubb{}isl(d  x));L)  =  X\mkleeneclose{}\mcdot{}  THEN  Try  (Complete  (Auto)))

---

Home Index