---

Step * 1 of Lemma union_functionality_wrt_equipollent


1. [A] : Type
2. [B] : Type
3. [C] : Type
4. [D] : Type
5. f : A ⟶ B@i
6. Bij(A;B;f)
7. g : C ⟶ D@i
8. Bij(C;D;g)
⊢ A + C ~ B + D
BY
{ TACTIC:(With ⌜λx.case x of inl(a) => inl (f a) | inr(c) => inr (g c) ⌝ (D 0)⋅ THEN Auto) }

1
1. [A] : Type
2. [B] : Type
3. [C] : Type
4. [D] : Type
5. f : A ⟶ B@i
6. Bij(A;B;f)
7. g : C ⟶ D@i
8. Bij(C;D;g)
⊢ Bij(A + C;B + D;λx.case x of inl(a) => inl (f a) | inr(c) => inr (g c) )

---

Latex:

---

Latex:

1.  [A]  :  Type
2.  [B]  :  Type
3.  [C]  :  Type
4.  [D]  :  Type
5.  f  :  A  {}\mrightarrow{}  B@i
6.  Bij(A;B;f)
7.  g  :  C  {}\mrightarrow{}  D@i
8.  Bij(C;D;g)
\mvdash{}  A  +  C  \msim{}  B  +  D


By

---

Latex:
TACTIC:(With  \mkleeneopen{}\mlambda{}x.case  x  of  inl(a)  =>  inl  (f  a)  |  inr(c)  =>  inr  (g  c)  \mkleeneclose{}  (D  0)\mcdot{}  THEN  Auto)

---

Home Index