Smallstep_J: スモールステップ操作的意味論



Require Export Imp_J.
Require Import Relations.

ここまで見てきた評価器(例えばaexpのもの、bexpのもの、コマンドのもの) はビッグステップスタイルで記述されてきました。 つまり、与えられた式がどのように最終的な値になるか (またはコマンドと記憶状態(store)の組がどのように最終記憶状態になるか)を特定していました。 「すべてが1つの大きなステップ」で行われました。

このスタイルは単純で多くの目的のために自然な方法です(実際、Gilles Kahn は、 この使用を広めた人ですが、彼はこれを自然意味論(natural semantics)と呼びました)。 しかし、これではうまくいかないときもあります。 特に、この方法は、並列プログラミング言語について話す自然な方法を提供してくれません。 並列プログラミング言語の場合、プログラムの「意味」、つまり プログラムがどのように振る舞うかの本質は、 入力状態が出力状態にどのように写像されるかだけではなく、途中で通過する状態も含みます。 なぜなら、中間状態は並列実行されるコードからも観測されるからです。

ビッグステップスタイルのもう1つの欠点は、より技術的なことですが、 ある種のアプリケーションには致命的です。 ImpList_J.v で導入した、リストを持つImpの変種を考えましょう。 0 + nilのようなプログラムの意味を、数値が期待されるコンテキストでリストが現れたときには、 それを0と解釈するものとして定義する方法をとりました。しかしこれはその場限りのものでした。 単純に、 そのようなプログラムの振る舞いは「未定義」(undefined)と言ってしまった方がよかったでしょう。 つまりどのような結果にも評価されないということです。 そうすることは簡単にできるでしょう。 aevalbevalの定義方法として(Fixpoint ではなく)帰納的命題を使うだけです。 すると、全関数(total function)ではなく部分関数(partial function)にすることができます。

しかしながら、この方法で Imp を定義することには深刻な欠陥があります。 この言語には、コマンドが初期状態を終了状態に写像するのに失敗するまったく異なる2種類の理由があります。 1つは評価が無限ループに陥ることによるもの、もう1つは、どこかの地点でプログラムが、 ブール値の次の値をとるなどの意味のない操作をしようとして、 どの評価規則も適用できなくなることによるものです。

この2つの結果、つまり「停止しないこと」と「間違った設定によって行き詰まること」は、まったく別物です。 特に、1つ目は許容し(無限ループの可能性を許すことは、 プログラミングに while のような一般的ループ構造を使う便利さの代償です)、 2つ目(これはただの間違いです)は禁じたいのです。 これは例えば言語に何らかの「型チェック」(typechecking)を追加することで実現できます。 実のところ、これはこのコースの残りの部分の主要なトピックです。 最初のステップとして、停止しないことと、 間違いによる「行き詰まり状態」を区別することができる別の意味提示方法が必要です。

このように、いろいろな理由で、 プログラムの振る舞いを定義し推論するよりきめの細かい方法が欲しいのです。 これがこの章のトピックです。 与えられたプログラムに対して計算の「アトミックなステップ」 がどのように行なわれるかを定める「スモールステップ」の関係によって、 「ビッグステップ」のeval関係を置き換えます。

おもちゃの言語


無駄な議論を省くため、定数と足し算だけの極端に単純な言語に戻りましょう。 この章の終わりには、同じテクニックをImp言語全体に適用する方法がわかるでしょう。

Inductive tm : Type :=
  | tm_const : nat tm
  | tm_plus : tm tm tm.

Tactic Notation "tm_cases" tactic(first) ident(c) :=
  first;
  [ Case_aux c "tm_const" | Case_aux c "tm_plus" ].

Module SimpleArith0.

次がこの言語の標準的な評価器です。 ここまでやってきたのと同じ(ビッグステップの)スタイルで記述されています。

Fixpoint eval (t : tm) : nat :=
  match t with
  | tm_const n => n
  | tm_plus a1 a2 => eval a1 + eval a2
  end.

End SimpleArith0.

Module SimpleArith1.

次は同じ評価器を、まったく同じスタイルながら、帰納的に定義された関係によって定式化したものです。 再び、「tnに評価される」を記法 t n で表しています。

                                ------ (E_Const)
                                n n

                               t1 n1
                               t2 n2
                        --------------------- (E_Plus)
                        t1 + t2 plus n1 n2

2つ目の規則で n1 + n2 ではなく plus n1 n2 と書いています。 これは、 の左側にある+が抽象構文木のノードであるのに対し、 の右側の加算は数値 n1n2 の数学的な和であることを強調するためです。 形式的なCoqのバージョンではこの区別についてより堅苦しくなっています。

Reserved Notation " t '||' n " (at level 50, left associativity).

Inductive eval : tm nat Prop :=
  | E_Const : n,
      tm_const n n
  | E_Plus : t1 t2 n1 n2,
      t1 n1
      t2 n2
      tm_plus t1 t2 plus n1 n2

  where " t '||' n " := (eval t n).

End SimpleArith1.

次はわずかに変わっています。まだビッグステップスタイルですが、 項の最終結果が数値そのものではなく、また項になっています。

Reserved Notation " t '||' t' " (at level 50, left associativity).

