はじめに 前回の記事で、全順序が仮定されているからこそうまくいくソートアルゴリズムを半順序で使用するとどうなるかを見ました。結果としてクイックソートなら半順序でもうまくソートできることを見ましたが、本記事では、これを定理証明支援系Coqを用いて、形式的に証明していきます。 定理証明支援系Coqに関して軽く説明しておくと、プログラムが正しく動くことを、数学的に検証できるツールとして使えるものです。 クイックソートを定義 SSReflectのpathライブラリには、標準のソート関数sortが定義されていますが、このアルゴリズムはマージソートなので、前回の記事で検証したように半順序では使えません。 そこでCoqでクイックソートを定義します。 まず定義の前に、ソートを行う要素の集合Tと、半順序関係Rを宣言しておきます。実際にはTは型で、RはただのT上の二項関係T -> T -> boolとして定義
![クイックソートは半順序でもソート可能であることをCoq/SSReflectで証明する - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/10205968ace21a97dffadc681c031c1dea29a8ca/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-412672c5f0600ab9a64263b751f1bc81.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTk3MiZoPTM3OCZ0eHQ9JUUzJTgyJUFGJUUzJTgyJUE0JUUzJTgzJTgzJUUzJTgyJUFGJUUzJTgyJUJEJUUzJTgzJUJDJUUzJTgzJTg4JUUzJTgxJUFGJUU1JThEJThBJUU5JUEwJTg2JUU1JUJBJThGJUUzJTgxJUE3JUUzJTgyJTgyJUUzJTgyJUJEJUUzJTgzJUJDJUUzJTgzJTg4JUU1JThGJUFGJUU4JTgzJUJEJUUzJTgxJUE3JUUzJTgxJTgyJUUzJTgyJThCJUUzJTgxJTkzJUUzJTgxJUE4JUUzJTgyJTkyQ29xJTJGU1NSZWZsZWN0JUUzJTgxJUE3JUU4JUE4JUJDJUU2JTk4JThFJUUzJTgxJTk5JUUzJTgyJThCJnR4dC1hbGlnbj1sZWZ0JTJDdG9wJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9NTYmcz0wN2VjMTUzM2JkODU2M2VlZjAyZDUxNmY5NDFhZmZlMw%26mark-x%3D142%26mark-y%3D57%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZoPTc2Jnc9NzcwJnR4dD0lNDBuZWtvbmlib3gmdHh0LWNvbG9yPSUyMzIxMjEyMSZ0eHQtZm9udD1IaXJhZ2lubyUyMFNhbnMlMjBXNiZ0eHQtc2l6ZT0zNiZ0eHQtYWxpZ249bGVmdCUyQ3RvcCZzPTUyNWQwNzk1ZWRhNjgxMGU1ODI2ZjJhZWYzODQ5MDIw%26blend-x%3D142%26blend-y%3D486%26blend-mode%3Dnormal%26s%3Dac81f4350483af584ffb59a5b5043e3c)