---

Step * 1 3 2 1 1 of Lemma equipollent-partition

.....assertion..... 
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)
⊢ no_repeats(A;X)
BY
{ (RevHypSubst (-1) 0 THEN Auto) }

---

Latex:

---

Latex:
.....assertion..... 
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)||
13.  X  :  \{a:A|  \mneg{}P[a]\}    List
14.  filter(\mlambda{}x.(\mneg{}\msubb{}isl(d  x));L)  =  X
\mvdash{}  no\_repeats(A;X)


By

---

Latex:
(RevHypSubst  (-1)  0  THEN  Auto)

---

Home Index