Inductive eval : tm tm Prop :=
  | E_Const : n1,
        tm_const n1 tm_const n1
  | E_Plus : t1 n1 t2 n2,
        t1 tm_const n1
        t2 tm_const n2
        tm_plus t1 t2 tm_const (plus n1 n2)

  where " t '||' t' " := (eval t t').

(非形式的な規則では、定数「項」nとそのままの「数値」nの区別を省いているので、 何も変わらないことに注意します。)

Tactic Notation "eval_cases" tactic(first) ident(c) :=
  first;
  [ Case_aux c "E_Const" | Case_aux c "E_Plus" ].

Module SimpleArith2.

そして、次がスモールステップ版です。

                        ---------------------- (ST_PlusConstConst)
                        n1 + n2 plus n1 n2

                              t1 t1'
                         ------------------- (ST_Plus1)
                         t1 + t2 t1' + t2

                              t2 t2'
                         ------------------- (ST_Plus2)
                         n1 + t2 n1 + t2'

なお、ここでは記法を簡単にするため変数名を使っています。慣習として、n1n2は定数 (tm_constで構成されるもの)のみを指します。一方t1t2は任意の項を指します。 形式的規則では明示的なコンストラクタを使ってこの区別をします。

Reserved Notation " t '==>' t' " (at level 40).

Inductive step : tm tm Prop :=
  | ST_PlusConstConst : n1 n2,
      tm_plus (tm_const n1) (tm_const n2) tm_const (plus n1 n2)
  | ST_Plus1 : t1 t1' t2,
      t1 t1'
      tm_plus t1 t2 tm_plus t1' t2
  | ST_Plus2 : n1 t2 t2',
      t2 t2'
      tm_plus (tm_const n1) t2 tm_plus (tm_const n1) t2'

  where " t '==>' t' " := (step t t').

注目すること:
  • 定義しているのは簡約のちょうど1ステップです。 そこでは1つのtm_plusノードがその値に置き換えられます。

  • 各ステップでは「最左」の準備ができている(つまり、引数が両方とも定数である) tm_plusノードを探して、それをその場で書き換えます。 最初の規則はtm_plusノードをどのように書き換えるかを定めます。 残りの2つの規則は、それをどう探すかを定めます。

  • 定数の項は、ステップを進めません。

Tactic Notation "step_cases" tactic(first) ident(c) :=
  first;
  [ Case_aux c "ST_PlusConstConst"
  | Case_aux c "ST_Plus1" | Case_aux c "ST_Plus2" ].

step関係を使った推論の例を2つ...

もしt1が1ステップでt1'になるならば、 tm_plus t1 t2 は1ステップで plus t1' t2 になります:

Example test_step_1 :
      tm_plus
        (tm_plus (tm_const 0) (tm_const 3))
        (tm_plus (tm_const 2) (tm_const 4))
      
      tm_plus
        (tm_const (plus 0 3))
        (tm_plus (tm_const 2) (tm_const 4)).
Proof.
  apply ST_Plus1. apply ST_PlusConstConst. Qed.

練習問題: ★★ (test_step_2)

和の右側がステップを進むことができるのは、左側が終了したときだけです: もしt2が1ステップでt2'になるならば、 tm_plus (tm_const n) t2 は1ステップで tm_plus (tm_const n) t2' になります。(次の証明を完成させなさい):

Example test_step_2 :
      tm_plus
        (tm_const 0)
        (tm_plus
          (tm_const 2)
          (tm_plus (tm_const 0) (tm_const 3)))
      
      tm_plus
        (tm_const 0)
        (tm_plus
          (tm_const 2)
          (tm_const (plus 0 3))).
Proof.
Admitted.

関係 のおもしろい性質の1つは、 Imp プログラムの言語の評価関係と同様、決定性を持つ(deterministic)ということです。

「定理」: 各tに対して、tが1ステップでt'になる(t t' が証明可能な) t'は高々1つである。 形式的には、これは、が部分関数であるというのと同じです。

「証明スケッチ」:xが1ステップでy1y2のどちらにもなるとき、y1y2 が等しいことを、step x y1 の導出についての帰納法で示す。 この導出と step x y2 の導出のそれぞれで使われた最後の規則によって、 いくつかの場合がある。
  • もし両者とも ST_PlusConstConst ならば、一致は明らかである。

  • 導出が両者とも ST_Plus1 または ST_Plus2 で終わるならば、 帰納法の仮定から成立する。

  • 一方が ST_PlusConstConst で、他方が ST_Plus1 または ST_Plus2 であることはあり得ない。なぜなら、そうなるためには、 xtm_plus t1 t2 の形で(ST_PlusConstConstより) t1t2が両者とも定数であり、かつt1またはt2tm_plus ... の形でなければならない。

  • 同様に、一方が ST_Plus1 で他方が ST_Plus2 であることもあり得ない。 なぜなら、そのためには、xtm_plus t1 t2 の形で、 t1tm_plus t1 t2 の形でも tm_const n の形でもなければならないからである。

Theorem step_deterministic:
  partial_function step.
Proof.
  unfold partial_function. intros x y1 y2 Hy1 Hy2.
  generalize dependent y2.
  step_cases (induction Hy1) Case; intros y2 Hy2.
    Case "ST_PlusConstConst". step_cases (inversion Hy2) SCase.
      SCase "ST_PlusConstConst". reflexivity.
      SCase "ST_Plus1". inversion H2.
      SCase "ST_Plus2". inversion H2.
    Case "ST_Plus1". step_cases (inversion Hy2) SCase.
      SCase "ST_PlusConstConst". rewrite H0 in Hy1. inversion Hy1.
      SCase "ST_Plus1".
        rewrite (IHHy1 t1'0).
        reflexivity. assumption.
      SCase "ST_Plus2". rewrite H in Hy1. inversion Hy1.
    Case "ST_Plus2". step_cases (inversion Hy2) SCase.
      SCase "ST_PlusConstConst". rewrite H1 in Hy1. inversion Hy1.
      SCase "ST_Plus1". inversion H2.
      SCase "ST_Plus2".
        rewrite (IHHy1 t2'0).
        reflexivity. assumption. Qed.

End SimpleArith2.


定義した1ステップ簡約の定義をちょっとだけ一般化するために少し時間をとりましょう。

関係 を抽象機械(abstract machine)の定義と考えるのは便利です:
  • どの時点でも、機械の状態(state)は項です。

  • 機械のステップ(step)は、計算のアトミックな単位です。ここでは、1つの加算処理です。

  • 機械の停止状態(halting states)は、さらなる計算が存在しない状態です。
このとき、項tは以下のように評価できます:
  • tを機械の開始状態としてとります。

  • 次のような機械の状態の列を見つけるために、 関係を繰り返し使います。 見つけるのは、tから始まり、それぞれの状態から1ステップでその次の状態になる列です。

  • もう簡約ができなくなったとき、機械の最終状態を、実行結果として「読み出し」ます。

直観的には、機械の最終状態が常に、 あるnについての tm_const n という形の項になることは明らかです。 そのような項を「値」(values)と呼びます。

Inductive value : tm Prop :=
  v_const : n, value (tm_const n).

値の概念を導入したので、これを 関係の定義に使うことで、 ST_Plus2 規則をもう少しだけ直観的なものにできます:

                        ---------------------- (ST_PlusConstConst)
                        n1 + n2 plus n1 n2

                              t1 t1'
                         ------------------- (ST_Plus1)
                         t1 + t2 t1' + t2

                              t2 t2'
                         ------------------- (ST_Plus2)
                         v1 + t2 v1 + t2'

再び、変数名が重要な情報を担っています: 慣習として、v1は値のみを変域とし、一方t1t2は任意の項を変域とします。 規則のCoqバージョンでは、同じ目的のために明示的なvalue仮定を使います。

Reserved Notation " t '==>' t' " (at level 40).

Inductive step : tm tm Prop :=
  | ST_PlusConstConst : n1 n2,
          tm_plus (tm_const n1) (tm_const n2)
       tm_const (plus n1 n2)
  | ST_Plus1 : t1 t1' t2,
        t1 t1'
        tm_plus t1 t2 tm_plus t1' t2
  | ST_Plus2 : v1 t2 t2',
        value v1
        t2 t2'
        tm_plus v1 t2 tm_plus v1 t2'

  where " t '==>' t' " := (step t t').

Tactic Notation "step_cases" tactic(first) ident(c) :=
  first;
  [ Case_aux c "ST_PlusConstConst"
  | Case_aux c "ST_Plus1" | Case_aux c "ST_Plus2" ].

練習問題: ★★★, recommended (redo_determinacy)

この変更のサニティチェックのため、決定性を再検証しましょう。

証明スケッチ: もしxが1ステップでy1にもy2にも進むならば、 y1y2が等しいことを示さなければならない。 step x y1step x y2 の導出の最後の規則を考える。
  • もし両者ともST_PlusConstConstならば、一致は明らかである。

  • 一方が ST_PlusConstConst で、他方が ST_Plus1 または ST_Plus2 であることはあり得ない。なぜなら、そうなるためには、 xtm_plus t1 t2 の形で(ST_PlusConstConstより) t1t2が両者とも定数であり、かつt1またはt2tm_plus ... の形でなければならない。

  • 同様に、一方が ST_Plus1 で他方が ST_Plus2 であることもあり得ない。 なぜなら、そのためには、xtm_plus t1 t2 の形で、 t1tm_plus t1 t2 の形であり、かつ( tm_const n の形であるから) 値でもなければならないからである。

  • 導出が両者とも ST_Plus1 または ST_Plus2 で終わるならば、 帰納法の仮定から成立する。

証明のほとんどは前のものと同じです。しかし、練習問題の効果を最大にするために、 ゼロから証明を書き、前のものを見るのは行き詰まった時だけにしなさい。

Theorem step_deterministic :
  partial_function step.
Proof.
Admitted.

強進行と正規形


おもちゃの言語に対する1ステップの簡約の定義はかなり単純です。 しかし、より大きな言語に対しては、何か規則を忘れてしまうことは簡単に起き、 項が完全に値に簡約されていないのにステップを進めなくなってしまうことが発生します。 次の定理は、このような間違いをしていないことを示します。

「定理(強進行)」(Strong Progress):すべての t:tm について tは値であるか、ある項t'があって t t' となる。

「証明」: tについての帰納法で証明する。
  • t = tm_const n とする。すると、tvalue(値)である。

  • t = tm_plus t1 t2 と仮定する。ここで(帰納仮定から) t1は値であるか、1ステップであるt1'になり、また、t2は値であるか、 1ステップであるt2'になる。 ここで必要なのは、tm_plus t1 t2が値であるか、 あるt'に1ステップで進むということを示すことである。

    • もしt1t2がともに値なら、ST_PlusConstConstにより tはステップを進むことができる。

    • もしt1が値でt2がステップを進むことができるならば、ST_Plus2により tもステップを進むことができる。

    • もしt1がステップを進むことができるならば、ST_Plus1により tもステップを進むことができる。

この重要な性質は「強進行」(strong progress)と呼ばれます。 これは、すべての項が値であるか、別の項に「進行できる」("make progress") ことからきた名称です。「強」("strong")という修飾句は、 後の章のより細分されたバージョン(単に「進行」("progress")と呼ばれる) と区別するためのものです。

Theorem strong_progress : t,
  value t ( t', t t').
Proof.
  tm_cases (induction t) Case.
    Case "tm_const". left. apply v_const.
    Case "tm_plus". right. inversion IHt1.
      SCase "l". inversion IHt2.
        SSCase "l". inversion H. inversion H0.
           (tm_const (plus n n0)).
          apply ST_PlusConstConst.
        SSCase "r". inversion H0 as [t' H1].
           (tm_plus t1 t').
          apply ST_Plus2. apply H. apply H1.
      SCase "r". inversion H as [t' H0].
           (tm_plus t' t2).
          apply ST_Plus1. apply H0. Qed.

「進行する」という概念の拡張から、value(値)についての興味深い性質がわかります: 値とはこの意味で進行「できない」項のことに他なりません。 この事実を述べるために、進行できない項に名前をつけましょう。そういう項を「正規形」 (normal form)と呼びます。

Definition normal_form {X:Type} (R:relation X) (t:X) : Prop :=
  ~ t', R t t'.

この定義は実際には、任意の集合Xの上の「任意の」関係Rについて、 何が正規形であるかを定めています。 今興味対象としている、項の上の特定の1ステップ簡約関係に限るものではありません。 このコースで後に、別の関係の議論において同じ用語法を用います。

強進行定理の洞察を一般化するためにこの用語を使います。 この言語では、正規形と値とは実質的に同じものです。

Lemma value_is_nf : t,
  value t normal_form step t.
Proof.
  unfold normal_form. intros t H. inversion H.
  intros contra. inversion contra. inversion H1.
Qed.

Lemma nf_is_value : t,
  normal_form step t value t.
Proof.   unfold normal_form. intros t H.
  assert (G : value t t', t t').
    SCase "Proof of assertion". apply strong_progress.
  inversion G.
    SCase "l". apply H0.
    SCase "r". apply ex_falso_quodlibet. apply H. assumption. Qed.

Corollary nf_same_as_value : t,
  normal_form step t value t.
Proof.
  split. apply nf_is_value. apply value_is_nf.
Qed.

なぜこれが興味深いのでしょう? 2つの理由があります:
  • なぜならvalue(値)は構文的概念です。つまり項の形を見ることで定義されます。 一方normal_form(正規形)は意味論的なものです。 つまり項がどのようにステップを進むかによって定義されます。 この2つの概念が一致することは自明ではないのです!

  • 実際、正規形と値の概念が一致「しない」言語はたくさん存在します。

これがどうして起こるのか調べてみましょう...


例えば、value(値)の定義を間違えていて、 簡約が完了していない項を含んでいるかもしれません。

Module Temp1.

Inductive value : tm Prop :=
| v_const : n, value (tm_const n)
| v_funny : t1 n2,
              value (tm_plus t1 (tm_const n2)).

Reserved Notation " t '==>' t' " (at level 40).

Inductive step : tm tm Prop :=
  | ST_PlusConstConst : n1 n2,
      tm_plus (tm_const n1) (tm_const n2) tm_const (plus n1 n2)
  | ST_Plus1 : t1 t1' t2,
      t1 t1'
      tm_plus t1 t2 tm_plus t1' t2
  | ST_Plus2 : v1 t2 t2',
      value v1
      t2 t2'
      tm_plus v1 t2 tm_plus v1 t2'

  where " t '==>' t' " := (step t t').

練習問題: ★★★, recommended (value_not_same_as_normal_form)

Lemma value_not_same_as_normal_form :
   t, value t ~ normal_form step t.
Proof.
Admitted.

End Temp1.


あるいは、stepの定義を間違えていて、 値とされたものをさらに簡約するようになっているかもしれません。

Module Temp2.

Inductive value : tm Prop :=
| v_const : n, value (tm_const n).

Reserved Notation " t '==>' t' " (at level 40).

Inductive step : tm tm Prop :=
  | ST_Funny : n,
      tm_const n tm_plus (tm_const n) (tm_const 0)
  | ST_PlusConstConst : n1 n2,
      tm_plus (tm_const n1) (tm_const n2) tm_const (plus n1 n2)
  | ST_Plus1 : t1 t1' t2,
      t1 t1'
      tm_plus t1 t2 tm_plus t1' t2
  | ST_Plus2 : v1 t2 t2',
      value v1
      t2 t2'
      tm_plus v1 t2 tm_plus v1 t2'

  where " t '==>' t' " := (step t t').

練習問題: ★★★, recommended (value_not_same_as_normal_form)

Lemma value_not_same_as_normal_form :
   t, value t ~ normal_form step t.
Proof.
Admitted.

End Temp2.


最後に、valuestepの定義を間違えていて、ある項について、値でもなく、 step関係で1ステップ進むこともできなくなっているかもしれません。 そのような項は「行き詰まり」(stuck)と呼ぶべきでしょう。

Module Temp3.

Inductive value : tm Prop :=
  | v_const : n, value (tm_const n).

Reserved Notation " t '==>' t' " (at level 40).

Inductive step : tm tm Prop :=
  | ST_PlusConstConst : n1 n2,
      tm_plus (tm_const n1) (tm_const n2) tm_const (plus n1 n2)
  | ST_Plus1 : t1 t1' t2,
      t1 t1'
      tm_plus t1 t2 tm_plus t1' t2

  where " t '==>' t' " := (step t t').

(ST_Plus2 がないことに注意します。)

練習問題: ★★★ (value_not_same_as_normal_form')

Lemma value_not_same_as_normal_form :
   t, ~ value t normal_form step t.
Proof.
Admitted.

End Temp3.

練習問題


Module Temp4.

以下は、別の非常に簡単な言語です。項は、加算と数値の代わりに、 真理値 true と false、および条件式です...

Inductive tm : Type :=
  | tm_true : tm
  | tm_false : tm
  | tm_if : tm tm tm tm.

Inductive value : tm Prop :=
  | v_true : value tm_true
  | v_false : value tm_false.

Reserved Notation " t '==>' t' " (at level 40).

Inductive step : tm tm Prop :=
  | ST_IfTrue : t1 t2,
      tm_if tm_true t1 t2 t1
  | ST_IfFalse : t1 t2,
      tm_if tm_false t1 t2 t2
  | ST_If : t1 t1' t2 t3,
      t1 t1'
      tm_if t1 t2 t3 tm_if t1' t2 t3

  where " t '==>' t' " := (step t t').

練習問題: ★ (smallstep_bools)

以下の命題のうち証明できるものはどれでしょう? (これは単に頭の体操です。 しかしさらなるチャレンジとしてCoqで自分の答えを自由に証明してみなさい。)

Definition bool_step_prop1 :=
  tm_false tm_false.


Definition bool_step_prop2 :=
     tm_if
       tm_true
       (tm_if tm_true tm_true tm_true)
       (tm_if tm_false tm_false tm_false)
  
     tm_true.


Definition bool_step_prop3 :=
     tm_if
       (tm_if tm_true tm_true tm_true)
       (tm_if tm_true tm_true tm_true)
       tm_false
   
     tm_if
       tm_true
       (tm_if tm_true tm_true tm_true)
       tm_false.


練習問題: ★★★, recommended (progress_bool)

加算式についてと同様に、ブール式についても進行定理が証明できます。 (やってみなさい。)

Theorem strong_progress : t,
  value t ( t', t t').
Proof.
Admitted.

練習問題: ★★, optional (step_deterministic)

Theorem step_deterministic :
  partial_function step.
Proof.
Admitted.

Module Temp5.

練習問題: ★★ (smallstep_bool_shortcut)

条件式のthenelseの枝が同じ値のとき(ともにtm_trueであるか、 ともにtm_falseであるかのとき)、ガードが値に簡約されていなくても、 条件式全体を枝の値に簡約するように、ステップ関係にバイパスを追加したいとします。 例えば次の命題を証明できるようにしたいとします:
         tm_if
            (tm_if tm_true tm_true tm_true)
            tm_false
            tm_false
     
         tm_false.


ステップ関係にこのための追加の節を記述し、bool_step_prop4を証明しなさい。

Reserved Notation " t '==>' t' " (at level 40).

Inductive step : tm tm Prop :=
  | ST_IfTrue : t1 t2,
      tm_if tm_true t1 t2 t1
  | ST_IfFalse : t1 t2,
      tm_if tm_false t1 t2 t2
  | ST_If : t1 t1' t2 t3,
      t1 t1'
      tm_if t1 t2 t3 tm_if t1' t2 t3


  where " t '==>' t' " := (step t t').

Definition bool_step_prop4 :=
         tm_if
            (tm_if tm_true tm_true tm_true)
            tm_false
            tm_false
     
         tm_false.

Example bool_step_prop4_holds :
  bool_step_prop4.
Proof.
Admitted.

練習問題: ★★★ (properties_of_altered_step)

講義ノートのステップ関係についての決定性定理と強進行定理が、 上記のステップの定義についても証明できます。 ST_ShortCircuit節を追加した後で...
  • step関係はそれでも決定性を持つでしょうか? yes または no と書き、簡潔に(1文で)その答えを説明しなさい。

    Optional: Coq でその答えが正しいことを証明しなさい。


  • 強進行定理は成立するでしょうか? yes または no と書き、簡潔に(1文で)その答えを説明しなさい。

    Optional: Coq でその答えが正しいことを証明しなさい。


  • 一般に、オリジナルのステップ関係から1つ以上のコンストラクタを取り除いて、 強進行性を持たなくする方法はあるでしょうか? yes または no と書き、簡潔に(1文で)その答えを説明しなさい。

End Temp5.
End Temp4.

マルチステップ簡約


ここまでは、1ステップ簡約関係 に取り組んできました。 これは、プログラムを実行する抽象機械の1つのステップを形式化したものです。

この機械を使って、プログラムを完全に簡約してみるのもおもしろいでしょう。 つまり、その最後の結果がどうなるかを調べることです。 これは以下のように形式化できます:
  • 最初に、「マルチステップ簡約関係」(multi-step reduction relation) ⇒* を定義します。 この関係は、tから1ステップ簡約を何らかの回数回行うことでt'に到達できるとき、 tt'を関係づけるものです。

  • 次に項tの結果("result")を、 tがマルチステップ簡約で到達できる正規形tとして定義します。

マルチステップ簡約


マルチステップ簡約(multi-step reduction)関係 ⇒* は1ステップ関係 の反射推移閉包です。

Definition stepmany := refl_step_closure step.

Notation " t '==>*' t' " := (stepmany t t') (at level 40).

例えば...

Lemma test_stepmany_1:
      tm_plus
        (tm_plus (tm_const 0) (tm_const 3))
        (tm_plus (tm_const 2) (tm_const 4))
   ⇒*
      tm_const (plus (plus 0 3) (plus 2 4)).
Proof.
  apply rsc_step with
            (tm_plus
                (tm_const (plus 0 3))
                (tm_plus (tm_const 2) (tm_const 4))).
  apply ST_Plus1. apply ST_PlusConstConst.
  apply rsc_step with
            (tm_plus
                (tm_const (plus 0 3))
                (tm_const (plus 2 4))).
  apply ST_Plus2. apply v_const.
  apply ST_PlusConstConst.
  apply rsc_R.
  apply ST_PlusConstConst. Qed.

以下は別証です。 eapplyを使うことで、すべての中間的な項を明示的に構成する必要をなくしたものです。

Lemma test_stepmany_1':
      tm_plus
        (tm_plus (tm_const 0) (tm_const 3))
        (tm_plus (tm_const 2) (tm_const 4))
  ⇒*
      tm_const (plus (plus 0 3) (plus 2 4)).
Proof.
  eapply rsc_step. apply ST_Plus1. apply ST_PlusConstConst.
  eapply rsc_step. apply ST_Plus2. apply v_const.
  apply ST_PlusConstConst.
  eapply rsc_step. apply ST_PlusConstConst.
  apply rsc_refl. Qed.

練習問題: ★ (test_stepmany_2)

Lemma test_stepmany_2:
  tm_const 3 ⇒* tm_const 3.
Proof.
Admitted.

練習問題: ★ (test_stepmany_3)

Lemma test_stepmany_3:
      tm_plus (tm_const 0) (tm_const 3)
   ⇒*
      tm_plus (tm_const 0) (tm_const 3).
Proof.
Admitted.

練習問題: ★★ (test_stepmany_4)

Lemma test_stepmany_4:
      tm_plus
        (tm_const 0)
        (tm_plus
          (tm_const 2)
          (tm_plus (tm_const 0) (tm_const 3)))
  ⇒*
      tm_plus
        (tm_const 0)
        (tm_const (plus 2 (plus 0 3))).
Proof.
Admitted.

正規形再び


tが0以上のステップでt'に簡約され、t'が正規形のとき、 「t'tの正規形である」と言います。

Definition step_normal_form := normal_form step.

Definition normal_form_of (t t' : tm) :=
  (t ⇒* t' step_normal_form t').

1ステップ簡約が決定性を持つことを既に見ました。 つまり、項が1ステップ進む方法は高々1種類だということです。 このことから、tが正規形に到達するならば、その正規形は1つに決まることになります。 つまり、normal_form_of は部分関数です。言い換えると、 normal_form t t' を、 (「t'tの正規形である」と読む以外に) 「tの正規形はt'である」と読んでよいということです。 (訳注:原文では "the normal form of t" と定冠詞を使ってよいことと記述されています。)

練習問題: ★★★, optional (test_stepmany_3)

Theorem normal_forms_unique:
  partial_function normal_form_of.
Proof.
  unfold partial_function. unfold normal_form_of. intros x y1 y2 P1 P2.
  destruct P1 as [P11 P12]. destruct P2 as [P21 P22].
  generalize dependent y2.
Admitted.

実のところ、この言語については、より強いことが成立します (これは他のすべての言語で成立することではありません): 「任意の」項tはいつかは正規形に到達する、ということです。 つまり normal_form_of は全関数です。 形式的には、step関係は正規化性を持つ(normalizing)と言います。

Definition normalizing {X:Type} (R:relation X) :=
   t, t',
    (refl_step_closure R) t t' normal_form R t'.

stepが正規化性を持つことを証明するため、二つの補題を必要とします。

一つは、tt'に何ステップかで簡約されるならば、 ttm_plus ノードの左側の子ノードとして現れるときには、 t内で同じ簡約ステップ列が可能である、ということ、 そしてまた同様のことが、 tが(左側の子ノードが値である)tm_plus の右側の子ノードとして現れるときにも言える、ということです。

Lemma stepmany_congr_1 : t1 t1' t2,
     t1 ⇒* t1'
     tm_plus t1 t2 ⇒* tm_plus t1' t2.
Proof.
  intros t1 t1' t2 H. rsc_cases (induction H) Case.
    Case "rsc_refl". apply rsc_refl.
    Case "rsc_step". apply rsc_step with (tm_plus y t2).
        apply ST_Plus1. apply H.
        apply IHrefl_step_closure. Qed.

練習問題: ★★

Lemma stepmany_congr_2 : t1 t2 t2',
     value t1
     t2 ⇒* t2'
     tm_plus t1 t2 ⇒* tm_plus t1 t2'.
Proof.
Admitted.

「定理」: step 関数は正規化性を持つ。つまり、 任意のtに対して、あるt'があって、tからステップを進めるとt'に到達し、 かつt'は正規形である、が成立する。

「証明スケッチ」:項についての帰納法を使う。考える対象は2つの場合である:
  • あるnについて t = tm_const n である場合。 このとき、tはステップを進めることができないことから、 t' = t である。左辺は反射性から導出され、 右辺は、(a)(nf_same_as_valueより)値は正規形であること、 (b)(v_constより)tは値であること、から導出される。

  • あるt1t2について、t = tm_plus t1 t2 である場合。 帰納仮定よりt1t2はそれぞれ正規形t1't2'を持つ。 (nf_same_as_valueより)正規形は値であったから、 ある n1n2について、t1' = tm_const n1 かつ t2' = tm_const n2 である。t1t2についての ⇒* 導出を組合せると、 tm_plus t1 t2 が幾つかのステップで tm_const (plus n1 n2) に簡約されることを証明できる。

    t' = tm_const (plus n1 n2) が値であることは明らかなので、これは正規形である。

Theorem step_normalizing :
  normalizing step.
Proof.
  unfold normalizing.
  tm_cases (induction t) Case.
    Case "tm_const".
       (tm_const n).
      split.
      SCase "l". apply rsc_refl.
      SCase "r".
        rewrite nf_same_as_value. apply v_const.
    Case "tm_plus".
      destruct IHt1 as [t1' H1]. destruct IHt2 as [t2' H2].
      destruct H1 as [H11 H12]. destruct H2 as [H21 H22].
      rewrite nf_same_as_value in H12. rewrite nf_same_as_value in H22.
      inversion H12 as [n1]. inversion H22 as [n2].
      rewrite H in H11.
      rewrite H0 in H21.
       (tm_const (plus n1 n2)).
      split.
        SCase "l".
          apply rsc_trans with (tm_plus (tm_const n1) t2).
          apply stepmany_congr_1. apply H11.
          apply rsc_trans with
             (tm_plus (tm_const n1) (tm_const n2)).
          apply stepmany_congr_2. apply v_const. apply H21.
          apply rsc_R. apply ST_PlusConstConst.
        SCase "r".
          rewrite nf_same_as_value. apply v_const. Qed.

ビッグステップ簡約とスモールステップ簡約の同値性


小さなプログラミング言語に対して2つの異なったスタイルで操作的意味論を定義したので、 その2つの定義が本当に同じものを定義しているのかを考えるのは意味があります! 実際に定義は一致しているのですが、それを示すことはそれほど簡単にはできません。 というより、それを正確に主張することが難しいのです。 なぜなら、一方は1回で進むのが小さなステップだけですが、 もう一方は大きなまとまりで進むからです。

Lemma eval__value : t1 t2,
     eval t1 t2
     value t2.
Proof.
  intros t1 t2 HE.
  eval_cases (inversion HE) Case; apply v_const. Qed.

練習問題: ★★★ (eval__stepmany)

この証明のために合同とrscのいくつかの性質を使うのが良いでしょう。

Theorem eval__stepmany : t v,
  eval t v t ⇒* v.
Proof.
Admitted.

練習問題: ★★★ (eval__stepmany_inf)

eval__stepmany の証明の非形式版を記述しなさい。


練習問題: ★★★ (step__eval)

Theorem step__eval : t t' v,
     t t'
     t' v
     t v.
Proof.
Admitted.

Theorem stepmany__eval : t v,
  normal_form_of t v t v.
Proof.
  intros t v Hnorm.
  unfold normal_form_of in Hnorm.
  inversion Hnorm as [Hs Hnf]; clear Hnorm.
  rewrite nf_same_as_value in Hnf. inversion Hnf. clear Hnf.
  rsc_cases (induction Hs) Case; subst.
  Case "rsc_refl".
    apply E_Const.
  Case "rsc_step".
    eapply step__eval. eassumption. apply IHHs. reflexivity. Qed.

全部まとめることで、vtの正規形であるのは、tvに評価されるのと同値である、 とはっきりと言うことができます。

Corollary stepmany_iff_eval : t v,
  normal_form_of t v t v.
Proof.
  split.
  Case "->". apply stepmany__eval.
  Case "<-". unfold normal_form_of. intros E. split. apply eval__stepmany.
    assumption. rewrite nf_same_as_value. eapply eval__value. eassumption. Qed.

さらなる練習問題


練習問題: ★★★★ (combined_properties)

ここまでに算術式と条件式を別々に考えてきました。 この練習問題ではこの2つがどのように相互作用するかを調べます。

Module Combined.

Inductive tm : Type :=
  | tm_const : nat tm
  | tm_plus : tm tm tm
  | tm_true : tm
  | tm_false : tm
  | tm_if : tm tm tm tm.

Tactic Notation "tm_cases" tactic(first) ident(c) :=
  first;
  [ Case_aux c "tm_const" | Case_aux c "tm_plus"
  | Case_aux c "tm_true" | Case_aux c "tm_false" | Case_aux c "tm_if" ].

Inductive value : tm Prop :=
  | v_const : n, value (tm_const n)
  | v_true : value tm_true
  | v_false : value tm_false.

Reserved Notation " t '==>' t' " (at level 40).

Inductive step : tm tm Prop :=
  | ST_PlusConstConst : n1 n2,
      tm_plus (tm_const n1) (tm_const n2) tm_const (plus n1 n2)
  | ST_Plus1 : t1 t1' t2,
      t1 t1'
      tm_plus t1 t2 tm_plus t1' t2
  | ST_Plus2 : v1 t2 t2',
      value v1
      t2 t2'
      tm_plus v1 t2 tm_plus v1 t2'
  | ST_IfTrue : t1 t2,
      tm_if tm_true t1 t2 t1
  | ST_IfFalse : t1 t2,
      tm_if tm_false t1 t2 t2
  | ST_If : t1 t1' t2 t3,
      t1 t1'
      tm_if t1 t2 t3 tm_if t1' t2 t3

  where " t '==>' t' " := (step t t').

Tactic Notation "step_cases" tactic(first) ident(c) :=
  first;
  [ Case_aux c "ST_PlusConstConst"
  | Case_aux c "ST_Plus1" | Case_aux c "ST_Plus2"
  | Case_aux c "ST_IfTrue" | Case_aux c "ST_IfFalse" | Case_aux c "ST_If" ].

前には、plus式とif式について、以下のことを別々に証明しました...
  • ステップ関係が部分関数であること(つまり、決定性を持つこと)。

  • すべての項が値であるか、1ステップ進むことができるかを主張する強進行補題。
結合した言語について、これらの性質を証明、または反証しなさい。

End Combined.

スモールステップ Imp


より本気の例として、Impの操作的意味論のスモールステップ版を示します。 定義はより大きくなりますが、基本的な考え方は上述のものとまったく同じです。

Inductive aval : aexp Prop :=
  av_num : n, aval (ANum n).

Reserved Notation " t '/' st '==>a' t' " (at level 40, st at level 39).

Inductive astep : state aexp aexp Prop :=
  | AS_Id : st i,
    AId i / st a ANum (st i)
  | AS_Plus : st n1 n2,
    APlus (ANum n1) (ANum n2) / st a ANum (plus n1 n2)
  | AS_Plus1 : st a1 a1' a2,
    a1 / st a a1'
    (APlus a1 a2) / st a (APlus a1' a2)
  | AS_Plus2 : st v1 a2 a2',
    aval v1
    a2 / st a a2'
    (APlus v1 a2) / st a (APlus v1 a2')
  | AS_Minus : st n1 n2,
    (AMinus (ANum n1) (ANum n2)) / st a (ANum (minus n1 n2))
  | AS_Minus1 : st a1 a1' a2,
    a1 / st a a1'
    (AMinus a1 a2) / st a (AMinus a1' a2)
  | AS_Minus2 : st v1 a2 a2',
    aval v1
    a2 / st a a2'
    (AMinus v1 a2) / st a (AMinus v1 a2')
  | AS_Mult : st n1 n2,
    (AMult (ANum n1) (ANum n2)) / st a (ANum (mult n1 n2))
  | AS_Mult1 : st a1 a1' a2,
    a1 / st a a1'
    (AMult (a1) (a2)) / st a (AMult (a1') (a2))
  | AS_Mult2 : st v1 a2 a2',
    aval v1
    a2 / st a a2'
    (AMult v1 a2) / st a (AMult v1 a2')

  where " t '/' st '==>a' t' " := (astep st t t').

Reserved Notation " t '/' st '==>b' t' " (at level 40, st at level 39).

Inductive bstep : state bexp bexp Prop :=
  | BS_Eq : st n1 n2,
    (BEq (ANum n1) (ANum n2)) / st b
    (if (beq_nat n1 n2) then BTrue else BFalse)
  | BS_Eq1 : st a1 a1' a2,
    a1 / st a a1'
    (BEq a1 a2) / st b (BEq a1' a2)
  | BS_Eq2 : st v1 a2 a2',
    aval v1
    a2 / st a a2'
    (BEq v1 a2) / st b (BEq v1 a2')
  | BS_LtEq : st n1 n2,
    (BLe (ANum n1) (ANum n2)) / st b
             (if (ble_nat n1 n2) then BTrue else BFalse)
  | BS_LtEq1 : st a1 a1' a2,
    a1 / st a a1'
    (BLe a1 a2) / st b (BLe a1' a2)
  | BS_LtEq2 : st v1 a2 a2',
    aval v1
    a2 / st a a2'
    (BLe v1 a2) / st b (BLe v1 (a2'))
  | BS_NotTrue : st,
    (BNot BTrue) / st b BFalse
  | BS_NotFalse : st,
    (BNot BFalse) / st b BTrue
  | BS_NotStep : st b1 b1',
    b1 / st b b1'
    (BNot b1) / st b (BNot b1')
  | BS_AndTrueTrue : st,
    (BAnd BTrue BTrue) / st b BTrue
  | BS_AndTrueFalse : st,
    (BAnd BTrue BFalse) / st b BFalse
  | BS_AndFalse : st b2,
    (BAnd BFalse b2) / st b BFalse
  | BS_AndTrueStep : st b2 b2',
    b2 / st b b2'
    (BAnd BTrue b2) / st b (BAnd BTrue b2')
  | BS_AndStep : st b1 b1' b2,
    b1 / st b b1'
    (BAnd b1 b2) / st b (BAnd b1' b2)

  where " t '/' st '==>b' t' " := (bstep st t t').

実際にはブール値の定義にかかずらってはいなかったことに注意します。 b の定義にはブール値の定義は必要ありません(なぜでしょう?)。 言語がちょっと大きかったら必要になったかもしれませんが。

コマンドの意味論は興味深い部分です。 うまくやるために2つの小さなトリックを使います:
  • SKIP を「コマンド値」("command value")として使います。 つまり、正規形に逹したコマンドです。

    • 代入コマンドはSKIPに簡約されます(その際に状態を更新します)。

    • コマンド合成は、左側の部分コマンドがSKIPに簡約されるのを待って、 それを捨ててしまいます。そして続けて右側の部分コマンドの簡約をします。

  • WHILEコマンドの簡約は、条件文とそれに続く同じWHILEコマンドになります。

    (求められる効果を得るために他にもいろいろな方法はありますが、 いずれも、 もとのWHILEコマンドをどこかに保存して、 ループ本体の1コピーを評価することには変わりありません。)

Reserved Notation " t '/' st '==>' t' '/' st' "
                  (at level 40, st at level 39, t' at level 39).

Inductive cstep : (com * state) (com * state) Prop :=
  | CS_AssStep : st i a a',
    a / st a a'
    (i ::= a) / st (i ::= a') / st
  | CS_Ass : st i n,
    (i ::= (ANum n)) / st SKIP / (update st i n)
  | CS_SeqStep : st c1 c1' st' c2,
    c1 / st c1' / st'
    (c1 ; c2) / st (c1' ; c2) / st'
  | CS_SeqFinish : st c2,
    (SKIP ; c2) / st c2 / st
  | CS_IfTrue : st c1 c2,
    IFB BTrue THEN c1 ELSE c2 FI / st c1 / st
  | CS_IfFalse : st c1 c2,
    IFB BFalse THEN c1 ELSE c2 FI / st c2 / st
  | CS_IfStep : st b b' c1 c2,
    b / st b b'
    IFB b THEN c1 ELSE c2 FI / st (IFB b' THEN c1 ELSE c2 FI) / st
  | CS_While : st b c1,
        (WHILE b DO c1 END) / st
     (IFB b THEN (c1; (WHILE b DO c1 END)) ELSE SKIP FI) / st

  where " t '/' st '==>' t' '/' st' " := (cstep (t,st) (t',st')).

並列実行 Imp


最後に、この定義スタイルの力を示すために、Imp に平行動作のコマンドを拡張しましょう。 このコマンドは2つのサブコマンドを平行実行し、両者が終了した時点で終了します。 スケジューリングの予測不能性を反映して、 サブコマンドのアクションは任意の順序でインターリーブします。 しかし、同じメモリをシェアし、同じ変数を読み書きすることでコミュニケーションできます。

Module CImp.

Inductive com : Type :=
  | CSkip : com
  | CAss : id aexp com
  | CSeq : com com com
  | CIf : bexp com com com
  | CWhile : bexp com com
  
  | CPar : com com com.

Tactic Notation "com_cases" tactic(first) ident(c) :=
  first;
  [ Case_aux c "SKIP" | Case_aux c "::=" | Case_aux c ";"
  | Case_aux c "IFB" | Case_aux c "WHILE" | Case_aux c "PAR" ].

Notation "'SKIP'" :=
  CSkip.
Notation "l '::=' a" :=
  (CAss l a) (at level 60).
Notation "c1 ; c2" :=
  (CSeq c1 c2) (at level 80, right associativity).
Notation "'WHILE' b 'DO' c 'END'" :=
  (CWhile b c) (at level 80, right associativity).
Notation "'IFB' e1 'THEN' e2 'ELSE' e3 'FI'" :=
  (CIf e1 e2 e3) (at level 80, right associativity).
Notation "'PAR' c1 'WITH' c2 'END'" :=
  (CPar c1 c2) (at level 80, right associativity).

Inductive cstep : (com * state) (com * state) Prop :=
  | CS_AssStep : st i a a',
    a / st a a'
    (i ::= a) / st (i ::= a') / st
  | CS_Ass : st i n,
    (i ::= (ANum n)) / st SKIP / (update st i n)
  | CS_SeqStep : st c1 c1' st' c2,
    c1 / st c1' / st'
    (c1 ; c2) / st (c1' ; c2) / st'
  | CS_SeqFinish : st c2,
    (SKIP ; c2) / st c2 / st
  | CS_IfTrue : st c1 c2,
    (IFB BTrue THEN c1 ELSE c2 FI) / st c1 / st
  | CS_IfFalse : st c1 c2,
    (IFB BFalse THEN c1 ELSE c2 FI) / st c2 / st
  | CS_IfStep : st b b' c1 c2,
    b /st b b'
    (IFB b THEN c1 ELSE c2 FI) / st (IFB b' THEN c1 ELSE c2 FI) / st
  | CS_While : st b c1,
    (WHILE b DO c1 END) / st
             (IFB b THEN (c1; (WHILE b DO c1 END)) ELSE SKIP FI) / st
  
  | CS_Par1 : st c1 c1' c2 st',
    c1 / st c1' / st'
    (PAR c1 WITH c2 END) / st (PAR c1' WITH c2 END) / st'
  | CS_Par2 : st c1 c2 c2' st',
    c2 / st c2' / st'
    (PAR c1 WITH c2 END) / st (PAR c1 WITH c2' END) / st'
  | CS_ParDone : st,
    (PAR SKIP WITH SKIP END) / st SKIP / st
  where " t '/' st '==>' t' '/' st' " := (cstep (t,st) (t',st')).

Definition cstepmany := refl_step_closure cstep.

Notation " t '/' st '==>*' t' '/' st' " :=
   (refl_step_closure cstep (t,st) (t',st'))
   (at level 40, st at level 39, t' at level 39).

この言語のいろいろな興味深い性質の中でも格別なものは、次のプログラムが、 変数Xにどのような値を入れても停止するという事実です...

Definition par_loop : com :=
  PAR
    Y ::= ANum 1
  WITH
    WHILE BEq (AId Y) (ANum 0) DO
      X ::= APlus (AId X) (ANum 1)
    END
  END.

特に、X0にしても停止できます:

Example par_loop_example_0:
   st',
       par_loop / empty_state ⇒* SKIP / st'
     st' X = 0.
Proof.
  eapply ex_intro. split.
  unfold par_loop.
  eapply rsc_step. apply CS_Par1.
    apply CS_Ass.
  eapply rsc_step. apply CS_Par2. apply CS_While.
  eapply rsc_step. apply CS_Par2. apply CS_IfStep.
    apply BS_Eq1. apply AS_Id.
  eapply rsc_step. apply CS_Par2. apply CS_IfStep.
    apply BS_Eq. simpl.
  eapply rsc_step. apply CS_Par2. apply CS_IfFalse.
  eapply rsc_step. apply CS_ParDone.
  eapply rsc_refl.
  reflexivity. Qed.

X2にしても停止します:

Example par_loop_example_2:
   st',
       par_loop / empty_state ⇒* SKIP / st'
     st' X = 2.
Proof.
  eapply ex_intro. split.
  eapply rsc_step. apply CS_Par2. apply CS_While.
  eapply rsc_step. apply CS_Par2. apply CS_IfStep.
    apply BS_Eq1. apply AS_Id.
  eapply rsc_step. apply CS_Par2. apply CS_IfStep.
    apply BS_Eq. simpl.
  eapply rsc_step. apply CS_Par2. apply CS_IfTrue.
  eapply rsc_step. apply CS_Par2. apply CS_SeqStep.
    apply CS_AssStep. apply AS_Plus1. apply AS_Id.
  eapply rsc_step. apply CS_Par2. apply CS_SeqStep.
    apply CS_AssStep. apply AS_Plus.
  eapply rsc_step. apply CS_Par2. apply CS_SeqStep.
    apply CS_Ass.
  eapply rsc_step. apply CS_Par2. apply CS_SeqFinish.

  eapply rsc_step. apply CS_Par2. apply CS_While.
  eapply rsc_step. apply CS_Par2. apply CS_IfStep.
    apply BS_Eq1. apply AS_Id.
  eapply rsc_step. apply CS_Par2. apply CS_IfStep.
    apply BS_Eq. simpl.
  eapply rsc_step. apply CS_Par2. apply CS_IfTrue.
  eapply rsc_step. apply CS_Par2. apply CS_SeqStep.
    apply CS_AssStep. apply AS_Plus1. apply AS_Id.
  eapply rsc_step. apply CS_Par2. apply CS_SeqStep.
    apply CS_AssStep. apply AS_Plus.
  eapply rsc_step. apply CS_Par2. apply CS_SeqStep.
    apply CS_Ass.

  eapply rsc_step. apply CS_Par1. apply CS_Ass.
  eapply rsc_step. apply CS_Par2. apply CS_SeqFinish.
  eapply rsc_step. apply CS_Par2. apply CS_While.
  eapply rsc_step. apply CS_Par2. apply CS_IfStep.
    apply BS_Eq1. apply AS_Id.
  eapply rsc_step. apply CS_Par2. apply CS_IfStep.
    apply BS_Eq. simpl.
  eapply rsc_step. apply CS_Par2. apply CS_IfFalse.
  eapply rsc_step. apply CS_ParDone.
  eapply rsc_refl.
  reflexivity. Qed.

より一般に...

練習問題: ★★★, optional

Lemma par_body_n__Sn : n st,
  st X = n st Y = 0
  par_loop / st ⇒* par_loop / (update st X (S n)).
Proof.
Admitted.

練習問題: ★★★, optional

Lemma par_body_n : n st,
  st X = 0 st Y = 0
   st',
    par_loop / st ⇒* par_loop / st' st' X = n st' Y = 0.
Proof.
Admitted.

... 上のループはXがどんな値をとっても抜け出せます。

Theorem par_loop_any_X:
   n, st',
    par_loop / empty_state ⇒* SKIP / st'
     st' X = n.
Proof.
  intros n.
  destruct (par_body_n n empty_state).
    split; unfold update; reflexivity.

  rename x into st.
  destruct H as [H' [HX HY]].
   (update st Y 1). split.
  eapply rsc_trans with (par_loop,st). apply H'.
  eapply rsc_step. apply CS_Par1. apply CS_Ass.
  eapply rsc_step. apply CS_Par2. apply CS_While.
  eapply rsc_step. apply CS_Par2. apply CS_IfStep.
    apply BS_Eq1. apply AS_Id. rewrite update_eq.
  eapply rsc_step. apply CS_Par2. apply CS_IfStep.
    apply BS_Eq. simpl.
  eapply rsc_step. apply CS_Par2. apply CS_IfFalse.
  eapply rsc_step. apply CS_ParDone.
  apply rsc_refl.

  rewrite update_neq. assumption. reflexivity.
Qed.

End CImp.