---

Step * 1 1 1 of Lemma free-word-inv-append2


1. X : Type
⊢ λx,y. word-rel(X;x;y)^* ([] @ map(λx.case x of inl(a) => inr a  | inr(a) => inl a;rev([]))) []
BY
{ (RepUR ``transitive-reflexive-closure`` 0 THEN Auto) }

---

Latex:

---

Latex:

1.  X  :  Type
\mvdash{}  \mlambda{}x,y.  word-rel(X;x;y)\^{}*  ([]  @  map(\mlambda{}x.case  x  of  inl(a)  =>  inr  a    |  inr(a)  =>  inl  a;rev([])))  []


By

---

Latex:
(RepUR  ``transitive-reflexive-closure``  0  THEN  Auto)

---

Home Index