---

Step * 1 of Lemma simple-comb-concat-classrel


1. Info : Type
2. B : Type
3. n : ℕ
4. A : ℕn ─→ Type
5. Xs : k:ℕn ─→ EClass(A k)
6. f : (k:ℕn ─→ (A k)) ─→ bag(B)
7. F : (k:ℕn ─→ bag(A k)) ─→ bag(B)
8. ∀v:B. ∀bs:k:ℕn ─→ bag(A k).  (v ↓∈ F bs ⇐⇒ ↓∃vs:k:ℕn ─→ (A k). ((∀k:ℕn. vs k ↓∈ bs k) ∧ v ↓∈ f vs))
9. es : EO+(Info)
10. e : E
11. v : B
12. v ∈ simple-comb(F;Xs)(e)
⊢ ↓∃vs:k:ℕn ─→ (A k). ((∀k:ℕn. vs[k] ∈ Xs[k](e)) ∧ v ↓∈ f vs)
BY
{ (RepUR ``classrel simple-comb`` (-1)
   THEN (InstHyp [ ⌈v⌉; ⌈λk.(Xs k es e)⌉] (-5)⋅ THENA MaAuto)
   THEN D (-1)
   THEN (D (-2) THENA Auto)
   THEN Thin (-2)⋅
   THEN RepeatFor 3 (D (-1))
   THEN Reduce (-2)
   THEN D 0
   THEN (InstConcl [⌈vs⌉]⋅ THENA Auto)
   THEN D 0
   THEN Auto
   THEN RepUR ``classrel so_apply`` 0
   THEN Auto) }

---

Latex:

---

Latex:

1.  Info  :  Type
2.  B  :  Type
3.  n  :  \mBbbN{}
4.  A  :  \mBbbN{}n  {}\mrightarrow{}  Type
5.  Xs  :  k:\mBbbN{}n  {}\mrightarrow{}  EClass(A  k)
6.  f  :  (k:\mBbbN{}n  {}\mrightarrow{}  (A  k))  {}\mrightarrow{}  bag(B)
7.  F  :  (k:\mBbbN{}n  {}\mrightarrow{}  bag(A  k))  {}\mrightarrow{}  bag(B)
8.  \mforall{}v:B.  \mforall{}bs:k:\mBbbN{}n  {}\mrightarrow{}  bag(A  k).
          (v  \mdownarrow{}\mmember{}  F  bs  \mLeftarrow{}{}\mRightarrow{}  \mdownarrow{}\mexists{}vs:k:\mBbbN{}n  {}\mrightarrow{}  (A  k).  ((\mforall{}k:\mBbbN{}n.  vs  k  \mdownarrow{}\mmember{}  bs  k)  \mwedge{}  v  \mdownarrow{}\mmember{}  f  vs))
9.  es  :  EO+(Info)
10.  e  :  E
11.  v  :  B
12.  v  \mmember{}  simple-comb(F;Xs)(e)
\mvdash{}  \mdownarrow{}\mexists{}vs:k:\mBbbN{}n  {}\mrightarrow{}  (A  k).  ((\mforall{}k:\mBbbN{}n.  vs[k]  \mmember{}  Xs[k](e))  \mwedge{}  v  \mdownarrow{}\mmember{}  f  vs)


By

---

Latex:
(RepUR  ``classrel  simple-comb``  (-1)
  THEN  (InstHyp  [  \mkleeneopen{}v\mkleeneclose{};  \mkleeneopen{}\mlambda{}k.(Xs  k  es  e)\mkleeneclose{}]  (-5)\mcdot{}  THENA  MaAuto)
  THEN  D  (-1)
  THEN  (D  (-2)  THENA  Auto)
  THEN  Thin  (-2)\mcdot{}
  THEN  RepeatFor  3  (D  (-1))
  THEN  Reduce  (-2)
  THEN  D  0
  THEN  (InstConcl  [\mkleeneopen{}vs\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  D  0
  THEN  Auto
  THEN  RepUR  ``classrel  so\_apply``  0
  THEN  Auto)

---

Home Index