---

Step * 1 1 2 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'
⊢ ([|phi|] k) ∨ (∃k':K. (([|a|] k k') ∧ ((([|phi|] k') ⇒ False) ∨ (∃k'@0:K. ((([|a|]^*) k' k'@0) ∧ ([|phi|] k'@0))))))
BY
{ ((InstLemma `rel_exp_add_iff` [⌜K⌝;⌜[|a|]⌝;⌜1⌝;⌜n - 1⌝;⌜k⌝;⌜k'⌝;⌜k'⌝]⋅ THENA Auto)
   THEN D -1
   THEN (D -2 THENA ((Assert (1 + (n - 1)) = n ∈ ℤ BY Auto) THEN Auto))) }

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. ((k [|a|]^1 y) ∧ (y [|a|]^n - 1 k'))
⊢ ([|phi|] k) ∨ (∃k':K. (([|a|] k k') ∧ ((([|phi|] k') ⇒ False) ∨ (∃k'@0:K. ((([|a|]^*) k' k'@0) ∧ ([|phi|] k'@0))))))

---

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'
\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:
((InstLemma  `rel\_exp\_add\_iff`  [\mkleeneopen{}K\mkleeneclose{};\mkleeneopen{}[|a|]\mkleeneclose{};\mkleeneopen{}1\mkleeneclose{};\mkleeneopen{}n  -  1\mkleeneclose{};\mkleeneopen{}k\mkleeneclose{};\mkleeneopen{}k'\mkleeneclose{};\mkleeneopen{}k'\mkleeneclose{}]\mcdot{}  THENA  Auto)
  THEN  D  -1
  THEN  (D  -2  THENA  ((Assert  (1  +  (n  -  1))  =  n  BY  Auto)  THEN  Auto)))

---

Home Index