---

Step * 1 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. k [|a|]^0 k'
⊢ ([|phi|] k) ∨ (∃k':K. (([|a|] k k') ∧ ((([|phi|] k') ⇒ False) ∨ (∃k'@0:K. ((([|a|]^*) k' k'@0) ∧ ([|phi|] k'@0))))))
BY
{ ((Assert k = k' ∈ K BY Auto) 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.  k  rel\_exp(K;  [|a|];  0)  k'
\mvdash{}  ([|phi|]  k)
\mvee{}  (\mexists{}k':K
        (([|a|]  k  k')
        \mwedge{}  ((([|phi|]  k')  {}\mRightarrow{}  False)  \mvee{}  (\mexists{}k'@0:K.  ((([|a|]\^{}*)  k'  k'@0)  \mwedge{}  ([|phi|]  k'@0))))))


By

---

Latex:
((Assert  k  =  k'  BY  Auto)  THEN  Auto)

---

Home Index