---

Step * of Lemma free-from-atom-outl2

∀[B,A:Type]. ∀[x:A + B]. ∀[a:Atom1].  (a#outl(x):A) supposing ((↑isl(x)) and a#x:A + B)
BY
{ ((D 0 THENA Auto)
   THEN InstLemma `free-from-atom-outl` []
   THEN RepeatFor 3 (ParallelLast')
   THEN RepeatFor 2 ((At ⌜Type⌝ (D 0)⋅ THENA Auto))
   THEN BackThruSomeHyp
   THEN Auto
   THEN FreeFromAtomApElim_aux Id ⌜x⌝⋅
   THEN FreeFromAtomTriviality
   THEN Auto
   THEN DoSubsume
   THEN Auto) }

---

Latex:

---

Latex:
\mforall{}[B,A:Type].  \mforall{}[x:A  +  B].  \mforall{}[a:Atom1].    (a\#outl(x):A)  supposing  ((\muparrow{}isl(x))  and  a\#x:A  +  B)


By

---

Latex:
((D  0  THENA  Auto)
  THEN  InstLemma  `free-from-atom-outl`  []
  THEN  RepeatFor  3  (ParallelLast')
  THEN  RepeatFor  2  ((At  \mkleeneopen{}Type\mkleeneclose{}  (D  0)\mcdot{}  THENA  Auto))
  THEN  BackThruSomeHyp
  THEN  Auto
  THEN  FreeFromAtomApElim\_aux  Id  \mkleeneopen{}x\mkleeneclose{}\mcdot{}
  THEN  FreeFromAtomTriviality
  THEN  Auto
  THEN  DoSubsume
  THEN  Auto)

---

Home Index