http://d.hatena.ne.jp/twobit/ 二進日記 twobit 2009-11-24T13:54:56+09:00 http://d.hatena.ne.jp/twobit/20091124/1259020376 http://focalize.inria.fr/ インストールは普通にtar玉落として適当に解凍して $./configure $make $sudo make install その後, パスを通します. デフォルトだと ~/pkg/focalize-0.1.0/bin/ とか？ （ここらへん, インストールに失敗してる可能性あり. /usr/local/bin/とかに入って欲しい. まあ, 移せば良いんですが.） で, ~/.coqrcに次の記述を. Add LoadPath ”~/pkg/ ... twobit 2009-11-24T08:52:56+09:00 Coq FoCaLize http://d.hatena.ne.jp/twobit/20091124/1259023072 恐らく一番単純であろうものを書いてみた. species Test = signature e : Self; end;; Testってspeciesはeという元を持つよ, 程度の意味, のはず. これをCoqにすると, Require Import zenon. Require Import zenon_induct. Require Import zenon_focal. Require Export Bool. Require Export ZArith. Open Scope Z_sc ... twobit 2009-11-24T09:37:52+09:00 Coq FoCaLize http://d.hatena.ne.jp/twobit/20091121/1258782623 ^(arg_type arg_name, ...){ 　statement; 　... 　return value_as_return_type; } で引数としてarg_type, ...を取り, return_type型の値を返す関数が作れます. 適用は, ^(arg_type arg_name, ...){ 　statement; 　... 　return value_as_return_type; }(value_as_arg_type, ...); となります. return_type (^ ... twobit 2009-11-21T14:50:23+09:00 http://d.hatena.ne.jp/twobit/20091105/1257359582 Section Study. Variables P Q : Prop. Let R : Prop := False. Theorem T : P /￥ Q -> P. tauto. Defined. Hypothesis H : forall X : Prop, X -> X. (* ↑Theorem以外は総てStudyブロック内で有効. *) (* Theorem TはStudyブロックを出ても存在するが, P, Qの扱いが変わる. *) Parameters A B : Prop. ... twobit 2009-11-05T03:33:02+09:00 Coq http://d.hatena.ne.jp/twobit/20091105/1257385629 Arithモジュールを使えばすぐなんだけど泥臭くやってみた. Section Hoge. Fixpoint sum (m:nat) : nat := match m with | O => O | S n => S n + sum n end. Theorem sum_value : forall m : nat, 2 * (sum m) = m * (S m). intro. induction m. compute. reflexivity. unfold sum. fold sum ... twobit 2009-11-05T10:47:09+09:00 Coq http://d.hatena.ne.jp/twobit/20091104/1257268864 最新(Coq8.2pl1)のCoqIDEをTiger上で動かす為に四苦八苦したので朧げながらメモ. Coq8.1pl4ならパッケージがあるのでそれで良いんですが, 新しいの使いたいですよね. ついでに, X11が必要なので, TigerのInstall Diskからインストールしておきましょう. 参考にするのは http://www.cs.princeton.edu/courses/archive/fall09/cos441/coq-mac.html です. 基本的に出来る所まではMacPortsに任 ... twobit 2009-11-04T02:21:04+09:00 Coq http://d.hatena.ne.jp/twobit/20091104/1257273937 今まで書いてなかったので今までで分かった気分になっていることを徐々にまとめていきます. 飽くまでも「分かった気分になっていること」なので間違いも多々あると思います. 鵜呑みにしない様に注意して下さい. 勿論, 嘘は書かない様に注意しますし, 怪しい所には（？）等を付けています. それでも疑ってかかってくださいm(_ _)m 基本的にCoqのコマンドは”.”（ピリオド）で終わります. Quit Quit. Coqを終了します. Section, End Section section_nam ... twobit 2009-11-04T03:45:37+09:00 Coq http://d.hatena.ne.jp/twobit/20090226/1257268913 Curry Y = λy.(λx.(y(xx)))(λx.(y(xx))) Turing Y’ = (λxy.y(xxy))(λxy.y(xxy)) I = λx.x K = λxy.x S = λxyz.xz(yz) Pythonで実装 Y = lambda x : (lambda y : lambda z : x(y(y))(z))(lambda y : lambda z : x(y(y))(z)) Y_ = (lambda x : (lambda y : lambda z : y(x(x)(y) ... twobit 2009-11-04T02:21:53+09:00 λ