---

Step * 2 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)
⊢ False
BY
{ ((Assert islambda(⊥) ~ islambda(λy.(⊥ y)) BY (EqCD THEN Auto)) THEN Reduce (-1)) }

1
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

---

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)
\mvdash{}  False


By

---

Latex:
((Assert  islambda(\mbot{})  \msim{}  islambda(\mlambda{}y.(\mbot{}  y))  BY  (EqCD  THEN  Auto))  THEN  Reduce  (-1))

---

Home Index