---

Step * of Lemma band-sqequal-inl

∀[a,b,c:Base].  {(a ~ inl outl(a)) ∧ (b ~ inl outl(b))} supposing a ∧b b ~ inl c
BY
{ TACTIC:(Unfold `guard` 0
          THEN RepeatFor 4 ((D 0 THENA Auto))
          THEN (Assert (a ∧b b)↓ BY
                      (HypSubst' (-1) 0 THEN Auto))
          THEN HasValueD (-1)) }

1
1. a : Base
2. b : Base
3. c : Base
4. a ∧b b ~ inl c
5. (a ∧b b)↓
6. a ∈ Top + Top
⊢ (a ~ inl outl(a)) ∧ (b ~ inl outl(b))

---

Latex:

---

Latex:
\mforall{}[a,b,c:Base].    \{(a  \msim{}  inl  outl(a))  \mwedge{}  (b  \msim{}  inl  outl(b))\}  supposing  a  \mwedge{}\msubb{}  b  \msim{}  inl  c


By

---

Latex:
TACTIC:(Unfold  `guard`  0
                THEN  RepeatFor  4  ((D  0  THENA  Auto))
                THEN  (Assert  (a  \mwedge{}\msubb{}  b)\mdownarrow{}  BY
                                        (HypSubst'  (-1)  0  THEN  Auto))
                THEN  HasValueD  (-1))

---

Home Index