---

Step * 1 6 2 of Lemma l-last-cons


1. u : Base
2. v : Base
3. is-exception(case if v is a pair then ff otherwise if v = Ax then tt otherwise ⊥
 of inl() =>
 u
 | inr() =>
 eval v = v in
 if v is a pair then let h,t = v 
                     in rec-case(t) of [] => λx.x | h::t => r.λx.(r h) h otherwise if v = Ax then ⊥ otherwise ⊥)
4. is-exception(if v is a pair then ff otherwise if v = Ax then tt otherwise ⊥)
5. is-exception(v)
⊢ if if v is a pair then ff otherwise if v = Ax then tt otherwise ⊥
  then u
  else eval v = v in
       if v is a pair then let h,t = v 
                           in rec-case(t) of [] => λx.x | h::t => r.λx.(r h) h otherwise if v = Ax then ⊥ otherwise ⊥
  fi  ≤ eval v = v in
        if v is a pair then let h,t = v 
                            in rec-case(t) of [] => λx.x | h::t => r.λx.(r h) h otherwise if v = Ax then u otherwise ⊥
BY
{ (ExceptionSqequal (-1)
   THEN RenameTo `zz' `v'
   THEN HypSubst' (-1) 0
   THEN RW (SubC (TagC (mk_tag_term 100))) 0
   THEN Auto) }

---

Latex:

---

Latex:

1.  u  :  Base
2.  v  :  Base
3.  is-exception(case  if  v  is  a  pair  then  ff  otherwise  if  v  =  Ax  then  tt  otherwise  \mbot{}
  of  inl()  =>
  u
  |  inr()  =>
  eval  v  =  v  in
  if  v  is  a  pair  then  let  h,t  =  v 
                                          in  rec-case(t)  of  []  =>  \mlambda{}x.x  |  h::t  =>  r.\mlambda{}x.(r  h)  h
  otherwise  if  v  =  Ax  then  \mbot{}  otherwise  \mbot{})
4.  is-exception(if  v  is  a  pair  then  ff  otherwise  if  v  =  Ax  then  tt  otherwise  \mbot{})
5.  is-exception(v)
\mvdash{}  if  if  v  is  a  pair  then  ff  otherwise  if  v  =  Ax  then  tt  otherwise  \mbot{}
    then  u
    else  eval  v  =  v  in
              if  v  is  a  pair  then  let  h,t  =  v 
                                                      in  rec-case(t)  of  []  =>  \mlambda{}x.x  |  h::t  =>  r.\mlambda{}x.(r  h)  h
              otherwise  if  v  =  Ax  then  \mbot{}  otherwise  \mbot{}
    fi    \mleq{}  eval  v  =  v  in
                if  v  is  a  pair  then  let  h,t  =  v 
                                                        in  rec-case(t)  of  []  =>  \mlambda{}x.x  |  h::t  =>  r.\mlambda{}x.(r  h)  h
                otherwise  if  v  =  Ax  then  u  otherwise  \mbot{}


By

---

Latex:
(ExceptionSqequal  (-1)
  THEN  RenameTo  `zz'  `v'
  THEN  HypSubst'  (-1)  0
  THEN  RW  (SubC  (TagC  (mk\_tag\_term  100)))  0
  THEN  Auto)

---

Home Index