mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-10 05:03:59 -05:00
fix(lia): problems with only integer constants are not incomplete
This commit is contained in:
parent
8410a57f1a
commit
44af0afd59
1 changed files with 4 additions and 1 deletions
|
|
@ -42,7 +42,10 @@ module Make(A : ARG) : S with module A = A = struct
|
||||||
let st = create ~stat (SI.proof si) (SI.tst si) (SI.ty_st si) in
|
let st = create ~stat (SI.proof si) (SI.tst si) (SI.ty_st si) in
|
||||||
|
|
||||||
SI.on_preprocess si (fun _si _ t ->
|
SI.on_preprocess si (fun _si _ t ->
|
||||||
if A.has_ty_int t then (
|
let is_int_const t = match A.view_as_lia t with
|
||||||
|
| LIA_const _ -> true | _ -> false in
|
||||||
|
if A.has_ty_int t && not (is_int_const t) then (
|
||||||
|
Log.debugf 10 (fun k->k "lia: has ty int %a" T.pp t);
|
||||||
SI.declare_pb_is_incomplete si; (* TODO: remove *)
|
SI.declare_pb_is_incomplete si; (* TODO: remove *)
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue