Step
*
of Lemma
decide-atom2-if-has-value
∀t:Base. ((t)↓ 
⇒ Dec(t ∈ Atom2))
BY
{ ((UnivCD THENA Auto)
   THEN UseWitness ⌜isatom2(t;inl Ax;inr (λx.Ax) )⌝⋅
   THEN CanonicalAuto
   THEN Auto
   THEN (Assert ⌜↑isatom2(t)⌝⋅ THENA Auto)
   THEN RWO "-3" (-1)
   THEN AllReduce
   THEN Auto) }
Latex:
Latex:
\mforall{}t:Base.  ((t)\mdownarrow{}  {}\mRightarrow{}  Dec(t  \mmember{}  Atom2))
By
Latex:
((UnivCD  THENA  Auto)
  THEN  UseWitness  \mkleeneopen{}isatom2(t;inl  Ax;inr  (\mlambda{}x.Ax)  )\mkleeneclose{}\mcdot{}
  THEN  CanonicalAuto
  THEN  Auto
  THEN  (Assert  \mkleeneopen{}\muparrow{}isatom2(t)\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  RWO  "-3"  (-1)
  THEN  AllReduce
  THEN  Auto)
Home
Index