---

Step * 1 2 of Lemma fun-connected-induction2


1. [T] : Type
2. f : T ⟶ T
3. [R] : T ⟶ T ⟶ ℙ
4. ∀x:T. R[x;x]
5. ∀x,y:T.  x is f*(f y) ⇒ R[x;f y] ⇒ R[x;y] supposing ¬((f y) = y ∈ T)
6. ∀n:ℕ. ∀x,y:T. ∀L:T List.  (||L|| < n ⇒ x=f*(y) via L ⇒ R[x;y])
⊢ {∀x,y:T.  (x is f*(y) ⇒ R[x;y])}
BY
{ (((Unfold `guard` 0 THEN Auto) THEN D -1) THEN InstHyp [⌜||L|| + 1⌝;⌜x⌝;⌜y⌝;⌜L⌝] 6⋅ THEN Auto') }

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  f  :  T  {}\mrightarrow{}  T
3.  [R]  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
4.  \mforall{}x:T.  R[x;x]
5.  \mforall{}x,y:T.    x  is  f*(f  y)  {}\mRightarrow{}  R[x;f  y]  {}\mRightarrow{}  R[x;y]  supposing  \mneg{}((f  y)  =  y)
6.  \mforall{}n:\mBbbN{}.  \mforall{}x,y:T.  \mforall{}L:T  List.    (||L||  <  n  {}\mRightarrow{}  x=f*(y)  via  L  {}\mRightarrow{}  R[x;y])
\mvdash{}  \{\mforall{}x,y:T.    (x  is  f*(y)  {}\mRightarrow{}  R[x;y])\}


By

---

Latex:
(((Unfold  `guard`  0  THEN  Auto)  THEN  D  -1)  THEN  InstHyp  [\mkleeneopen{}||L||  +  1\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}y\mkleeneclose{};\mkleeneopen{}L\mkleeneclose{}]  6\mcdot{}  THEN  Auto')

---

Home Index