Step
*
1
1
2
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)
9. y : C@i
10. a2 : A + C@i
11. (inr (g y) ) = case a2 of inl(a) => inl (f a) | inr(c) => inr (g c)  ∈ (B + D)
⊢ (inr y ) = a2 ∈ (A + C)
BY
{ TACTIC:(D -2 THEN Reduce (-1) THEN Auto) }
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)
9.  y  :  C@i
10.  a2  :  A  +  C@i
11.  (inr  (g  y)  )  =  case  a2  of  inl(a)  =>  inl  (f  a)  |  inr(c)  =>  inr  (g  c) 
\mvdash{}  (inr  y  )  =  a2
By
Latex:
TACTIC:(D  -2  THEN  Reduce  (-1)  THEN  Auto)
Home
Index