---

Step * of Lemma poly-int-value

∀[p:tree(ℤ)]. ∀[l:Top List]. (p@l = p@[] ∈ ℤ) supposing ↑poly-int(p)
BY
{ ((Assert ⌜∀k:ℕ. ∀[p:tree(ℤ)]. (∀[l:Top List]. (p@l = p@[] ∈ ℤ)) supposing ((↑poly-int(p)) and (tree_size(p) ≤ k))⌝⋅
   THENM (Auto THEN InstHyp [⌜tree_size(p)⌝;⌜p⌝] 1⋅ THEN Auto)
   )
   THEN CompleteInductionOnNat
   THEN Auto) }

1
1. k : ℕ
2. ∀k:ℕk. ∀[p:tree(ℤ)]. (∀[l:Top List]. (p@l = p@[] ∈ ℤ)) supposing ((↑poly-int(p)) and (tree_size(p) ≤ k))
3. p : tree(ℤ)
4. tree_size(p) ≤ k
5. ↑poly-int(p)
6. l : Top List
⊢ p@l = p@[] ∈ ℤ

---

Latex:

---

Latex:
\mforall{}[p:tree(\mBbbZ{})].  \mforall{}[l:Top  List].  (p@l  =  p@[])  supposing  \muparrow{}poly-int(p)


By

---

Latex:
((Assert  \mkleeneopen{}\mforall{}k:\mBbbN{}
                        \mforall{}[p:tree(\mBbbZ{})]
                            (\mforall{}[l:Top  List].  (p@l  =  p@[]))  supposing  ((\muparrow{}poly-int(p))  and  (tree\_size(p)  \mleq{}  k))\mkleeneclose{}\mcdot{}
  THENM  (Auto  THEN  InstHyp  [\mkleeneopen{}tree\_size(p)\mkleeneclose{};\mkleeneopen{}p\mkleeneclose{}]  1\mcdot{}  THEN  Auto)
  )
  THEN  CompleteInductionOnNat
  THEN  Auto)

---

Home Index