---

Step * 1 2 1 1 1 1 of Lemma polymorphic-choice-base


1. f : ⋂A:Type. (A ⟶ A ⟶ A)
2. ∀x,y:Base.  (↓((f x y) = x ∈ Base) ∨ ((f x y) = y ∈ Base))
3. ∀z:Base. ((f z z) = z ∈ Base)
4. ((f 0 1) = 0 ∈ Base) ∨ ((f 0 1) = 1 ∈ Base)
5. 0 = 0 ∈ Base
6. ∀x,y:ℤ.  ((f x y) = x ∈ ℤ)
7. (f 1 0) = 1 ∈ ℤ
8. y : Base
9. (f 1 y) = y ∈ Base
10. T : Type
11. y = 0 ∈ T
12. 1 = 1 ∈ T
13. (0 = 1 ∈ T) ⇒ (y = 1 ∈ Base)
14. f ∈ T ⟶ T ⟶ T
15. (f 1 0) = (f 1 y) ∈ T
⊢ (f 1 y) = 1 ∈ Base
BY
{ ((Assert 1 = y ∈ T BY Auto) THEN (D -4 THENA Auto) THEN HypSubst' (-1) 0 THEN Auto) }

---

Latex:

---

Latex:

1.  f  :  \mcap{}A:Type.  (A  {}\mrightarrow{}  A  {}\mrightarrow{}  A)
2.  \mforall{}x,y:Base.    (\mdownarrow{}((f  x  y)  =  x)  \mvee{}  ((f  x  y)  =  y))
3.  \mforall{}z:Base.  ((f  z  z)  =  z)
4.  ((f  0  1)  =  0)  \mvee{}  ((f  0  1)  =  1)
5.  0  =  0
6.  \mforall{}x,y:\mBbbZ{}.    ((f  x  y)  =  x)
7.  (f  1  0)  =  1
8.  y  :  Base
9.  (f  1  y)  =  y
10.  T  :  Type
11.  y  =  0
12.  1  =  1
13.  (0  =  1)  {}\mRightarrow{}  (y  =  1)
14.  f  \mmember{}  T  {}\mrightarrow{}  T  {}\mrightarrow{}  T
15.  (f  1  0)  =  (f  1  y)
\mvdash{}  (f  1  y)  =  1


By

---

Latex:
((Assert  1  =  y  BY  Auto)  THEN  (D  -4  THENA  Auto)  THEN  HypSubst'  (-1)  0  THEN  Auto)

---

Home Index