diff options
-rw-r--r-- | extraction/dune | 3 | ||||
-rw-r--r-- | extraction/main.ml | 9 |
2 files changed, 12 insertions, 0 deletions
diff --git a/extraction/dune b/extraction/dune new file mode 100644 index 0000000..ec44a53 --- /dev/null +++ b/extraction/dune @@ -0,0 +1,3 @@ +(executable + (name main) + (flags (:standard -warn-error -A))) diff --git a/extraction/main.ml b/extraction/main.ml new file mode 100644 index 0000000..235a155 --- /dev/null +++ b/extraction/main.ml @@ -0,0 +1,9 @@ +open Verilog +open Datatypes + +let rec nat_to_int = function + | O -> 0 + | S n -> 1 + nat_to_int n + +let () = + print_endline ("Result: " ^ (Verilog.value_to_nat (Verilog.VBool Coq_true) |> nat_to_int)) |