diff options
Diffstat (limited to 'extraction/main.ml')
-rw-r--r-- | extraction/main.ml | 9 |
1 files changed, 9 insertions, 0 deletions
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)) |