---

Step * 1 1 of Lemma list_ind_cons_lemma


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]]
BY
{ Refine_sqequalReflexivity }

---

Latex:

---

Latex:

1.  A  :  Top
2.  x  :  Top
3.  b  :  Top
4.  a  :  Top
\mvdash{}  A[a;b;rec-case(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:
Refine\_sqequalReflexivity

---

Home Index