annotate presentation/slide.md @ 116:ed6719c301fc

Update slide
author atton <atton@cr.ie.u-ryukyu.ac.jp>
date Mon, 13 Feb 2017 17:31:45 +0900
parents 5cca315b0230
children 26563097333c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 title: メタ計算を用いた Continuation based C の検証手法
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 author: Yasutaka Higa
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 profile:
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 lang: Japanese
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 # プログラミング言語とソフトウェアの信頼性
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 * 信頼性の高いソフトウェアを提供したい
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 * ソフトウェアの仕様を検証するには二つの手法がある
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 * プログラムの持つ状態を数え上げ、仕様から外れた状態が無いかを確認するモデル検査
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 * プログラムの性質を直接証明してしまう定理証明
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 * モデル検査も証明も行ないやすい言語として Continuation based C 言語を開発している
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 # 二つのアプローチを用いたソフトウェア検証
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 * モデル検査的アプローチ
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 * メタ計算ライブラリ akasha による網羅的な実行
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 * 非破壊赤黒木の仕様定義と検証
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 * 定理証明的なアプローチ
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 * 依存型を持つ証明支援系言語 Agda による CbC の証明
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 * 部分型を利用して Agda 上に型付きの CbC の項を記述する
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 * 型システムを通して CbC の形式的な定義を得る
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 * SingleLinkedStack の性質の証明
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
23
107
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
24 # モデル検査的アプローチについての流れ
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
25 * Continuation based C (CbC) 言語について
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
26 * CbC における CodeSegment と DataSegment を用いたプログラミングスタイル
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
27 * CbC とメタ計算について
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
28 * CbC で記述された GearsOS とそのデータ構造である赤黒木
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
29 * 赤黒木の仕様の定義とその検証手法
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
30
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 # Continuation based C
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 * 当研究室で開発しているプログラミング言語
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 * アセンブラとC言語の中間のような言語であり、構文はほとんど C 言語
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 * OS や組み込みソフトウェアなどを対象にしている
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 * CodeSegment と DataSegment という単位を用いてプログラミングする
107
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
36 * 両検証手法をメタ計算として利用可能
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
37
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 # CodeSegment
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
39 * CodeSegment とは
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 * 処理の単位
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
41 * 結合や分割が容易
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 * 入力と出力を持つ
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
43 * CodeSegment どうしを接続することによりプログラム全体を作る
114
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
44
116
ed6719c301fc Update slide
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 114
diff changeset
45 ![cs](./images/cs.svg){:width="50%"}
114
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
46
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
47
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 # DataSegment
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 * DataSegment とは
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 * データの単位
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
51 * CodeSegment の入出力にあたる
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 * 接続元の Output DataSegment は接続先の Input DataSegment
114
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
53
116
ed6719c301fc Update slide
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 114
diff changeset
54 ![ds](./images/ds.svg){:width="50%"}
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
55
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
56 # メタ計算
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
57 * とある計算を実現するための計算
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
58 * ネットワーク接続、例外処理、メモリ確保、並列処理など
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
59 * CbC は通常レベルの計算とメタ計算を分離して考える
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 * 通常レベルではポインタは出てこない、など
107
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
61 * CodeSegment の接続部分に処理を追加することで実現
114
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
62
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
63 ![meta](./images/meta.svg){:width="50%"}
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
64
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 # Meta CodeSegment
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 * メタ計算を行なう CodeSegment
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 * 通常の CodeSegment どうしの接続の間に入る
116
ed6719c301fc Update slide
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 114
diff changeset
68
ed6719c301fc Update slide
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 114
diff changeset
69 ![mcs](./images/mcs.svg){:width="50%"}
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
70
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 # Meta DataSegment
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 * メタ計算用の DataSegment
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 * 通常の DataSegment を含むような DataSegment
116
ed6719c301fc Update slide
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 114
diff changeset
74
ed6719c301fc Update slide
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 114
diff changeset
75 ![mds](./images/mds.svg){:width="50%"}
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
76
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 # 並列に信頼性高く動作する GearsOS
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
78 * CbC を用いたメタ計算の例として本研究室で開発している GearsOS がある
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
79 * 並列実行やモデル検査をメタ計算として提供する
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
80 * 現在はメモリ管理、Synchronized Queue、非破壊赤黒木などが実装済み
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 * 今回はこの非破壊赤黒木の検証を行なう
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
82
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
83 # 赤黒木
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
84 * データの保存に用いる二分木
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
85 * 特に赤黒木はノードが持つ赤か黒の色を使って木のバランスを取る
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
86 * ルートノードと葉ノードの色は黒
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
87 * 赤ノードは2つの黒ノードを子として持つ(よって赤ノードが続くことは無い)
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
88 * ルートから最下位ノードへの経路に含まれる黒ノードの数はどの最下位ノードでも一定
116
ed6719c301fc Update slide
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 114
diff changeset
89
ed6719c301fc Update slide
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 114
diff changeset
90 ![rbtree](./images/rbtree.svg){:width="50%"}
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
91
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
92 # GearsOS における赤黒木の利用例(ノードの挿入)
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
93 * 挿入したい要素を DataSegment に格納して次の CodeSegment へ goto
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
94 * goto する前に Meta CodeSegment が実行されて木に挿入する
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
95 * GearsOS では木の実装のためにスタックを用いて経路情報を保持している
114
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
96
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
97 ![put](./images/put.svg){:width="50%"}
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
98
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
99 # 仕様の記述とその確認
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 * 「バランスが取れている」とは何かを表現できる必要がある
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
101 * 実行可能な CbC の式を使った assert になる
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 * そしてそれを保証したい
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 * プログラムの全ての状態においてこれは常に成り立つのか?
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
104
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
105 # 既存のモデル検査器 spin
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
106 * spin
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 * promela と呼ばれる言語でプログラムを記述
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 * 並列に動作するプログラムの仕様を検証可能
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
109 * 検証した promela から実行可能な C ソースを生成可能
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
110 * 仕様は bool になる式を用いた assert
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
111 * promela は C とは記述が異なる
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
112
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
113 # 既存のモデル検査器 CBMC
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
114 * CBMC
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
115 * 検証対象のCソースを変更しないでも良い
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
116 * C/C++ 言語の記号実行が可能
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
117 * 条件分岐を網羅的に実行
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
118 * 仕様は bool になる式を用いた assert
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
119 * 有限ステップ検証する有界モデル検査器
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
120
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
121 # メタ計算ライブラリ akasha
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
122 * メタ計算としてプログラムの状態を数え上げる
107
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
123 * goto された時に挿入される要素の組み合わせを全て列挙して実行する
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
124 * その度に仕様の式は成り立つかをチェックする
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
125 * ノーマルレベルのコードを検証用に変更せず検証可能
114
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
126
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
127 ![akashaPut](./images/akashaPut.svg){:width="51%"}
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
128
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
129 # チェックする仕様
114
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
130 * 赤黒木のの高さに関する仕様に以下のものがある
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
131 * 木をルートから辿った際に最も長い経路は最も短い経路の高々2倍に収まる
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
132 * 以下のように assert を用いて CbC で定義できる
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
133 * この仕様が満たされるかをチェックする
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
134
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
135 ```
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
136 void verifySpecification(struct Context* context, struct Tree* tree) {
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
137 assert(!(maxHeight(tree->root, 1) > 2*minHeight(tree->root, 1)));
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
138 goto meta(context, EnumerateInputs);
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
139 }
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
140 ```
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
141
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
142 # akasha と CBMC の比較
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
143 * akasha は有限の要素数の組み合わせをチェックする
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
144 * 要素数が13個までならどの順で木に挿入しても良い
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 * 比較対象として C Bounded Model Checker を使用した
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
146 * C/C++ の記号実行を行なう
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
147 * 実行可能なステップ数411だけ展開しても仕様は満たされる
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
148 * が、恣意的にバグを入れ込んでも反例を返さない
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
149 * akasha は返した
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
150 * 固定の要素数までの仕様検査で十分なのか?
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
151
107
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
152 # 定理証明的なアプローチの流れ
114
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
153 * プログラムを証明するにはどうするのか
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
154 * 証明支援系 Agda における証明
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
155 * Agda による CbC の定義
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
156 * Agda を用いて CbC のコードを証明する
107
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
157
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
158 # 定理証明を Continuation based C へ適用するには
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
159 * 任意の回数だけ木の操作を行なっても大丈夫なことを保証したい
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
160 * そのままプログラムの性質を保証してやる
107
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
161 * Coq, Agda, ATS2 などのプログラミング言語で証明が可能
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
162 * 本当は CbC で CbC 自身を証明したい
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
163 * しかし CbC の形式的な定義が無いために今はできない
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
164 * Agda 上に CbC を定義することで形式的な定義を得る
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
165
114
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
166 # Agda と DataSegment
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
167 * CbC の DataSegment は Agda のレコード型
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
168
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
169 ```
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
170 __code cs0(int a, int b){
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
171 goto cs1(a+b);
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
172 }
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
173 ```
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
174 ```
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
175 record ds0 : Set where
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
176 field
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
177 a : Int
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
178 b : Int
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
179 ```
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
180
107
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
181 # Agda と CodeSegment
114
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
182 * CbC の CodeSegment は、Agda の関数型(Input を取って Output を返す)
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
183
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
184 ```
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
185 __code cs0(int a, int b){
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
186 goto cs1(a+b);
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
187 }
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
188 ```
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
189 ```
116
ed6719c301fc Update slide
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 114
diff changeset
190 data CodeSegment (A B : Set) : Set where
ed6719c301fc Update slide
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 114
diff changeset
191 cs : (A -> B) -> CodeSegment A B
ed6719c301fc Update slide
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 114
diff changeset
192
114
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
193 cs0 : CodeSegment ds0 ds1
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
194 cs0 = cs (\d -> goto cs1 (record {c = (ds0.a d) + (ds0.b d)}))
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
195 ```
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
196
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
197 # メタレベルの型付け
107
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
198 * メタ計算とは通常のレベルとは区別された計算
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
199 * 任意の通常のレベルの計算を扱えなくてはならない
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
200 * ライブラリが呼び出されるプログラムは無数にあるようなイメージ
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
201 * メタレベルを使うための制約を満たしていれば良い、ということを表現できれば良い
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
202 * 部分型を使う
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
203 * Java におけるインターフェース、Haskell における型クラス
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
204 * 「このデータにはこのフィールドさえあれば良い」
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
205
114
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
206 # Agda 上のメタ計算
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
207 * ノーマルレベルの型を保持したままメタレベルの計算を利用できる
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
208 * cs0 の定義はメタ計算用に変更しなくても良い
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
209
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
210 ```
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
211 main : ds1
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
212 main = goto cs0 (record {a = 100 ; b = 50})
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
213 ```
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
214 ```
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
215 main : Meta
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
216 main = gotoMeta push cs0 (record {context = (record {a = 100 ; b = 50 ; c = 70}) ; c' = 0 ; next = (N.cs id)})
5cca315b0230 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 107
diff changeset
217 ```
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
218
107
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
219 # Agda 上に CbC を記述した成果
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
220 * 部分型で CbC の型付けができた
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
221 * メタ計算をきちんと階層化できた
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
222 * メタ計算にもメタ計算が適用可能
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
223 * 赤黒木で利用しているデータ構造スタックの性質を証明できた
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
224 * 任意の回数だけ値を積んで同じだけ取り出すとスタックは変化しない
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
225
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
226 # まとめ
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
227 * Continuation based C 言語を対象にした二種類の検証アプローチ
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
228 * モデル検査的なアプローチ
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
229 * 継続を上書きして可能な状態を数え上げるメタ計算ライブラリ akasha を実装
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
230 * 有限の要素数まで保証できた
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
231 * 証明的なアプローチ
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
232 * 証明支援系 Agda 上で CbC のプログラムを定義して直接証明
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
233 * 部分型を利用して CbC を型付け
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
234 * データ構造 SingleLinkedStack の証明ができた
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
235
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
236 # 今後の課題
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
237 * 部分型を利用してCbCを型付け
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
238 * 依存型をCbC に導入して自身を証明可能にする
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
239 * 型情報から stub を自動生成すkる
107
e1d3317d5789 Writing slide...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 102
diff changeset
240 * 赤黒木の挿入に関する性質を証明する
102
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
241
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
242 <!-- vim: set filetype=markdown.slide: -->
3ead244513d5 Writing slide ...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
243