---

Step * 1 of Lemma ycomb-unroll


1. f : Top
⊢ Y f ~ f (Y f)
BY
{ (RW (AddrC [1] (UnfoldC `ycomb`)) 0
   THEN RepeatFor 2 (RW (AddrC [1] BetaC) 0)
   THEN EqCD
   THEN Try (Trivial)
   THEN RW (AddrC [2] (UnfoldC `ycomb`)) 0
   THEN RW (AddrC [2] BetaC) 0
   THEN Trivial)⋅ }

---

Latex:

---

Latex:

1.  f  :  Top
\mvdash{}  Y  f  \msim{}  f  (Y  f)


By

---

Latex:
(RW  (AddrC  [1]  (UnfoldC  `ycomb`))  0
  THEN  RepeatFor  2  (RW  (AddrC  [1]  BetaC)  0)
  THEN  EqCD
  THEN  Try  (Trivial)
  THEN  RW  (AddrC  [2]  (UnfoldC  `ycomb`))  0
  THEN  RW  (AddrC  [2]  BetaC)  0
  THEN  Trivial)\mcdot{}

---

Home Index