---

Step * 1 1 of Lemma count-by-equiv


1. [A] : Type
2. [E] : A ⟶ A ⟶ ℙ
3. EquivRel(A;x,y.E[x;y])
4. L : A List
5. (∀a,b∈L.  ¬E[a;b])
6. ∀a:A. ∃b:A. ((b ∈ L) ∧ E[a;b])
7. rep : a:A ⟶ A
8. ∀a:A. ((rep a ∈ L) ∧ E[a;rep a])
9. ∀a:A. ∃i:ℕ. (i < ||L|| ∧ ((rep a) = L[i] ∈ A))
10. f : a:A ⟶ ℕ
11. ∀a:A. (f a < ||L|| ∧ ((rep a) = L[f a] ∈ A))
12. ∀a:A. E[a;L[f a]]
⊢ A ~ i:ℕ||L|| × {a:A| E[a;L[i]]} 
BY
{ With ⌜λa.<f a, a>⌝ (D 0)⋅ }

1
.....wf..... 
1. A : Type
2. E : A ⟶ A ⟶ ℙ
3. EquivRel(A;x,y.E[x;y])
4. L : A List
5. (∀a,b∈L.  ¬E[a;b])
6. ∀a:A. ∃b:A. ((b ∈ L) ∧ E[a;b])
7. rep : a:A ⟶ A
8. ∀a:A. ((rep a ∈ L) ∧ E[a;rep a])
9. ∀a:A. ∃i:ℕ. (i < ||L|| ∧ ((rep a) = L[i] ∈ A))
10. f : a:A ⟶ ℕ
11. ∀a:A. (f a < ||L|| ∧ ((rep a) = L[f a] ∈ A))
12. ∀a:A. E[a;L[f a]]
⊢ λa.<f a, a> ∈ A ⟶ (i:ℕ||L|| × {a:A| E[a;L[i]]} )

2
1. [A] : Type
2. [E] : A ⟶ A ⟶ ℙ
3. EquivRel(A;x,y.E[x;y])
4. L : A List
5. (∀a,b∈L.  ¬E[a;b])
6. ∀a:A. ∃b:A. ((b ∈ L) ∧ E[a;b])
7. rep : a:A ⟶ A
8. ∀a:A. ((rep a ∈ L) ∧ E[a;rep a])
9. ∀a:A. ∃i:ℕ. (i < ||L|| ∧ ((rep a) = L[i] ∈ A))
10. f : a:A ⟶ ℕ
11. ∀a:A. (f a < ||L|| ∧ ((rep a) = L[f a] ∈ A))
12. ∀a:A. E[a;L[f a]]
⊢ Bij(A;i:ℕ||L|| × {a:A| E[a;L[i]]} ;λa.<f a, a>)

3
.....wf..... 
1. A : Type
2. E : A ⟶ A ⟶ ℙ
3. EquivRel(A;x,y.E[x;y])
4. L : A List
5. (∀a,b∈L.  ¬E[a;b])
6. ∀a:A. ∃b:A. ((b ∈ L) ∧ E[a;b])
7. rep : a:A ⟶ A
8. ∀a:A. ((rep a ∈ L) ∧ E[a;rep a])
9. ∀a:A. ∃i:ℕ. (i < ||L|| ∧ ((rep a) = L[i] ∈ A))
10. f : a:A ⟶ ℕ
11. ∀a:A. (f a < ||L|| ∧ ((rep a) = L[f a] ∈ A))
12. ∀a:A. E[a;L[f a]]
13. f1 : A ⟶ (i:ℕ||L|| × {a:A| E[a;L[i]]} )
⊢ istype(Bij(A;i:ℕ||L|| × {a:A| E[a;L[i]]} ;f1))

---

Latex:

---

Latex:

1.  [A]  :  Type
2.  [E]  :  A  {}\mrightarrow{}  A  {}\mrightarrow{}  \mBbbP{}
3.  EquivRel(A;x,y.E[x;y])
4.  L  :  A  List
5.  (\mforall{}a,b\mmember{}L.    \mneg{}E[a;b])
6.  \mforall{}a:A.  \mexists{}b:A.  ((b  \mmember{}  L)  \mwedge{}  E[a;b])
7.  rep  :  a:A  {}\mrightarrow{}  A
8.  \mforall{}a:A.  ((rep  a  \mmember{}  L)  \mwedge{}  E[a;rep  a])
9.  \mforall{}a:A.  \mexists{}i:\mBbbN{}.  (i  <  ||L||  \mwedge{}  ((rep  a)  =  L[i]))
10.  f  :  a:A  {}\mrightarrow{}  \mBbbN{}
11.  \mforall{}a:A.  (f  a  <  ||L||  \mwedge{}  ((rep  a)  =  L[f  a]))
12.  \mforall{}a:A.  E[a;L[f  a]]
\mvdash{}  A  \msim{}  i:\mBbbN{}||L||  \mtimes{}  \{a:A|  E[a;L[i]]\} 


By

---

Latex:
With  \mkleeneopen{}\mlambda{}a.<f  a,  a>\mkleeneclose{}  (D  0)\mcdot{}

---

Home Index