---

Step * 3 1 of Lemma finite-union


1. S : Type
2. T : Type
3. n : ℕ
4. L : (S + T) List
5. no_repeats(S + T;L)
6. ||L|| = n ∈ ℤ
7. ∀x:S + T. (x ∈ L)
8. mapfilter(λx.outr(x);λx.isr(x);L) ∈ T List
⊢ ∃n:ℕ. T ~ ℕn
BY
{ ((D 0 With ⌜||mapfilter(λx.outr(x);λx.isr(x);L)||⌝  THENA Auto)
   THEN (RWO "equipollent-iff-list" 0 THENA Auto)
   THEN D 0 With ⌜mapfilter(λx.outr(x);λx.isr(x);L)⌝ 
   THEN Auto) }

1
1. S : Type
2. T : Type
3. n : ℕ
4. L : (S + T) List
5. no_repeats(S + T;L)
6. ||L|| = n ∈ ℤ
7. ∀x:S + T. (x ∈ L)
8. mapfilter(λx.outr(x);λx.isr(x);L) ∈ T List
⊢ no_repeats(T;mapfilter(λx.outr(x);λx.isr(x);L))

2
1. S : Type
2. T : Type
3. n : ℕ
4. L : (S + T) List
5. no_repeats(S + T;L)
6. ||L|| = n ∈ ℤ
7. ∀x:S + T. (x ∈ L)
8. mapfilter(λx.outr(x);λx.isr(x);L) ∈ T List
9. no_repeats(T;mapfilter(λx.outr(x);λx.isr(x);L))
10. ||mapfilter(λx.outr(x);λx.isr(x);L)|| = ||mapfilter(λx.outr(x);λx.isr(x);L)|| ∈ ℤ
11. x : T
⊢ (x ∈ mapfilter(λx.outr(x);λx.isr(x);L))

---

Latex:

---

Latex:

1.  S  :  Type
2.  T  :  Type
3.  n  :  \mBbbN{}
4.  L  :  (S  +  T)  List
5.  no\_repeats(S  +  T;L)
6.  ||L||  =  n
7.  \mforall{}x:S  +  T.  (x  \mmember{}  L)
8.  mapfilter(\mlambda{}x.outr(x);\mlambda{}x.isr(x);L)  \mmember{}  T  List
\mvdash{}  \mexists{}n:\mBbbN{}.  T  \msim{}  \mBbbN{}n


By

---

Latex:
((D  0  With  \mkleeneopen{}||mapfilter(\mlambda{}x.outr(x);\mlambda{}x.isr(x);L)||\mkleeneclose{}    THENA  Auto)
  THEN  (RWO  "equipollent-iff-list"  0  THENA  Auto)
  THEN  D  0  With  \mkleeneopen{}mapfilter(\mlambda{}x.outr(x);\mlambda{}x.isr(x);L)\mkleeneclose{} 
  THEN  Auto)

---

Home Index