---

Step * 2 1 1 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. m + n ≠ 0
8. x : T
9. z : T
⊢ ∃z@0:T. ((x R z@0) ∧ (∃y:T. ((z@0 R^m - 1 y) ∧ (y R^n z)))) ⇐⇒ ∃y:T. ((x R^m y) ∧ (y R^n z))
BY
{ (RW (AddrC [2;2;1] (RecUnfoldC `rel_exp`)) 0 THEN AutoSplit THEN Try (Complete (Auto')))⋅ }

---

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.  m  +  n  \mneq{}  0
8.  x  :  T
9.  z  :  T
\mvdash{}  \mexists{}z@0:T.  ((x  R  z@0)  \mwedge{}  (\mexists{}y:T.  ((z@0  R\^{}m  -  1  y)  \mwedge{}  (y  R\^{}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  [2;2;1]  (RecUnfoldC  `rel\_exp`))  0  THEN  AutoSplit  THEN  Try  (Complete  (Auto')))\mcdot{}

---

Home Index