---

Step * 2 of Lemma rel_exp_add_iff


1. [T] : Type
2. [R] : T ⟶ T ⟶ ℙ
3. m : ℤ
4. [%1] : 0 < m
5. ∀n:ℕ. ∀x,z:T.  (x R^(m - 1) + n z ⇐⇒ ∃y:T. ((x R^m - 1 y) ∧ (y R^n z)))
6. n : ℕ
7. x : T
8. z : T
⊢ x R^m + n z ⇐⇒ ∃y:T. ((x R^m y) ∧ (y R^n z))
BY
{ (RW (AddrC [1] (RecUnfoldC `rel_exp`)) 0 THEN AutoSplit THEN Try (Complete (Auto'))) }

1
1. [T] : Type
2. [R] : T ⟶ T ⟶ ℙ
3. m : ℤ
4. [%1] : 0 < m
5. ∀n:ℕ. ∀x,z:T.  (x R^(m - 1) + n z ⇐⇒ ∃y:T. ((x R^m - 1 y) ∧ (y R^n z)))
6. n : ℕ
7. m + n ≠ 0
8. x : T
9. z : T
⊢ ∃z@0:T. ((x R z@0) ∧ (z@0 R^(m + n) - 1 z)) ⇐⇒ ∃y:T. ((x R^m y) ∧ (y R^n z))

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  [R]  :  T  {}\mrightarrow{}  T  {}\mrightarrow{}  \mBbbP{}
3.  m  :  \mBbbZ{}
4.  [\%1]  :  0  <  m
5.  \mforall{}n:\mBbbN{}.  \mforall{}x,z:T.
          (x  R\^{}(m  -  1)  +  n  z  \mLeftarrow{}{}\mRightarrow{}  \mexists{}y:T.  ((x  R\^{}m  -  1  y)  \mwedge{}  (y  R\^{}n  z)))
6.  n  :  \mBbbN{}
7.  x  :  T
8.  z  :  T
\mvdash{}  x  rel\_exp(T;  R;  m  +  n)  z  \mLeftarrow{}{}\mRightarrow{}  \mexists{}y:T.  ((x  rel\_exp(T;  R;  m)  y)  \mwedge{}  (y  rel\_exp(T;  R;  n)  z))


By

---

Latex:
(RW  (AddrC  [1]  (RecUnfoldC  `rel\_exp`))  0  THEN  AutoSplit  THEN  Try  (Complete  (Auto')))

---

Home Index