---

Step * 3 1 2 2 1 1 2 1 1 of Lemma b-almost-full-intersection

.....assertion..... 
1. R : ℕ ⟶ ℕ ⟶ ℙ
2. T : ℕ ⟶ ℕ ⟶ ℙ
3. b-almost-full(n,m.R[n;m])
4. b-almost-full(n,m.T[n;m])
5. n : ℕ
6. a : {s:ℕn ⟶ ℕ| strictly-increasing-seq(n;s)} 
7. ⇃(∀m:{m:ℕ| strictly-increasing-seq(n + 1;a.m@n)} . ∀s@0:StrictInc.
       ∃n@0:ℕ. (baf-bar(n,m.R[n;m];n,m.T[n;m];n + 2;a.m@n.s@0 n@0@n + 1) ∨ (∃n:ℕ. ∃m:{n + 1...}. (R[n;m] ∧ T[n;m]))))
8. gamma : StrictInc
9. N : ℤ
10. [%5] : 0 < N
11. s : ℕN - 1 ⟶ ℕ
12. ∀i:ℕN - 1
      (strictly-increasing-seq(n + 1;a.gamma (s i)@n)
      ∧ (∀j:{i + 1..N - 1-}
           (baf-bar(n,m.R[n;m];n,m.T[n;m];n + 2;a.gamma (s i)@n.gamma (s j)@n + 1)
           ∨ (∃n:ℕ. ∃m:{n + 1...}. (R[n;m] ∧ T[n;m])))))
⊢ ⇃(∃k:ℕ
     (strictly-increasing-seq(n + 1;a.gamma k@n)
     ∧ (∀i:ℕN - 1
          (baf-bar(n,m.R[n;m];n,m.T[n;m];n + 2;a.gamma (s i)@n.gamma k@n + 1)
          ∨ (∃n:ℕ. ∃m:{n + 1...}. (R[n;m] ∧ T[n;m]))))))
BY
{ TACTIC:(InstLemma `u-almost-full-finite-intersection` [⌜N - 1⌝;
          ⌜λ2i k.baf-bar(n,m.R[n;m];n,m.T[n;m];n + 2;a.gamma (s i)@n.gamma k@n + 1)
           ∨ (∃n:ℕ. ∃m:{n + 1...}. (R[n;m] ∧ T[n;m]))⌝]⋅
          THENA Auto
          ) }

1
1. R : ℕ ⟶ ℕ ⟶ ℙ
2. T : ℕ ⟶ ℕ ⟶ ℙ
3. b-almost-full(n,m.R[n;m])
4. b-almost-full(n,m.T[n;m])
5. n : ℕ
6. a : {s:ℕn ⟶ ℕ| strictly-increasing-seq(n;s)} 
7. ⇃(∀m:{m:ℕ| strictly-increasing-seq(n + 1;a.m@n)} . ∀s@0:StrictInc.
       ∃n@0:ℕ. (baf-bar(n,m.R[n;m];n,m.T[n;m];n + 2;a.m@n.s@0 n@0@n + 1) ∨ (∃n:ℕ. ∃m:{n + 1...}. (R[n;m] ∧ T[n;m]))))
8. gamma : StrictInc
9. N : ℤ
10. [%5] : 0 < N
11. s : ℕN - 1 ⟶ ℕ
12. ∀i:ℕN - 1
      (strictly-increasing-seq(n + 1;a.gamma (s i)@n)
      ∧ (∀j:{i + 1..N - 1-}
           (baf-bar(n,m.R[n;m];n,m.T[n;m];n + 2;a.gamma (s i)@n.gamma (s j)@n + 1)
           ∨ (∃n:ℕ. ∃m:{n + 1...}. (R[n;m] ∧ T[n;m])))))
13. i : ℕN - 1
⊢ u-almost-full(n@0.baf-bar(n,m.R[n;m];n,m.T[n;m];n + 2;a.gamma (s i)@n.gamma n@0@n + 1)
∨ (∃n:ℕ. ∃m:{n + 1...}. (R[n;m] ∧ T[n;m])))

2
1. R : ℕ ⟶ ℕ ⟶ ℙ
2. T : ℕ ⟶ ℕ ⟶ ℙ
3. b-almost-full(n,m.R[n;m])
4. b-almost-full(n,m.T[n;m])
5. n : ℕ
6. a : {s:ℕn ⟶ ℕ| strictly-increasing-seq(n;s)} 
7. ⇃(∀m:{m:ℕ| strictly-increasing-seq(n + 1;a.m@n)} . ∀s@0:StrictInc.
       ∃n@0:ℕ. (baf-bar(n,m.R[n;m];n,m.T[n;m];n + 2;a.m@n.s@0 n@0@n + 1) ∨ (∃n:ℕ. ∃m:{n + 1...}. (R[n;m] ∧ T[n;m]))))
