---

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


1. f : Base
2. ∀x,y:Base.  ((f x y) = y ∈ Base)
3. (f 0)↓
4. f ~ λx.(f x)
5. x : Base
⊢ f x ~ λy.y
BY
{ ((Assert (f x 0)↓ BY (Subst' (f x 0) = 0 ∈ Base 0 THEN Auto)) THEN (CallByValueApplyCases (-1) THENA Auto)) }

1
1. f : Base
2. ∀x,y:Base.  ((f x y) = y ∈ Base)
3. (f 0)↓
4. f ~ λx.(f x)
5. x : Base
6. (f x 0)↓
7. f x ~ λx1.(f x x1)
⊢ f x ~ λy.y

2
1. f : Base
2. ∀x,y:Base.  ((f x y) = y ∈ Base)
3. (f 0)↓
4. f ~ λx.(f x)
5. x : Base
6. (f x 0)↓
7. ⋂x1:Base. if x1 is an integer then True else f x x1 ≤ ⊥ supposing (x1)↓
⊢ f x ~ λy.y

---

Latex:

---

Latex:

1.  f  :  Base
2.  \mforall{}x,y:Base.    ((f  x  y)  =  y)
3.  (f  0)\mdownarrow{}
4.  f  \msim{}  \mlambda{}x.(f  x)
5.  x  :  Base
\mvdash{}  f  x  \msim{}  \mlambda{}y.y


By

---

Latex:
((Assert  (f  x  0)\mdownarrow{}  BY  (Subst'  (f  x  0)  =  0  0  THEN  Auto))  THEN  (CallByValueApplyCases  (-1)  THENA  Auto))

---

Home Index