Step
*
1
1
of Lemma
combine-skips_wf
1. n : ℤ
2. 0 < n
3. ∀bs,as:colist(ℕ). ∀k:ℕ.  (combine-skips(as;bs;k) ∈ primrec(n - 1;Top;λ,L. (Unit ⋃ (ℕ × L))))
4. as : colist(ℕ)
5. k : ℕ
⊢ combine-skips(as;[];k) ∈ Unit ⋃ (ℕ × primrec(n - 1;Top;λ,L. (Unit ⋃ (ℕ × L))))
BY
{ (BUnionLeft THENL [(Unfold `combine-skips` 0 THEN Reduce 0 THEN Unfold `nil` 0 THEN Auto); Auto]) }
Latex:
Latex:
1.  n  :  \mBbbZ{}
2.  0  <  n
3.  \mforall{}bs,as:colist(\mBbbN{}).  \mforall{}k:\mBbbN{}.    (combine-skips(as;bs;k)  \mmember{}  primrec(n  -  1;Top;\mlambda{},L.  (Unit  \mcup{}  (\mBbbN{}  \mtimes{}  L))))
4.  as  :  colist(\mBbbN{})
5.  k  :  \mBbbN{}
\mvdash{}  combine-skips(as;[];k)  \mmember{}  Unit  \mcup{}  (\mBbbN{}  \mtimes{}  primrec(n  -  1;Top;\mlambda{},L.  (Unit  \mcup{}  (\mBbbN{}  \mtimes{}  L))))
By
Latex:
(BUnionLeft  THENL  [(Unfold  `combine-skips`  0  THEN  Reduce  0  THEN  Unfold  `nil`  0  THEN  Auto);  Auto])
Home
Index