Examples from John Harrison's "Handbook of Practical Logic and Automated Reasoning", ported to F#.
Handbook of Practical Logic and Automated Reasoning is a book designed to teach the fundamental aspects of propositional logic, automated theorem proving, and proof assistants. It includes a large number of examples written in OCaml, which we have translated and adapted to F# in order to take advantage of Visual Studio and the .NET Framework.
Our ported F# code aims to stay as close as possible to the original OCaml to make it easy to follow along with the book.
There are two solutions:
*.VS11.slnfor Visual Studio 2010 and Visual Studio 2012, respectively. Both solutions target .NET 4.0.
NuGet is used to manage external packages; the easiest way to install NuGet is by downloading it (for free) from the Visual Studio Extension Gallery. If you do not have NuGet, or are running a version prior to
2.5, you must install it (or upgrade) before you will be able to build the projects.
The solution uses the Package Restore feature of NuGet to automatically download any missing packages when the project is built. This requires that you have the "Allow NuGet to download missing packages during build" setting enabled; in Visual Studio, you can find the setting under
Options -> Package Manager -> General.
Once NuGet is installed and configured, you should be able to build the solution.
See Install NuGet in the wiki pages for step by step instructions.
The OCaml code from resource page combines the code and examples in one script. We have separated them in our ported F# code to simplify development and testing; all library code has been placed into the
FSharpx.Books.AutomatedReasoningproject, and the examples put into F# scripts (
.fsx) in the
In the book, OCaml code and example scripts are identified by bounding boxes. Example code typically starts with an
#, indicating it is being run in the OCaml REPL; the ported code for these are typically found in the Examples directory and code without the # is typically found in the library project.
In the OCaml code, the examples are demarked by
To run the example scripts, you must first build the solution (see the previous section).
*.fsxscripts corresponding to the original OCaml files. Within each
*.fsxfile, examples appear in the same order as in the book; we have added a comment to each example with its page number in the book to make cross-referencing easier.
When first opening an example script file, run the
fsi.AddPrinterstatements at the top of the script file to setup the interactive environment for the following examples.
We suggest that when running the examples, you run each one separately so as not to lose track of which example produced which result. Some of the examples rely on statements earlier in the script, so if you skip ahead you may get errors.
In order to demonstrate certain aspects and limitations of automated reasoning, some of the examples purposely fail by raising an exception; others may take several minutes, hours, or days to run -- if they terminate at all. In both cases, these examples are identified by comments in the scripts so you will know this is the expected behavior.
Each of the examples fall into one of the following categories (with the associated special comment, if applicable):
No special comment. Most examples fall into this category.
Includes a comment with the result of the
#timedirective when the example is run on an average machine. For example:
// Real: 00:04:35.586, CPU: 00:04:31.718, GC gen0: 5020, gen1: 137, gen2: 9
Note: F# Interactive #time directive either truncates or wraps values when the time is > 24 hours.
Some examples take a very long time to run. These are marked with the comment
Marked with a comment noting the expected reason for failure.
Examples that raise a non-Failure exception; marked with a comment noting the expected type of the exception.
In a few places, errors are handled using the
Optiontype instead of exceptions. This is because:
'b) instead of the true output type of the function (e.g.,
bool). These functions also make it extremely difficult to locate the source of an error.
Preprocessors such as camlp4 / camlp5 don't exist for F#. The original OCaml code for the book uses
>>) to transparently call the parsing functions for formula and term strings. Our F# code adds explicit calls to the parsing functions; as such, no uses of
default_printerappear in the F# code.
(* OCaml *) <>;;
// F# parse_exp "x + 3 * y";;
(* OCaml *) <
q <=> r /\ s \/ (t <=> ~ ~u /\ v)>>;;
// F# parse_prop_formula "p ==> q <=> r /\ s \/ (t <=> ~ ~u /\ v)";;
Duplicate names are avoided. Since OCaml shadows names and F# does not allow duplicate names, any function name causing a duplicate name error will have the name appended with an increasing sequential number.
(* OCaml *) let a = ...;; let a = ...;; let a = ...;;
// F# let a001 = ...;; let a002 = ...;; let a003 = ...;;
For some of the test strings such as in tableaux.fsx, the same name is used multiple times. To avoid duplicate name errors some of the names have a character appended.
(* OCaml *) let p20 = prawitx ...;; let p20 = compare ...;; let p20 = splittab ...;;
// F# let p20p = prawitx ...;; let p20c = compare ...;; let p20s = splittab ...;;
Some OCaml toplevel commands such as
#install-printerdon't exist in F# Interactive (
fsi). In some cases, the functionality can be replicated:
(* OCaml toplevel *) #install_printer my_printer;;
// F# (fsi) fsi.AddPrinter my_printer;; // my_printer : 'T -> string
FSharpx.Books.AutomatedReasoning.Testsproject contains all of the examples from the book (plus some additional examples from John Harrison's website), converted into unit test cases with NUnit 2.6.3 and FsUnit 188.8.131.52. These test cases serve as evidence (but not proof!) of correctness as the code base is updated or optimized over time.
You can execute the tests by building the
FSharpx.Books.AutomatedReasoning.Testsproject, then loading the compiled assembly into a test runner like NUnit GUI or TestDriven.NET 3.4.2808 (RTM).
We strongly recommend using the x86 versions of the test runners. The CLR's default maximum stack size of 1MB is enough for 32-bit processes, but the test cases reliably crash with a
StackOverflowExceptionon a 64-bit process. This is because many of the library functions are recursive, but not tail-recursive -- and since many types double in size on an x64 platform, these functions quickly consume the stack and crash the process.
NOTE: On a 64-bit machine, the NUnit installer only creates a Start Menu shortcut for the 64-bit version so you must create your own shortcut (e.g., on the Desktop) to the x86 version; the x86 version is normally found at
C:\Program Files (x86)\NUnit 2.6.3\bin\nunit-x86.exe.
Once you have installed NUnit, built the
FSharpx.Books.AutomatedReasoning.Testsproject, and opened the NUnit (x86) GUI, follow these steps to run the tests:
File -> Open Project. Find the
FSharpx.Books.AutomatedReasoning.Tests\bin\Debugfolder in your repository folder (i.e., the folder you cloned the repository into). Double-click the file, or select it and press the 'Open' button.
There are a few important points to note when implementing new test cases: - NUnit only accepts parameterized tests on primitive types. To compare sophisticated values, we have to put them into arrays and use indices as test parameters. - FsUnit uses type test to implement its DSL. Type inference doesn't work on this DSL, so make sure that two compared values belong to the same type. - FsUnit and the library have some clashed constraints, namely
False. To create tests correctly, one might need to use detailed type annotation such as
formula.Falsefor literals in first-order logic. - A few slow tests are put into
LongRunningcategory. These tests aren't recommended for normal development -- they're only used to validate the ported code on release.
FS0025(about incomplete pattern matches) has been disabled for the
Debugconfigurations of the projects. These incomplete matches are found throughout the original OCaml code and eliminating them correctly would require extensive changes to the code. So, to keep our code faithful to the book, it has been left as-is and the warning disabled to promote readability.
Examples\initialization.fsx. Without using our
runWithEnlargedStackfunction, these examples crash with a
StackOverflowExceptionbecause the CLR uses a 1MB stack by default. (Discussion: Why does F# impose a low limit on stack size?).
Failureactive pattern has been redefined to accommodate
ArgumentException, etc. The OCaml version makes use of
Failureas a control flow; the F# version throws different kinds of exceptions which aren't caught by the default
Failurepattern. The active pattern may need to be updated to handle other exceptions later (see the detailed function in the beginning of
The primary method for checking the F# code was to compare the results of the OCaml output against the F# output. There are several hundred examples that need to be compared and doing so without a means of tracking is tedious at best. To make it easier to trace from an F# example's output back to the OCaml example's output, each example was given a unique identifier, which is the combination of the module name with a sequential number. e.g. complex.p001. These identifiers are referred to as traceability comments.
The traceability comments were put into a version of the OCaml source code, a run of the OCaml code, the F# examples and the F# unit test. Currently the OCaml code with the traceability comments is not included here; however we have provided the results of running the OCaml code with the traceability comments in "OCaml Results.pdf".
Note: The OCaml code includes many more examples than are in the book. When the OCaml code was run, there were many additional examples that were commented out. We are working toward adding all of the examples to the PDF document. If you look at the OCaml run output for unif.ml you will notice that the traceability comment for unify.p003 is missing. This is because the code for unify.p003 was commented out when the run occurred. Also, there were no tests in the original OCaml code for the lib module. As this is a port, many new tests were created for the lib module in the F# code, these test currently have not been created for the OCaml version for comparison, but we are working toward that also.
The build status above is via travis-ci. More info on travis-ci can be fount at the travis-ci Github page.