---

Step * of Lemma co-alt_wf

co-alt() ∈ colist(ℤ)
BY
{ (RepUR ``colist corec`` 0
   THEN (MemTypeCD THENA Auto)
   THEN MoveToConcl (-1)
   THEN CompleteInductionOnNat
   THEN (Decide n = 0 ∈ ℤ THENA Auto)
   THEN Try (Complete (((Subst ⌜n ~ 0⌝ 0⋅ THENA Auto) THEN Reduce 0 THEN Auto)))
   THEN (RWO "primrec-unroll-1" 0 THENA Auto)
   THEN Reduce 0
   THEN Unfold `co-alt` 0
   THEN RW UnrollLoopsC 0
   THEN Fold `co-alt` 0
   THEN Reduce 0
   THEN (BUnionRight THENA Auto)
   THEN (Decide n = 1 ∈ ℤ THENA Auto)
   THEN Try (Complete (((Subst ⌜n ~ 1⌝ 0⋅ THENA Auto) THEN Reduce 0 THEN Auto)))
   THEN (RWO "primrec-unroll-1" 0 THENA Auto)
   THEN Reduce 0
   THEN BUnionRight
   THEN Auto) }

---

Latex:

---

Latex:
co-alt()  \mmember{}  colist(\mBbbZ{})


By

---

Latex:
(RepUR  ``colist  corec``  0
  THEN  (MemTypeCD  THENA  Auto)
  THEN  MoveToConcl  (-1)
  THEN  CompleteInductionOnNat
  THEN  (Decide  n  =  0  THENA  Auto)
  THEN  Try  (Complete  (((Subst  \mkleeneopen{}n  \msim{}  0\mkleeneclose{}  0\mcdot{}  THENA  Auto)  THEN  Reduce  0  THEN  Auto)))
  THEN  (RWO  "primrec-unroll-1"  0  THENA  Auto)
  THEN  Reduce  0
  THEN  Unfold  `co-alt`  0
  THEN  RW  UnrollLoopsC  0
  THEN  Fold  `co-alt`  0
  THEN  Reduce  0
  THEN  (BUnionRight  THENA  Auto)
  THEN  (Decide  n  =  1  THENA  Auto)
  THEN  Try  (Complete  (((Subst  \mkleeneopen{}n  \msim{}  1\mkleeneclose{}  0\mcdot{}  THENA  Auto)  THEN  Reduce  0  THEN  Auto)))
  THEN  (RWO  "primrec-unroll-1"  0  THENA  Auto)
  THEN  Reduce  0
  THEN  BUnionRight
  THEN  Auto)

---

Home Index