---

Step * 1 1 1 2 1 of Lemma equipollent-split


1. [T] : Type
2. [P] : T ⟶ ℙ
3. p : x:T ⟶ (↓P[x] + (¬↓P[x]))
4. x : {x:T| ↓P[x]} 
⊢ ∃a:T. (case p a of inl(z) => inl a | inr(z) => inr a  = (inl x) ∈ ({x:T| ↓P[x]}  + {x:T| ↓¬P[x]} ))
BY
{ ((InstConcl [⌜x⌝]⋅ THENA Auto) THEN GenConclAtAddr [2;1] THEN D -2 THEN Reduce 0 THEN Auto) }

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  [P]  :  T  {}\mrightarrow{}  \mBbbP{}
3.  p  :  x:T  {}\mrightarrow{}  (\mdownarrow{}P[x]  +  (\mneg{}\mdownarrow{}P[x]))
4.  x  :  \{x:T|  \mdownarrow{}P[x]\} 
\mvdash{}  \mexists{}a:T.  (case  p  a  of  inl(z)  =>  inl  a  |  inr(z)  =>  inr  a    =  (inl  x))


By

---

Latex:
((InstConcl  [\mkleeneopen{}x\mkleeneclose{}]\mcdot{}  THENA  Auto)  THEN  GenConclAtAddr  [2;1]  THEN  D  -2  THEN  Reduce  0  THEN  Auto)

---

Home Index