---

Step * 1 of Lemma rev_app_cons_lemma


1. bs : Top@i
2. as : Top@i
3. a : Top@i
⊢ rev([a / as]) + bs ~ rev(as) + [a / bs]
BY
{ Try (RW (AddrC [1] (UnfoldC `rev-append` ANDTHENC ReduceC)) 0)⋅ }

1
1. bs : Top@i
2. as : Top@i
3. a : Top@i
⊢ accumulate (with value r and list item a):
   [a / r]
  over list:
    as
  with starting value:
   [a / bs]) ~ rev(as) + [a / bs]

---

Latex:

---

Latex:

1.  bs  :  Top@i
2.  as  :  Top@i
3.  a  :  Top@i
\mvdash{}  rev([a  /  as])  +  bs  \msim{}  rev(as)  +  [a  /  bs]


By

---

Latex:
Try  (RW  (AddrC  [1]  (UnfoldC  `rev-append`  ANDTHENC  ReduceC))  0)\mcdot{}

---

Home Index