---

Step * 2 2 of Lemma equipollent-union-sum


1. [A] : Type
2. [B] : Type
3. [C] : A ⟶ Type
4. [D] : B ⟶ Type
5. y : B@i
6. b1 : D[y]@i
⊢ ∃a:a:A × C[a] + (b:B × D[b])
   (case a of inl(p) => let a,c = p in <inl a, c> | inr(p) => let b,d = p in <inr b , d>
   = <inr y , b1>
   ∈ (d:A + B × case d of inl(a) => C[a] | inr(b) => D[b]))
BY
{ TACTIC:(With ⌜inr <y, b1> ⌝ (D 0)⋅ THEN Reduce 0 THEN Auto) }

---

Latex:

---

Latex:

1.  [A]  :  Type
2.  [B]  :  Type
3.  [C]  :  A  {}\mrightarrow{}  Type
4.  [D]  :  B  {}\mrightarrow{}  Type
5.  y  :  B@i
6.  b1  :  D[y]@i
\mvdash{}  \mexists{}a:a:A  \mtimes{}  C[a]  +  (b:B  \mtimes{}  D[b])
      (case  a  of  inl(p)  =>  let  a,c  =  p  in  <inl  a,  c>  |  inr(p)  =>  let  b,d  =  p  in  <inr  b  ,  d>
      =  <inr  y  ,  b1>)


By

---

Latex:
TACTIC:(With  \mkleeneopen{}inr  <y,  b1>  \mkleeneclose{}  (D  0)\mcdot{}  THEN  Reduce  0  THEN  Auto)

---

Home Index