---

Step * 1 of Lemma reduce_cons_lemma


1. b : Top@i
2. a : Top@i
3. k : Top@i
4. f : Top@i
⊢ reduce(f;k;[a / b]) ~ f a reduce(f;k;b)
BY
{ Try (RW (AddrC [1] (UnfoldC `reduce` ANDTHENC ReduceC)) 0)⋅ }

1
1. b : Top@i
2. a : Top@i
3. k : Top@i
4. f : Top@i
⊢ f a rec-case(b) of [] => k | h::t => r.f h r ~ f a reduce(f;k;b)

---

Latex:

---

Latex:

1.  b  :  Top@i
2.  a  :  Top@i
3.  k  :  Top@i
4.  f  :  Top@i
\mvdash{}  reduce(f;k;[a  /  b])  \msim{}  f  a  reduce(f;k;b)


By

---

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

---

Home Index