---

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


1. f : Base
2. ∀x,y:Base.  ((f x y) = y ∈ Base)
⊢ f ~ λx,y. y
BY
{ ((Assert (f 0)↓ BY
          ((Assert (f 0 0)↓ BY (Subst' (f 0 0) = 0 ∈ Base 0 THEN Auto)) THEN HasValueD (-1) 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)
⊢ f ~ λx,y. y

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

---

Latex:

---

Latex:

1.  f  :  Base
2.  \mforall{}x,y:Base.    ((f  x  y)  =  y)
\mvdash{}  f  \msim{}  \mlambda{}x,y.  y


By

---

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

---

Home Index