---

Step * 1 1 1 1 2 of Lemma non-forking-wellfounded-linorder


1. T : Type
2. R : T ⟶ T ⟶ ℙ
3. decidable-non-minimal(T;x,y.R[x;y])
4. WellFnd{i}(T;x,y.R[x;y])
5. m : T
6. unique-minimal(T;x,y.R[x;y];m)
7. non-forking(T;x,y.R[x;y])
8. ∀y:T. (↓∃n:ℕ. (m λx,y. R[x;y]^n y))
9. Order(T;x,y.∃n:ℕ. (x R^n y))
10. x : T
11. y : T
12. n1 : ℕ
13. m R^n1 x
14. n : ℕ
15. m R^n y
16. ¬n1 < n
⊢ (∃n:ℕ. (x R^n y)) ∨ (∃n:ℕ. (y R^n x))
BY
{ ((OrRight THENA Auto)
   THEN (With ⌜n1 - n⌝ (D 0)⋅ THENA Auto)
   THEN (InstLemma `rel_exp_add_iff` [⌜T⌝;⌜R⌝;⌜n⌝;⌜n1 - n⌝;⌜m⌝;⌜x⌝]⋅ THENA Auto)
   THEN D (-1)
   THEN (D -2 THENA (RW IntNormC 0 THEN Auto))
   THEN (ExRepD THEN RenameVar `z' (-3) THEN Subst ⌜z = y ∈ T⌝ (-1)⋅ THEN Auto)⋅) }

1
.....equality..... 
1. T : Type
2. R : T ⟶ T ⟶ ℙ
3. decidable-non-minimal(T;x,y.R[x;y])
4. WellFnd{i}(T;x,y.R[x;y])
5. m : T
6. unique-minimal(T;x,y.R[x;y];m)
7. non-forking(T;x,y.R[x;y])
8. ∀y:T. (↓∃n:ℕ. (m λx,y. R[x;y]^n y))
9. Order(T;x,y.∃n:ℕ. (x R^n y))
10. x : T
11. y : T
12. n1 : ℕ
13. m R^n1 x
14. n : ℕ
15. m R^n y
16. ¬n1 < n
17. (m R^n + (n1 - n) x) ⇐ ∃y:T. ((m R^n y) ∧ (y R^n1 - n x))
18. z : T
19. m R^n z
20. z R^n1 - n x
⊢ z = y ∈ T

---

Latex:

---

Latex:

1.  T  :  Type
2.  R  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
3.  decidable-non-minimal(T;x,y.R[x;y])
4.  WellFnd\{i\}(T;x,y.R[x;y])
5.  m  :  T
6.  unique-minimal(T;x,y.R[x;y];m)
7.  non-forking(T;x,y.R[x;y])
8.  \mforall{}y:T.  (\mdownarrow{}\mexists{}n:\mBbbN{}.  (m  rel\_exp(T;  \mlambda{}x,y.  R[x;y];  n)  y))
9.  Order(T;x,y.\mexists{}n:\mBbbN{}.  (x  rel\_exp(T;  R;  n)  y))
10.  x  :  T
11.  y  :  T
12.  n1  :  \mBbbN{}
13.  m  rel\_exp(T;  R;  n1)  x
14.  n  :  \mBbbN{}
15.  m  rel\_exp(T;  R;  n)  y
16.  \mneg{}n1  <  n
\mvdash{}  (\mexists{}n:\mBbbN{}.  (x  rel\_exp(T;  R;  n)  y))  \mvee{}  (\mexists{}n:\mBbbN{}.  (y  rel\_exp(T;  R;  n)  x))


By

---

Latex:
((OrRight  THENA  Auto)
  THEN  (With  \mkleeneopen{}n1  -  n\mkleeneclose{}  (D  0)\mcdot{}  THENA  Auto)
  THEN  (InstLemma  `rel\_exp\_add\_iff`  [\mkleeneopen{}T\mkleeneclose{};\mkleeneopen{}R\mkleeneclose{};\mkleeneopen{}n\mkleeneclose{};\mkleeneopen{}n1  -  n\mkleeneclose{};\mkleeneopen{}m\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  D  (-1)
  THEN  (D  -2  THENA  (RW  IntNormC  0  THEN  Auto))
  THEN  (ExRepD  THEN  RenameVar  `z'  (-3)  THEN  Subst  \mkleeneopen{}z  =  y\mkleeneclose{}  (-1)\mcdot{}  THEN  Auto)\mcdot{})

---

Home Index