ケネディと天使の問題を Isabelle で証明 その1 うそつき天使問題
■ |
概要
|
ケネディと天使の問題、または、うそつき天使問題、気まぐれ天使問題、三人の天使問題…と言われているものを、定理証明システム Isabelle でその答えが正しいかチェック(証明)した。
これは「その1」で、うそつき天使問題を扱う。
■ |
はじめに
|
問題は次のようなものである。
> |
凶弾に倒れた R. ケネディの魂が天に昇る途中で、白い翼の天使からこんなことをおそわった。
「あなたはもうすぐ、わかれ道につくでしょう。ひとつの道は天国に、もうひとつの道は地獄に行く道です。そこにはふたりの人が立っていて、あなたはそのどちらかひとりに、一回だけ質問をすることができます。天国に行く道がわかるように、上手に質問をしなさい」
ああそれはありがたい、とケネディが思っていると、天使は言葉を続けた。
「ふたりの人というのは、天使の姿になっているのであなたには区別できないでしょうが、ひとりがチャーチルで、もうひとりはヒトラーです。チャーチルはいつでも本当のことをいいますが、ヒトラーはいつでも、必ずウソをつきます。あなたはそのどちらかに一回だけ、『はい』か『いいえ』で答えられる質問をしなければなりません。二回以上質問をしても、二人とも答えてくれませんよ。では、ご成功を祈ります」
|
これを聴いたケネディは一つの質問を思い付き、無事天国に行けたようである。その質問とはどのようなものかというのが、この論理パズルの問題である。
答えはズバリ、「あなたは、『この(右の)道が天国に行く道ですか』ときかれたら、『はい』と答えますか?」というもの。
似た問題はネットでは「うそつき天使」問題として紹介しているところがあった。
その解説は本やネットを読んでいただくとして、その本には気になることが書いている。
> |
こんなうまい質問を、誰がどうやって思いついたのだろうか。記号論理学 (論理方程式) の知識を使うと、「相手が正直でもウソツキでも、必ず正しい道がわかる」質問を、計算で求めることができるが、求まる質問 R はあまりエレガントではない(しかしこれでもうまくいく)。
「『あなたはチャーチルで右の道が天国に行く』か、あるいは『あなたはヒトラーで左の道が天国に行く』かのどちらかが成り立ちますか?」
|
論理方程式? そんなものは私は聴いたことがない。野崎昭弘『詭弁論理学』には参考図書として前原昭二『記号論理読本』の名が上がっているが、それを読んでみても論理方程式の話はなかった。まぁ、しかし記号論理ならわかるので、記号論理で試しに解いてみよう。
■ |
我流、記号論理方程式
|
まず、1 で真を 0 で偽 で and をかけ算の ・ で、or を足し算の + で、否定は私の好みで ' ではなく ¬ を使う。
右の道が天国であるという命題を p とする。p = 1 ならば右の道が天国であり、p = 0 ならば左の道が天国である。
質問を q として、チャーチルへの質問を c(q)、ヒトラーへの質問を h(q) としよう。求めたいのは c(q) = h(q) = p ということになろう。
チャーチルは素直に返すので、c(0) = 0、c(1) = 1 すなわち c(q) = 1・q。ヒトラーはひねくれて返すので、h(0) = 1、h(1) = 0 すなわち h(q) = ¬ q。
ところが c(q) = h(q) でなければならないが、それは 1・q = ¬ q で、これは決して成り立たないことになる。これはおかしい。どこがおかしかったかというと、質問には「あなたは」という主語を付けることができるところにある。
これはオブジェクト指向で self や this がデフォルトで渡せることに相当する。これを反映すると、質問は単に q ではなくある種の関数となり、求めたいのは c(q(c)) = h(q(h)) = p ということになる。
これを解いてみよう。c(x) = 1・x、h(x) = ¬ x で変わらないとして、 c(q(c)) = h(q(h)) は 1・(q(1・)) = ¬(q(¬)) となる。簡単にすると、 q(1・) = ¬q(¬) で、これが p に等しいのだから、q(f) = f(p) とすれば良さそうだ。
実際 q(1・) = 1・p = p で、¬q(¬) = ¬(¬p) = p で等しくなる。
つまり、q(f) = f(p) が答えになるが、これは一体どういう質問だろう。素直に解釈すれば「あなたは…右が天国への道か…と聴かれたらどう答えますか」ということになるだろう。
チャーチルについては、問題ない。ヒトラーについては、右が天国への道かと聴かれたら、それが正しい場合 いいえ と答えるだろう。だから、そう聴かれたらどう答えるかに いいえ と答えたら素直に答えたことになるので はい と答えるということになる。左が天国への道のときも同様である。
結果、ヒトラーでもチャーチルでも、「はい」ならば右が天国への道、「いいえ」ならば左が天国への道となる。
若干、本とは答えが異なるが、同じような質問は求まったと言えよう。
■ |
本の解答との差
|
さて、これが「論理方程式」を現代的(?)に私流に解いてみた結果だが、これはまったく本の結果と異なる。私は簡単な高階論理を使ったが、昔は、基本、一階述語論理までのはずであり、どうやって解いたのだろう?
本では、「『あなたはチャーチルで右の道が天国に行く』か、あるいは『あなたはヒトラーで左の道が天国に行く』かのどちらかが成り立ちますか?」が答えになるということだった。
これは上の私の表記を使いながら書くと、q(f) = C(f)・p + H(f)・¬p ということになる。ここで、C(f) は f が c のときのみ真となる関数すなわち C(f) = (f = c)。同様に H(f) = (f = h)。
q(f) は f = c のとき、q(c) = C(c)・p + H(c)・¬p = 1・p + 0・¬p = p となる。f = h のとき q(h) = C(h)・p + H(h)・¬p = 0・p + 1・¬p = ¬p となる。よって f(q(f)) は必ず p になることが示せる。
ではどう方程式を立てるか。それは C(f) の場合の答えを q1、H(f) の場合の答えを q2 として、q(f) = C(f)・q1 + H(f)・q2 と構成すると決めうちすることにする。そして c(q(c)) = q1 = p だから q1 = p、h(q(h)) = ¬q2 = p だから q2 = ¬p として、求める。…ということだろうか?
なんとなくそんな気がするが、これで正しいかは闇の中である。「記号論理方程式」は私にとってはすっかり「ロストテクノロジー」である。
■ |
Isabelle で証明チェック
|
定理証明システム Isabelle の HOL (Higher Order Logic: 高階論理)で我流の方法を正しいかチェックしてみよう。ソース KennedyProblem1.thy は次のようになる。
theory KennedyProblem1 imports Main begin consts Paradise :: "bool" datatype angel = Churchill | Hitler definition churchill :: "bool => bool" where "churchill x == x" definition hitler :: "bool => bool" where "hitler x == ~x" fun apply_angel :: "angel => bool => bool" where "apply_angel Churchill x = churchill x" | "apply_angel Hitler x = hitler x" definition kennedy_problem :: "((bool => bool) => bool) => bool" where "kennedy_problem Q == ALL x::angel. apply_angel x (Q (apply_angel x)) = Paradise" lemma kennedy_answer: shows "kennedy_problem (% f. f Paradise)" apply (unfold kennedy_problem_def) apply (intro allI) apply (case_tac x) apply (simp_all add: churchill_def hitler_def) done end
我流では、h か c かのどちらかであるというのが、わかっているという暗黙の前提だったが、そういうことも証明チェックするときは明示的に書き出さねばならない。そこで、すべての天使を表す angel という型(集合)に対し、すべての x::angel についてある文が成り立つという構造にする。
h は hitler で かつ (apply_angel Hitler) に等しい。c は churchill で (apply_angel Churchill) に等しい。関数型では h(x) の x をはぶいてそのような表し方ができる。関数 f(x,y) は f x y みたいに書くのが流儀で f x y = (f x) y となっている。
p は Paradise になっている。質問 Q についての問題が kennedy_problem Q で表される。答えは Q = (% f. f Paradise) = (λf. f Paradise) すなわち Q(f) = f Paradise で上の我流と同じものを与えている。
証明はとても簡単で、定義を代入して x を Churchill か Hitler かで総当たり的にケース分けしてから、simplify するだけである。
Isabelle にはソルバーのようなものも付いてる。EX Q. kennedy_problem Q というような式を証明する仮定で、自動的に Q が求まらないかともやってみたが、私には、自動的に求まるよう導くことはできなかった。
なお、最近の Isabelle は apply を使わない証明がデフォルトのようだが、私は古い人間なので、apply を使った証明でお茶をにごした。
■ |
結論
|
ケネディと天使の問題を Isabelle の高階論理で解いてみたが、元は一階述語論理的な枠組みで解いているはず、その「記号論理方程式」の技術は、私にとっては、すっかり「ロストテクノロジー」となったのであった。
■ |
参考
|
|
■ |
ライセンス
|
パブリックドメイン。 (数式のような小さなプログラムなので。)
自由に改変・公開してください。
■ |
配布物
|
今回の配布物は以下の zip ファイル。更新があれば下のリンクの中身は最新のものに置き変わっているはず。
GitHub にも登録してあるが、更新は、ここの更新のあと1日から3日遅れるかもしれない。
更新: | 2020-06-22,2020-08-14,2020-09-03 |
初公開: | 2020年06月22日 08:02:32 |
最新版: | 2020年09月03日 14:53:04 |
2020-06-22 08:02:35 (JST) in 関数型言語・定理証明器 | 固定リンク | コメント (5)
コメント
初公開: kennedy_problem-20200622.zip。バージョン 0.0.1。
kennedy_problem-20200622.zip に相当するものは↓からどうぞ。
https://github.com/JRF-2018/kennedy_problem/releases/tag/v0.0.1
[cocolog:91995523](↓)に感想と Isabelle の Tips を書いたのでよければそちらもお読みください。
http://jrf.cocolog-nifty.com/statuses/2020/06/post-33e498.html
>Isabelle 2020 の HOL を使った「ケネディと天使の問題を Isabelle で証明」という記事を書いた。Isabelle の Tips とともに…。<
投稿: JRF | 2020-06-22 08:38:10 (JST)
更新: kennedy_problem-20200623.zip。バージョン 0.0.2。
kennedy_problem-20200623.zip に相当するものは↓からどうぞ。
https://github.com/JRF-2018/kennedy_problem/releases/tag/v0.0.2
証明の最初、simp ではなく unfold を使うようにするなど微調整。
投稿: JRF | 2020-06-23 00:13:35 (JST)
更新: ドキュメントのみ。
式の誤字の修正など。
github も更新してあるが、タグは付していない。
投稿: JRF | 2020-08-14 19:24:01 (JST)
更新: ドキュメントのみ。
たまたま「論理方程式」でこの問題を解いてるところを見つけたので「参考」に追記しておいた。
github も更新してあるが、タグは付していない。
投稿: JRF | 2020-09-03 14:59:45 (JST)
更新: kennedy_problem-20201106.zip。バージョン 0.0.2.1。
kennedy_problem-20201106.zip に相当するものは↓からどうぞ。
https://github.com/JRF-2018/kennedy_problem/releases/tag/v0.0.2.1
何も更新していない。ただ、これまでのドキュメントの更新をアーカイブにしておきたかったので、アーカイブだけ作っておいた。
投稿: JRF | 2020-11-06 15:41:41 (JST)