---

Step * 1 1 1 1 of Lemma unique-minimal-wellfounded-implies


1. T : Type
2. R : T ⟶ T ⟶ ℙ
3. ∀[P:T ⟶ ℙ]. ((∀j:T. ((∀k:T. (R[k;j] ⇒ P[k])) ⇒ P[j])) ⇒ {∀n:T. P[n]})@i'
4. m : T@i
5. unique-minimal(T;x,y.R[x;y];m)@i
6. j : T@i
7. ∀k:T. (R[k;j] ⇒ (↓m ((λx,y. R[x;y])^*) k))@i
8. x : T@i
9. R[x;j]@i
10. m ((λx,y. R[x;y])^*) x
⊢ m ((λx,y. R[x;y])^*) j
BY
{ (Using [`y',⌜x⌝] (BLemma `rel_star_transitivity` )⋅ THEN Auto THEN BLemma `rel_rel_star` THEN Auto) }

---

Latex:

---

Latex:

1.  T  :  Type
2.  R  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
3.  \mforall{}[P:T  {}\mrightarrow{}  \mBbbP{}].  ((\mforall{}j:T.  ((\mforall{}k:T.  (R[k;j]  {}\mRightarrow{}  P[k]))  {}\mRightarrow{}  P[j]))  {}\mRightarrow{}  \{\mforall{}n:T.  P[n]\})@i'
4.  m  :  T@i
5.  unique-minimal(T;x,y.R[x;y];m)@i
6.  j  :  T@i
7.  \mforall{}k:T.  (R[k;j]  {}\mRightarrow{}  (\mdownarrow{}m  rel\_star(T;  \mlambda{}x,y.  R[x;y])  k))@i
8.  x  :  T@i
9.  R[x;j]@i
10.  m  rel\_star(T;  \mlambda{}x,y.  R[x;y])  x
\mvdash{}  m  rel\_star(T;  \mlambda{}x,y.  R[x;y])  j


By

---

Latex:
(Using  [`y',\mkleeneopen{}x\mkleeneclose{}]  (BLemma  `rel\_star\_transitivity`  )\mcdot{}  THEN  Auto  THEN  BLemma  `rel\_rel\_star`  THEN  Auto)

---

Home Index