Step * 2 of Lemma assert-equal-upto-finite-nat-seq


1. : ℤ
2. 0 < n
3. ∀f,g:ℕ1 ⟶ ℕ.  (↑primrec(n 1;tt;λi,b. (b ∧b (f =z i))) ⇐⇒ g ∈ (ℕ1 ⟶ ℕ))
4. : ℕn ⟶ ℕ
5. : ℕn ⟶ ℕ
⊢ ↑primrec(n;tt;λi,b. (b ∧b (f =z i))) ⇐⇒ g ∈ (ℕn ⟶ ℕ)
BY
((RWO "primrec-unroll-1" THENA Auto) THEN Reduce THEN (RW assert_pushdownC THENA Auto)) }

1
1. : ℤ
2. 0 < n
3. ∀f,g:ℕ1 ⟶ ℕ.  (↑primrec(n 1;tt;λi,b. (b ∧b (f =z i))) ⇐⇒ g ∈ (ℕ1 ⟶ ℕ))
4. : ℕn ⟶ ℕ
5. : ℕn ⟶ ℕ
⊢ (↑primrec(n 1;tt;λi,b. (b ∧b (f =z i)))) ∧ ((f (n 1)) (g (n 1)) ∈ ℤ⇐⇒ g ∈ (ℕn ⟶ ℕ)


Latex:


Latex:

1.  n  :  \mBbbZ{}
2.  0  <  n
3.  \mforall{}f,g:\mBbbN{}n  -  1  {}\mrightarrow{}  \mBbbN{}.    (\muparrow{}primrec(n  -  1;tt;\mlambda{}i,b.  (b  \mwedge{}\msubb{}  (f  i  =\msubz{}  g  i)))  \mLeftarrow{}{}\mRightarrow{}  f  =  g)
4.  f  :  \mBbbN{}n  {}\mrightarrow{}  \mBbbN{}
5.  g  :  \mBbbN{}n  {}\mrightarrow{}  \mBbbN{}
\mvdash{}  \muparrow{}primrec(n;tt;\mlambda{}i,b.  (b  \mwedge{}\msubb{}  (f  i  =\msubz{}  g  i)))  \mLeftarrow{}{}\mRightarrow{}  f  =  g


By


Latex:
((RWO  "primrec-unroll-1"  0  THENA  Auto)  THEN  Reduce  0  THEN  (RW  assert\_pushdownC  0  THENA  Auto))




Home Index