---

Step * 1 of Lemma dM-lift-sq


1. I' : Top
2. J' : Top
3. I : Top
4. J : Top
5. f : Top
6. ac : Base
7. xs : Base
8. p : Base
9. a : Base
⊢ dm-neg(names(I);NamesDeq;f a) ~ dm-neg(names(I');NamesDeq;f a)
BY
{ (RW (SubC (TagC (mk_tag_term 3000))) 0 THEN RepeatFor 3 ((EqCD THEN Try (Trivial)))) }

1
1. I' : Top
2. J' : Top
3. I : Top
4. J : Top
5. f : Top
6. ac : Base
7. xs : Base
8. p : Base
9. a : Base
10. v : Base
⊢ let h,t = v 
  in fix((λlist_accum,y,L. eval v = L in
                           if v is a pair
                           then let h,t = v 
                                in list_accum 
                                   y ⋃ {(λxs./\(λz.case z of inl(a) => {{inr a }} | inr(a) => {{inl a}}"(xs))) h} 
                                   t otherwise if v = Ax then y otherwise ⊥)) 
     [] ⋃ {(λxs./\(λz.case z of inl(a) => {{inr a }} | inr(a) => {{inl a}}"(xs))) h} 
     t ~ let h,t = v 
         in fix((λlist_accum,y,L. eval v = L in
                                  if v is a pair then let h,t = v 
                                                      in list_accum 
                                                         y ⋃ {(λxs./\(λz.case z
                                                                          of inl(a) =>
                                                                          {{inr a }}
                                                                          | inr(a) =>
                                                                          {{inl a}}"(xs))) 
                                                              h} 
                                                         t otherwise if v = Ax then y otherwise ⊥)) 
            [] ⋃ {(λxs./\(λz.case z of inl(a) => {{inr a }} | inr(a) => {{inl a}}"(xs))) h} 
            t

2
1. I' : Top
2. J' : Top
3. I : Top
4. J : Top
5. f : Top
6. ac : Base
7. xs : Base
8. p : Base
9. a : Base
10. v : Base
11. a@0 : Base
12. as' : Base
⊢ (λx,y. x ∨ y) a@0 
  (fix((λlist_ind,L. eval v = L in
                     if v is a pair then let a,as' = v 
                                         in (λx,y. x ∨ y) a (list_ind as') otherwise if v = Ax then 0 otherwise ⊥)) 
   as') ~ (λx,y. x ∨ y) a@0 
          (fix((λlist_ind,L. eval v = L in
                             if v is a pair then let a,as' = v 
                                                 in (λx,y. x ∨ y) a (list_ind as') otherwise if v = Ax then 0 otherwise \000C⊥)) 
           as')

3
1. I' : Top
2. J' : Top
3. I : Top
4. J : Top
5. f : Top
6. ac : Base
7. xs : Base
8. p : Base
9. a : Base
10. v : Base
⊢ 0 ~ 0

---

Latex:

---

Latex:

1.  I'  :  Top
2.  J'  :  Top
3.  I  :  Top
4.  J  :  Top
5.  f  :  Top
6.  ac  :  Base
7.  xs  :  Base
8.  p  :  Base
9.  a  :  Base
\mvdash{}  dm-neg(names(I);NamesDeq;f  a)  \msim{}  dm-neg(names(I');NamesDeq;f  a)


By

---

Latex:
(RW  (SubC  (TagC  (mk\_tag\_term  3000)))  0  THEN  RepeatFor  3  ((EqCD  THEN  Try  (Trivial))))

---

Home Index