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

feat(lra): make Erat.{plus,minus}_inf saturating

Browse source
This commit is contained in:
Simon Cruanes 2021-03-21 01:22:30 -04:00
parent 34b1aa1799
commit 721c01d12c
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/lra/simplex2.ml
View file

@ -198,7 +198,8 @@ module Make(Q : RATIONAL)(Var: VAR)
let zero : t = {base=Q.zero; eps_factor=Q.zero}
let[@inline] make base eps_factor : t = {base; eps_factor}
let[@inline] make base eps_factor : t =
if Q.is_real base then {base; eps_factor} else {base; eps_factor=Q.zero}
let[@inline] make_q x = make x Q.zero
let[@inline] base t = t.base
let[@inline] eps_factor t = t.eps_factor