---

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


1. a : Base
2. b : Base
3. c : Base
4. ff ~ 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 ~ inl outl(a)
BY
{ TACTIC:((Assert case ff of inl(x) => 0 | inr(x) => 1 ~ case inl c of inl(x) => 0 | inr(x) => 1 BY
                 (SqEqCD THEN Auto))
          THEN Reduce  (-1)
          THEN (Assert 0 = 1 ∈ ℤ BY
                      (HypSubst' (-1) 0 THEN Auto))
          THEN Auto) }

---

Latex:

---

Latex:

1.  a  :  Base
2.  b  :  Base
3.  c  :  Base
4.  ff  \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{}  inl  outl(a)


By

---

Latex:
TACTIC:((Assert  case  ff  of  inl(x)  =>  0  |  inr(x)  =>  1  \msim{}  case  inl  c  of  inl(x)  =>  0  |  inr(x)  =>  1  BY
                              (SqEqCD  THEN  Auto))
                THEN  Reduce    (-1)
                THEN  (Assert  0  =  1  BY
                                        (HypSubst'  (-1)  0  THEN  Auto))
                THEN  Auto)

---

Home Index