---

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


1. ∀x,y:Base.  (eval z = x in λy.z y ~ x)
2. ∀f:Base. ((∀x,y:Base.  ((f x y) = x ∈ Base)) ⇒ (f ~ λx,y. (f x y)))
3. λx.eval z = x in
      λy.z ~ λx,y. ((λx.eval z = x in λy.z) x y)
4. ⊥ ~ λy.(⊥ y)
5. islambda(⊥) ~ tt
⊢ False
BY
{ (InstLemma `not-btrue-sqle-bottom` [] THEN D -1 THEN RevHypSubst (-1) 0 THEN Strictness) }

---

Latex:

---

Latex:

1.  \mforall{}x,y:Base.    (eval  z  =  x  in  \mlambda{}y.z  y  \msim{}  x)
2.  \mforall{}f:Base.  ((\mforall{}x,y:Base.    ((f  x  y)  =  x))  {}\mRightarrow{}  (f  \msim{}  \mlambda{}x,y.  (f  x  y)))
3.  \mlambda{}x.eval  z  =  x  in
            \mlambda{}y.z  \msim{}  \mlambda{}x,y.  ((\mlambda{}x.eval  z  =  x  in  \mlambda{}y.z)  x  y)
4.  \mbot{}  \msim{}  \mlambda{}y.(\mbot{}  y)
5.  islambda(\mbot{})  \msim{}  tt
\mvdash{}  False


By

---

Latex:
(InstLemma  `not-btrue-sqle-bottom`  []  THEN  D  -1  THEN  RevHypSubst  (-1)  0  THEN  Strictness)

---

Home Index