---

Step * 1 1 3 of Lemma decidable-bar-rec_wf2


1. B : n:ℕ ⟶ (ℕn ⟶ ℕ) ⟶ ℙ
2. Q : n:ℕ ⟶ (ℕn ⟶ ℕ) ⟶ ℙ
3. bar : ∀s:ℕ ⟶ ℕ. (↓∃n:ℕ. B[n;s])
4. dec : ∀n:ℕ. ∀s:ℕn ⟶ ℕ.  (B[n;s] ∨ (¬B[n;s]))
5. base : ∀n:ℕ. ∀s:ℕn ⟶ ℕ.  (B[n;s] ⇒ Q[n;s])
6. ind : ∀n:ℕ. ∀s:ℕn ⟶ ℕ.  ((∀m:ℕ. Q[n + 1;s.m@n]) ⇒ Q[n;s])
7. n : ℕ
8. s : ℕn ⟶ ℕ
9. n1 : ℕ
10. s1 : ℕn1 ⟶ ℕ
11. w : ∀m:ℕ
          (decidable-bar-rec(dec;base;ind;n1 + 1;λx.if x=n1 then m else (s1 x))
           ∈ Q[n1 + 1;λx.if x=n1 then m else (s1 x)])
⊢ decidable-bar-rec(dec;base;ind;n1;s1) ∈ Q[n1;s1]
BY
{ (RecUnfold `decidable-bar-rec` 0⋅
   THEN GenConclAtAddr [2;1]
   THEN DVar `v'
   THEN (Reduce 0 THEN Try (Complete (Auto)))
   THEN Auto
   THEN InstHyp [⌜t⌝] (-4)⋅
   THEN Auto) }

---

Latex:

---

Latex:

1.  B  :  n:\mBbbN{}  {}\mrightarrow{}  (\mBbbN{}n  {}\mrightarrow{}  \mBbbN{})  {}\mrightarrow{}  \mBbbP{}
2.  Q  :  n:\mBbbN{}  {}\mrightarrow{}  (\mBbbN{}n  {}\mrightarrow{}  \mBbbN{})  {}\mrightarrow{}  \mBbbP{}
3.  bar  :  \mforall{}s:\mBbbN{}  {}\mrightarrow{}  \mBbbN{}.  (\mdownarrow{}\mexists{}n:\mBbbN{}.  B[n;s])
4.  dec  :  \mforall{}n:\mBbbN{}.  \mforall{}s:\mBbbN{}n  {}\mrightarrow{}  \mBbbN{}.    (B[n;s]  \mvee{}  (\mneg{}B[n;s]))
5.  base  :  \mforall{}n:\mBbbN{}.  \mforall{}s:\mBbbN{}n  {}\mrightarrow{}  \mBbbN{}.    (B[n;s]  {}\mRightarrow{}  Q[n;s])
6.  ind  :  \mforall{}n:\mBbbN{}.  \mforall{}s:\mBbbN{}n  {}\mrightarrow{}  \mBbbN{}.    ((\mforall{}m:\mBbbN{}.  Q[n  +  1;s.m@n])  {}\mRightarrow{}  Q[n;s])
7.  n  :  \mBbbN{}
8.  s  :  \mBbbN{}n  {}\mrightarrow{}  \mBbbN{}
9.  n1  :  \mBbbN{}
10.  s1  :  \mBbbN{}n1  {}\mrightarrow{}  \mBbbN{}
11.  w  :  \mforall{}m:\mBbbN{}
                    (decidable-bar-rec(dec;base;ind;n1  +  1;\mlambda{}x.if  x=n1  then  m  else  (s1  x))
                      \mmember{}  Q[n1  +  1;\mlambda{}x.if  x=n1  then  m  else  (s1  x)])
\mvdash{}  decidable-bar-rec(dec;base;ind;n1;s1)  \mmember{}  Q[n1;s1]


By

---

Latex:
(RecUnfold  `decidable-bar-rec`  0\mcdot{}
  THEN  GenConclAtAddr  [2;1]
  THEN  DVar  `v'
  THEN  (Reduce  0  THEN  Try  (Complete  (Auto)))
  THEN  Auto
  THEN  InstHyp  [\mkleeneopen{}t\mkleeneclose{}]  (-4)\mcdot{}
  THEN  Auto)

---

Home Index