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