diff options
| author | filip <“filip.rabiega@gmail.com”> | 2025-04-22 17:32:02 +0200 |
|---|---|---|
| committer | filip <“filip.rabiega@gmail.com”> | 2025-04-22 17:32:02 +0200 |
| commit | 870e1cc1ea14fe43ae50e47828ac760e760ad93a (patch) | |
| tree | c104575c2cfaf1a8c2990a7223ebf10bed4a7a4f /bin/main.ml | |
| parent | 2ad36ac2079cc9be06d080d63204bc194375cf02 (diff) | |
| download | chadprover-870e1cc1ea14fe43ae50e47828ac760e760ad93a.tar.gz chadprover-870e1cc1ea14fe43ae50e47828ac760e760ad93a.tar.bz2 chadprover-870e1cc1ea14fe43ae50e47828ac760e760ad93a.zip | |
did a bunch of stuff
Diffstat (limited to 'bin/main.ml')
| -rw-r--r-- | bin/main.ml | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/bin/main.ml b/bin/main.ml new file mode 100644 index 0000000..eed1a7a --- /dev/null +++ b/bin/main.ml @@ -0,0 +1,22 @@ +open Power_prover.Datatypes + +let show_example p i = + print_endline ("Proposition p: " ^ (string_of_prop p)); + print_endline ("p in NNF: " ^ (string_of_prop (to_nnf p))); + print_endline ("Interpretation i: " ^ (string_of_interpr i)); + print_endline ("p under i: " ^ (string_of_prop (interpret p i)) ^ "\n");; + +let p1 = Not(Not(Not(And(Lit "a", Lit "b"))));; +let p2 = Iff(Not(Implies(Or(Lit "a", Lit "b"), And(Lit "b", Lit "c"))), True);; +let i1 = [("a", false); ("b", true); ("c", false)];; +let i2 = [("a", false); ("b", false)];; +let i3 = [("c", true)];; + +let () = + show_example p1 i1; + show_example p1 i2; + show_example p1 i3; + + show_example p2 i1; + show_example p2 i2; + show_example p2 i3;; |