---

Step * 1 of Lemma equipollent-distinct-representatives


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∈L. E[a;b])
⊢ x,y:A//E[x;y] ~ ℕ||L||
BY
{ Assert ⌜∃f:A ⟶ ℕ||L||. ((∀a,b:A.  ((f a) = (f b) ∈ ℕ||L|| ⇐⇒ E[a;b])) ∧ (∀i:ℕ||L||. ∃a:A. ((f a) = i ∈ ℕ||L||)))⌝⋅ }

1
.....assertion..... 
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∈L. E[a;b])
⊢ ∃f:A ⟶ ℕ||L||. ((∀a,b:A.  ((f a) = (f b) ∈ ℕ||L|| ⇐⇒ E[a;b])) ∧ (∀i:ℕ||L||. ∃a:A. ((f a) = i ∈ ℕ||L||)))

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∈L. E[a;b])
7. ∃f:A ⟶ ℕ||L||. ((∀a,b:A.  ((f a) = (f b) ∈ ℕ||L|| ⇐⇒ E[a;b])) ∧ (∀i:ℕ||L||. ∃a:A. ((f a) = i ∈ ℕ||L||)))
⊢ x,y:A//E[x;y] ~ ℕ||L||

---

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\mmember{}L.  E[a;b])
\mvdash{}  x,y:A//E[x;y]  \msim{}  \mBbbN{}||L||


By

---

Latex:
Assert  \mkleeneopen{}\mexists{}f:A  {}\mrightarrow{}  \mBbbN{}||L||.  ((\mforall{}a,b:A.    ((f  a)  =  (f  b)  \mLeftarrow{}{}\mRightarrow{}  E[a;b]))  \mwedge{}  (\mforall{}i:\mBbbN{}||L||.  \mexists{}a:A.  ((f  a)  =  i)))\mkleeneclose{}\mcdot{}

---

Home Index