---

Step * of Lemma co-cons_one_one

∀[T:Type]. ∀[a,a':T]. ∀[b,b':colist(T)].  uiff([a / b] = [a' / b'] ∈ colist(T);{(a = a' ∈ T) ∧ (b = b' ∈ colist(T))})
BY
{ (Unfold `guard` 0 THEN Auto) }

1
1. T : Type
2. a : T
3. a' : T
4. b : colist(T)
5. b' : colist(T)
6. [a / b] = [a' / b'] ∈ colist(T)
⊢ a = a' ∈ T

2
1. T : Type
2. a : T
3. a' : T
4. b : colist(T)
5. b' : colist(T)
6. [a / b] = [a' / b'] ∈ colist(T)
⊢ b = b' ∈ colist(T)

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[a,a':T].  \mforall{}[b,b':colist(T)].    uiff([a  /  b]  =  [a'  /  b'];\{(a  =  a')  \mwedge{}  (b  =  b')\})


By

---

Latex:
(Unfold  `guard`  0  THEN  Auto)

---

Home Index