8. gamma : StrictInc
9. N : ℤ
10. [%5] : 0 < N
11. s : ℕN - 1 ⟶ ℕ
12. ∀i:ℕN - 1
      (strictly-increasing-seq(n + 1;a.gamma (s i)@n)
      ∧ (∀j:{i + 1..N - 1-}
           (baf-bar(n,m.R[n;m];n,m.T[n;m];n + 2;a.gamma (s i)@n.gamma (s j)@n + 1)
           ∨ (∃n:ℕ. ∃m:{n + 1...}. (R[n;m] ∧ T[n;m])))))
13. u-almost-full(n@0.∀i:ℕN - 1
                        (baf-bar(n,m.R[n;m];n,m.T[n;m];n + 2;a.gamma (s i)@n.gamma n@0@n + 1)
                        ∨ (∃n:ℕ. ∃m:{n + 1...}. (R[n;m] ∧ T[n;m]))))
⊢ ⇃(∃k:ℕ
     (strictly-increasing-seq(n + 1;a.gamma k@n)
     ∧ (∀i:ℕN - 1
          (baf-bar(n,m.R[n;m];n,m.T[n;m];n + 2;a.gamma (s i)@n.gamma k@n + 1)
          ∨ (∃n:ℕ. ∃m:{n + 1...}. (R[n;m] ∧ T[n;m]))))))

---

Latex:

---

Latex:
.....assertion..... 
1.  R  :  \mBbbN{}  {}\mrightarrow{}  \mBbbN{}  {}\mrightarrow{}  \mBbbP{}
2.  T  :  \mBbbN{}  {}\mrightarrow{}  \mBbbN{}  {}\mrightarrow{}  \mBbbP{}
3.  b-almost-full(n,m.R[n;m])
4.  b-almost-full(n,m.T[n;m])
5.  n  :  \mBbbN{}
6.  a  :  \{s:\mBbbN{}n  {}\mrightarrow{}  \mBbbN{}|  strictly-increasing-seq(n;s)\} 
7.  \00D9(\mforall{}m:\{m:\mBbbN{}|  strictly-increasing-seq(n  +  1;a.m@n)\}  .  \mforall{}s@0:StrictInc.
              \mexists{}n@0:\mBbbN{}
                (baf-bar(n,m.R[n;m];n,m.T[n;m];n  +  2;a.m@n.s@0  n@0@n  +  1)
                \mvee{}  (\mexists{}n:\mBbbN{}.  \mexists{}m:\{n  +  1...\}.  (R[n;m]  \mwedge{}  T[n;m]))))
8.  gamma  :  StrictInc
9.  N  :  \mBbbZ{}
10.  [\%5]  :  0  <  N
11.  s  :  \mBbbN{}N  -  1  {}\mrightarrow{}  \mBbbN{}
12.  \mforall{}i:\mBbbN{}N  -  1
            (strictly-increasing-seq(n  +  1;a.gamma  (s  i)@n)
            \mwedge{}  (\mforall{}j:\{i  +  1..N  -  1\msupminus{}\}
                      (baf-bar(n,m.R[n;m];n,m.T[n;m];n  +  2;a.gamma  (s  i)@n.gamma  (s  j)@n  +  1)
                      \mvee{}  (\mexists{}n:\mBbbN{}.  \mexists{}m:\{n  +  1...\}.  (R[n;m]  \mwedge{}  T[n;m])))))
\mvdash{}  \00D9(\mexists{}k:\mBbbN{}
          (strictly-increasing-seq(n  +  1;a.gamma  k@n)
          \mwedge{}  (\mforall{}i:\mBbbN{}N  -  1
                    (baf-bar(n,m.R[n;m];n,m.T[n;m];n  +  2;a.gamma  (s  i)@n.gamma  k@n  +  1)
                    \mvee{}  (\mexists{}n:\mBbbN{}.  \mexists{}m:\{n  +  1...\}.  (R[n;m]  \mwedge{}  T[n;m]))))))


By

---

Latex:
TACTIC:(InstLemma  `u-almost-full-finite-intersection`  [\mkleeneopen{}N  -  1\mkleeneclose{};
                \mkleeneopen{}\mlambda{}\msubtwo{}i  k.baf-bar(n,m.R[n;m];n,m.T[n;m];n  +  2;a.gamma  (s  i)@n.gamma  k@n  +  1)
                  \mvee{}  (\mexists{}n:\mBbbN{}.  \mexists{}m:\{n  +  1...\}.  (R[n;m]  \mwedge{}  T[n;m]))\mkleeneclose{}]\mcdot{}
                THENA  Auto
                )

---

Home Index