---

Step * of Lemma adjacent-singleton

∀[T:Type]. ∀[x,y,u:T].  False supposing adjacent(T;[u];x;y)
BY
{ ((Unfold `adjacent` 0 THEN Auto) THEN Reduce (-1) THEN ExRepD THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[x,y,u:T].    False  supposing  adjacent(T;[u];x;y)


By

---

Latex:
((Unfold  `adjacent`  0  THEN  Auto)  THEN  Reduce  (-1)  THEN  ExRepD  THEN  Auto)

---

Home Index