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

trivial helper

Browse source
This commit is contained in:
Simon Cruanes 2021-07-04 00:06:42 -04:00
parent a2b27a5dc2
commit 51ac678ccd
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/base/Base_types.ml
View file

@ -839,6 +839,7 @@ module Term : sig
val gt : store -> t -> t -> t val gt : store -> t -> t -> t
val eq : store -> t -> t -> t val eq : store -> t -> t -> t
val neq : store -> t -> t -> t val neq : store -> t -> t -> t
val var : store -> t -> t
end end
(** Obtain unsigned version of [t], + the sign as a boolean *) (** Obtain unsigned version of [t], + the sign as a boolean *)
@ -971,6 +972,7 @@ end = struct
let gt st a b : t = lra st (LRA_pred (Gt, a, b)) let gt st a b : t = lra st (LRA_pred (Gt, a, b))
let eq st a b : t = lra st (LRA_pred (Eq, a, b)) let eq st a b : t = lra st (LRA_pred (Eq, a, b))
let neq st a b : t = lra st (LRA_pred (Neq, a, b)) let neq st a b : t = lra st (LRA_pred (Neq, a, b))
let var st a : t = lra st (LRA_simplex_var a)
end end
let const_undefined_fun store id ty : t = let const_undefined_fun store id ty : t =