定理証明手習い (90) J-Bob/define
J-Bob/define
を定義していきます
rewrite/prove
は再利用
その後も、't
を返すか定義のリストに証明された定義を付け足すかくらいなので
それほど大きな違いはありません
(rewrite/define defs def seed steps)
証明が成功したら定義のリストに証明された定義を付け足す
(rewrite/define+1 defs1 defs2 pfs)
defs1
が古い定義リスト、defs2
が新しい定義リスト、pfs
は証明のリスト
同じなら証明が失敗したということなので終了
証明のリストの末尾までたどり着いても(めでたく)終了
そうでなければ次の証明
(rewrite/define+ defs pfs)
複数の証明を開始する
ほとんどdefine+1
と同じ
(J-Bob/prove defs pfs)
pfs
を証明する
引数チェックをしてrewrite/define+
を呼び出すだけ
J-Bob/define
ができたのでprelude
ももとにもどして、と
全証明、動きました!