---

Step * 3 1 1 1 1 1 of Lemma tuple-equiv-is-equiv


1. L : (X:Type × (X ⟶ X ⟶ ℙ)) List
2. Sym(tuple-type(map(λp.(fst(p));L));t,t'.∀i:ℕ||L||. ((snd(L[i])) t.i t'.i))
3. a : tuple-type(map(λp.(fst(p));L))
4. b : tuple-type(map(λp.(fst(p));L))
5. c : tuple-type(map(λp.(fst(p));L))
6. ∀i:ℕ||L||. ((snd(L[i])) b.i c.i)
7. i : ℕ||L||
8. X : Type
9. v1 : X ⟶ X ⟶ ℙ
10. L[i] = <X, v1> ∈ (X:Type × (X ⟶ X ⟶ ℙ))
11. a.i ∈ X
12. b.i ∈ X
13. c.i ∈ X
14. EquivRel(X;x,y.v1 x y)
15. v1 a.i b.i
16. v1 b.i c.i
⊢ v1 a.i c.i
BY
{ (D -3 THEN Auto) }

---

Latex:

---

Latex:

1.  L  :  (X:Type  \mtimes{}  (X  {}\mrightarrow{}  X  {}\mrightarrow{}  \mBbbP{}))  List
2.  Sym(tuple-type(map(\mlambda{}p.(fst(p));L));t,t'.\mforall{}i:\mBbbN{}||L||.  ((snd(L[i]))  t.i  t'.i))
3.  a  :  tuple-type(map(\mlambda{}p.(fst(p));L))
4.  b  :  tuple-type(map(\mlambda{}p.(fst(p));L))
5.  c  :  tuple-type(map(\mlambda{}p.(fst(p));L))
6.  \mforall{}i:\mBbbN{}||L||.  ((snd(L[i]))  b.i  c.i)
7.  i  :  \mBbbN{}||L||
8.  X  :  Type
9.  v1  :  X  {}\mrightarrow{}  X  {}\mrightarrow{}  \mBbbP{}
10.  L[i]  =  <X,  v1>
11.  a.i  \mmember{}  X
12.  b.i  \mmember{}  X
13.  c.i  \mmember{}  X
14.  EquivRel(X;x,y.v1  x  y)
15.  v1  a.i  b.i
16.  v1  b.i  c.i
\mvdash{}  v1  a.i  c.i


By

---

Latex:
(D  -3  THEN  Auto)

---

Home Index