---

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


1. L : (X:Type × (X ⟶ X ⟶ ℙ)) List
2. a : tuple-type(map(λp.(fst(p));L))
3. b : tuple-type(map(λp.(fst(p));L))
4. ∀i:ℕ||L||. ((snd(L[i])) a.i b.i)
5. i : ℕ||L||
6. X : Type
7. v1 : X ⟶ X ⟶ ℙ
8. L[i] = <X, v1> ∈ (X:Type × (X ⟶ X ⟶ ℙ))
⊢ EquivRel(X;x,y.v1 x y) ⇒ (v1 a.i b.i) ⇒ (v1 b.i a.i)
BY
{ (Assert a.i ∈ X BY
         (DoSubsume THEN Auto THEN RWO "select-map" 0 THEN Reduce 0 THEN Auto THEN RWO "-2" 0 THEN Auto)) }

1
1. L : (X:Type × (X ⟶ X ⟶ ℙ)) List
2. a : tuple-type(map(λp.(fst(p));L))
3. b : tuple-type(map(λp.(fst(p));L))
4. ∀i:ℕ||L||. ((snd(L[i])) a.i b.i)
5. i : ℕ||L||
6. X : Type
7. v1 : X ⟶ X ⟶ ℙ
8. L[i] = <X, v1> ∈ (X:Type × (X ⟶ X ⟶ ℙ))
9. a.i ∈ X
⊢ EquivRel(X;x,y.v1 x y) ⇒ (v1 a.i b.i) ⇒ (v1 b.i a.i)

---

Latex:

---

Latex:

1.  L  :  (X:Type  \mtimes{}  (X  {}\mrightarrow{}  X  {}\mrightarrow{}  \mBbbP{}))  List
2.  a  :  tuple-type(map(\mlambda{}p.(fst(p));L))
3.  b  :  tuple-type(map(\mlambda{}p.(fst(p));L))
4.  \mforall{}i:\mBbbN{}||L||.  ((snd(L[i]))  a.i  b.i)
5.  i  :  \mBbbN{}||L||
6.  X  :  Type
7.  v1  :  X  {}\mrightarrow{}  X  {}\mrightarrow{}  \mBbbP{}
8.  L[i]  =  <X,  v1>
\mvdash{}  EquivRel(X;x,y.v1  x  y)  {}\mRightarrow{}  (v1  a.i  b.i)  {}\mRightarrow{}  (v1  b.i  a.i)


By

---

Latex:
(Assert  a.i  \mmember{}  X  BY
              (DoSubsume
                THEN  Auto
                THEN  RWO  "select-map"  0
                THEN  Reduce  0
                THEN  Auto
                THEN  RWO  "-2"  0
                THEN  Auto))

---

Home Index