simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 03:05:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Normalisation is now done in constructors for smt

Browse source
This commit is contained in:
Guillaume Bury 2014-11-15 12:20:34 +01:00
parent e92740e75e
commit 6801acdafd
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
smt/smt.ml
View file

@ -29,8 +29,8 @@ module Fsmt = struct
if i <> "" then i if i <> "" then i
else raise Invalid_var else raise Invalid_var
let mk_eq i j = Equal (mk_var i, mk_var j) let mk_eq i j = Equal (mk_var (min i j), mk_var (max i j))
let mk_neq i j = Distinct (mk_var i, mk_var j) let mk_neq i j = Distinct (mk_var (min i j), mk_var (max i j))
let neg = function let neg = function
| Prop i -> Prop (-i) | Prop i -> Prop (-i)
@ -39,8 +39,8 @@ module Fsmt = struct
let norm = function let norm = function
| Prop i -> Prop (abs i), i < 0 | Prop i -> Prop (abs i), i < 0
| Equal (a, b) -> Equal (min a b, max a b), false | Equal (a, b) -> Equal (a, b), false
| Distinct (a, b) -> Equal (min a b, max a b), true | Distinct (a, b) -> Equal (a, b), true
(* Only used after normalisation, so usual functions should work *) (* Only used after normalisation, so usual functions should work *)
let hash = Hashtbl.hash let hash = Hashtbl.hash