---

Step * of Lemma band-is-inl-base

∀[a,b:Base].
  ∀[c:Top]. (a ~ inl outl(a)) ∧ (b ~ inl outl(b)) supposing (a ∧b b) = (inl c) ∈ (Top + Top) 
  supposing a ∧b b ∈ Top + Top
BY
{ (RepeatFor 5 ((D 0 THENA Auto)) THEN (Assert (a ∧b b)↓ BY Auto) THEN (FLemma `has-value-band-type` [-1] THENA Auto)) }

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

---

Latex:

---

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


By

---

Latex:
(RepeatFor  5  ((D  0  THENA  Auto))
  THEN  (Assert  (a  \mwedge{}\msubb{}  b)\mdownarrow{}  BY
                          Auto)
  THEN  (FLemma  `has-value-band-type`  [-1]  THENA  Auto))

---

Home Index