---

Step * 1 of Lemma equipollent-identity


1. A : Type
2. B : Type
3. B ~ Unit@i
4. a1 : B × A@i
5. a2 : B × A@i
6. (snd(a1)) = (snd(a2)) ∈ A@i
⊢ a1 = a2 ∈ (B × A)
BY
{ (D (-3) THEN D -2 THEN All Reduce THEN EqCD THEN Auto) }

1
.....subterm..... T:t
1:n
1. A : Type
2. B : Type
3. B ~ Unit@i
4. a3 : B@i
5. a4 : A@i
6. a5 : B@i
7. a6 : A@i
8. a4 = a6 ∈ A@i
⊢ a3 = a5 ∈ B

---

Latex:

---

Latex:

1.  A  :  Type
2.  B  :  Type
3.  B  \msim{}  Unit@i
4.  a1  :  B  \mtimes{}  A@i
5.  a2  :  B  \mtimes{}  A@i
6.  (snd(a1))  =  (snd(a2))@i
\mvdash{}  a1  =  a2


By

---

Latex:
(D  (-3)  THEN  D  -2  THEN  All  Reduce  THEN  EqCD  THEN  Auto)

---

Home Index