---

Step * 1 1 1 1 of Lemma band-sqequal-inl

.....equality..... 
1. a : Base
2. b : Base
3. c : Base
4. a ∧b b ~ inl c
5. (a ∧b b)↓
6. a ∈ Top + Top
7. ∀a@0,b:Base.  (if a is inl then a@0 else b ~ b)
⊢ a ~ inr outr(a) 
BY
{ (MoveToConcl (-1) THEN (GenConclTerm ⌜a⌝⋅ THENA Auto)) }

1
1. a : Base
2. b : Base
3. c : Base
4. a ∧b b ~ inl c
5. (a ∧b b)↓
6. a ∈ Top + Top
7. v : Top + Top@i
8. a = v ∈ (Top + Top)
⊢ (∀a@0,b:Base.  (if v is inl then a@0 else b ~ b)) ⇒ (v ~ inr outr(v) )

---

Latex:

---

Latex:
.....equality..... 
1.  a  :  Base
2.  b  :  Base
3.  c  :  Base
4.  a  \mwedge{}\msubb{}  b  \msim{}  inl  c
5.  (a  \mwedge{}\msubb{}  b)\mdownarrow{}
6.  a  \mmember{}  Top  +  Top
7.  \mforall{}a@0,b:Base.    (if  a  is  inl  then  a@0  else  b  \msim{}  b)
\mvdash{}  a  \msim{}  inr  outr(a) 


By

---

Latex:
(MoveToConcl  (-1)  THEN  (GenConclTerm  \mkleeneopen{}a\mkleeneclose{}\mcdot{}  THENA  Auto))

---

Home Index