---

Step * 1 1 2 1 1 of Lemma dl-diamond-unwind-1


1. a : Prog
2. phi : Prop
3. K : Type
4. R : ℕ ⟶ K ⟶ K ⟶ ℙ
5. P : ℕ ⟶ K ⟶ ℙ
6. k : K
7. k' : K
8. [|phi|] k'
9. ([|a|]^*) k k'
10. n : ℤ
11. [%5] : 0 < n
12. (k [|a|]^n - 1 k')
⇒ (([|phi|] k)
   ∨ (∃k':K. (([|a|] k k') ∧ ((([|phi|] k') ⇒ False) ∨ (∃k'@0:K. ((([|a|]^*) k' k'@0) ∧ ([|phi|] k'@0)))))))
13. k [|a|]^n k'
14. (k [|a|]^1 + (n - 1) k') ⇐ ∃y:K. ((k [|a|]^1 y) ∧ (y [|a|]^n - 1 k'))
15. y : K
16. k [|a|]^1 y
17. y [|a|]^n - 1 k'
⊢ [|a|] k y
BY
{ ((Assert [|a|]^1 k y BY Auto) THEN RWO "rel_exp1" 18 THEN Auto) }

---

Latex:

---

Latex:

1.  a  :  Prog
2.  phi  :  Prop
3.  K  :  Type
4.  R  :  \mBbbN{}  {}\mrightarrow{}  K  {}\mrightarrow{}  K  {}\mrightarrow{}  \mBbbP{}
5.  P  :  \mBbbN{}  {}\mrightarrow{}  K  {}\mrightarrow{}  \mBbbP{}
6.  k  :  K
7.  k'  :  K
8.  [|phi|]  k'
9.  rel\_star(K;  [|a|])  k  k'
10.  n  :  \mBbbZ{}
11.  [\%5]  :  0  <  n
12.  (k  rel\_exp(K;  [|a|];  n  -  1)  k')
{}\mRightarrow{}  (([|phi|]  k)
      \mvee{}  (\mexists{}k':K
              (([|a|]  k  k')
              \mwedge{}  ((([|phi|]  k')  {}\mRightarrow{}  False)  \mvee{}  (\mexists{}k'@0:K.  ((rel\_star(K;  [|a|])  k'  k'@0)  \mwedge{}  ([|phi|]  k'@0)))))))
13.  k  rel\_exp(K;  [|a|];  n)  k'
14.  (k  rel\_exp(K;  [|a|];  1  +  (n  -  1))  k')  \mLeftarrow{}{}  \mexists{}y:K
                                                                                            ((k  [|a|]\^{}1  y)  \mwedge{}  (y  [|a|]\^{}n  -  1  k'))
15.  y  :  K
16.  k  rel\_exp(K;  [|a|];  1)  y
17.  y  rel\_exp(K;  [|a|];  n  -  1)  k'
\mvdash{}  [|a|]  k  y


By

---

Latex:
((Assert  rel\_exp(K;  [|a|];  1)  k  y  BY  Auto)  THEN  RWO  "rel\_exp1"  18  THEN  Auto)

---

Home Index