---

Step * of Lemma append-normal-form

∀[A,B:Top].  (rec-case(A) of [] => B | a::_ => r.[a / r] ~ A @ B)
BY
{ ((UnivCD THENA Auto) THEN RW (SubC (SymbCompC [] 100)) 0 THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[A,B:Top].    (rec-case(A)  of  []  =>  B  |  a::$_{}$  =>  r.[a  /  r]  \msim{}  A  @  B)


By

---

Latex:
((UnivCD  THENA  Auto)  THEN  RW  (SubC  (SymbCompC  []  100))  0  THEN  Auto)

---

Home Index