Step * 1 2 of Lemma poly-choice-eta-2


1. Base@i
2. ∀x,y:Base.  ((f y) x ∈ Base)
3. (f 0)↓
4. ~ λx.(f x)
5. Base
6. is-exception(f x)
⊢ x ≤ if is lambda then λy.x otherwise ⊥
BY
(ExceptionSqequal (-1) THEN HypSubst' (-1) THEN RW (AddrC [2] (TagC (mk_tag_term 10))) THEN Auto) }


Latex:


Latex:

1.  f  :  Base@i
2.  \mforall{}x,y:Base.    ((f  x  y)  =  x)
3.  (f  0)\mdownarrow{}
4.  f  \msim{}  \mlambda{}x.(f  x)
5.  x  :  Base
6.  is-exception(f  x)
\mvdash{}  f  x  \mleq{}  if  f  x  is  lambda  then  \mlambda{}y.x  otherwise  \mbot{}


By


Latex:
(ExceptionSqequal  (-1)
  THEN  HypSubst'  (-1)  0
  THEN  RW  (AddrC  [2]  (TagC  (mk\_tag\_term  10)))  0
  THEN  Auto)




Home Index