---

Step * 1 1 of Lemma l_ind_cons_lemma


1. A : Top@i
2. x : Top@i
3. b : Top@i
4. a : Top@i
⊢ A[a;b;fix((λl-ind,L. eval v = L in if v = Ax then x otherwise let h,t = v in A[h;t;l-ind t])) b] 
~ A[a;b;l-ind(b;x;h,t,r.A[h;t;r])]
BY
{ Try (RW (AddrC [2] (UnfoldC `l-ind`)) 0)⋅ }

1
1. A : Top@i
2. x : Top@i
3. b : Top@i
4. a : Top@i
⊢ A[a;b;fix((λl-ind,L. eval v = L in if v = Ax then x otherwise let h,t = v in A[h;t;l-ind t])) b] 
~ A[a;b;fix((λl-ind,L. eval v = L in if v = Ax then x otherwise let h,t = v in A[h;t;l-ind t])) b]

---

Latex:

---

Latex:

1.  A  :  Top@i
2.  x  :  Top@i
3.  b  :  Top@i
4.  a  :  Top@i
\mvdash{}  A[a;b;fix((\mlambda{}l-ind,L.  eval  v  =  L  in  if  v  =  Ax  then  x  otherwise  let  h,t  =  v  in  A[h;t;l-ind  t]))  b] 
\msim{}  A[a;b;l-ind(b;x;h,t,r.A[h;t;r])]


By

---

Latex:
Try  (RW  (AddrC  [2]  (UnfoldC  `l-ind`))  0)\mcdot{}

---

Home Index