---

Step * 1 of Lemma list_ind_cons_lemma


1. A : Top
2. x : Top
3. b : Top
4. a : Top
⊢ rec-case([a / b]) of
  [] => x
  h::t =>
   r.A[h;t;r] ~ A[a;b;rec-case(b) of
                      [] => x
                      h::t =>
                       r.A[h;t;r]]
BY
{ Try (RW (AddrC [1] (RecUnfoldC `list_ind` ANDTHENC UnfoldC `cons` ANDTHENC ReduceC)) 0)⋅ }

1
1. A : Top
2. x : Top
3. b : Top
4. a : Top
⊢ A[a;b;rec-case(b) of
        [] => x
        h::t =>
         r.A[h;t;r]] ~ A[a;b;rec-case(b) of
                             [] => x
                             h::t =>
                              r.A[h;t;r]]

---

Latex:

---

Latex:

1.  A  :  Top
2.  x  :  Top
3.  b  :  Top
4.  a  :  Top
\mvdash{}  rec-case([a  /  b])  of
    []  =>  x
    h::t  =>
      r.A[h;t;r]  \msim{}  A[a;b;rec-case(b)  of
                                            []  =>  x
                                            h::t  =>
                                              r.A[h;t;r]]


By

---

Latex:
Try  (RW  (AddrC  [1]  (RecUnfoldC  `list\_ind`  ANDTHENC  UnfoldC  `cons`  ANDTHENC  ReduceC))  0)\mcdot{}

---

Home Index