---

Step * 1 2 of Lemma vdf-eq_wf


1. A : Type
2. B : Type
3. C : A ⟶ B ⟶ Type
4. ∀n:ℕ
     ((vdf(A;B;a,b.C[a;b];n) ∈ Type)
     ∧ (∀f:vdf(A;B;a,b.C[a;b];n). ∀L:(a:A × b:B × C[a;b]) List.  ((||L|| ≤ (n + 1)) ⇒ (vdf-eq(A;f;L) ∈ ℙ))))
5. L : (a:A × b:B × C[a;b]) List
6. f : very-dep-fun(A;B;a,b.C[a;b])
7. ¬0 < ||L||
⊢ vdf-eq(A;f;L) ∈ ℙ
BY
{ ((Assert ||L|| < 1 BY Auto) THEN Unfold `vdf-eq` 0 THEN Unfold `dep-all` 0 THEN Reduce 0 THEN Auto) }

---

Latex:

---

Latex:

1.  A  :  Type
2.  B  :  Type
3.  C  :  A  {}\mrightarrow{}  B  {}\mrightarrow{}  Type
4.  \mforall{}n:\mBbbN{}
          ((vdf(A;B;a,b.C[a;b];n)  \mmember{}  Type)
          \mwedge{}  (\mforall{}f:vdf(A;B;a,b.C[a;b];n).  \mforall{}L:(a:A  \mtimes{}  b:B  \mtimes{}  C[a;b])  List.
                    ((||L||  \mleq{}  (n  +  1))  {}\mRightarrow{}  (vdf-eq(A;f;L)  \mmember{}  \mBbbP{}))))
5.  L  :  (a:A  \mtimes{}  b:B  \mtimes{}  C[a;b])  List
6.  f  :  very-dep-fun(A;B;a,b.C[a;b])
7.  \mneg{}0  <  ||L||
\mvdash{}  vdf-eq(A;f;L)  \mmember{}  \mBbbP{}


By

---

Latex:
((Assert  ||L||  <  1  BY  Auto)  THEN  Unfold  `vdf-eq`  0  THEN  Unfold  `dep-all`  0  THEN  Reduce  0  THEN  Auto)

---

Home Index