---

Step * 1 1 1 2 2 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. ∃i:ℕ||L||. E[a;L[i]]
7. rep : a:A ⟶ ℕ||L||
8. ∀a:A. E[a;L[rep a]]
9. ∀i,j:ℕ||L||.  (E[L[i];L[j]] ⇒ (i = j ∈ ℤ))
10. a : A
11. b : A
12. E[a;b]
⊢ (rep a) = (rep b) ∈ ℕ||L||
BY
{ ((EqTypeCD THENA Auto') THEN BackThruSomeHyp THEN UseTrans ⌜b⌝⋅ THEN Auto') }

---

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{}i:\mBbbN{}||L||.  E[a;L[i]]
7.  rep  :  a:A  {}\mrightarrow{}  \mBbbN{}||L||
8.  \mforall{}a:A.  E[a;L[rep  a]]
9.  \mforall{}i,j:\mBbbN{}||L||.    (E[L[i];L[j]]  {}\mRightarrow{}  (i  =  j))
10.  a  :  A
11.  b  :  A
12.  E[a;b]
\mvdash{}  (rep  a)  =  (rep  b)


By

---

Latex:
((EqTypeCD  THENA  Auto')  THEN  BackThruSomeHyp  THEN  UseTrans  \mkleeneopen{}b\mkleeneclose{}\mcdot{}  THEN  Auto')

---

Home Index