mirror of
https://github.com/GaloisInc/cryptol.git
synced 2025-01-07 08:19:12 +03:00
Just a different example.
This used to work with Z3 4.7.1 but does not with 4.8.4
This commit is contained in:
parent
454dd58fbd
commit
f0e9dcf471
@ -328,9 +328,27 @@
|
|||||||
|
|
||||||
|
|
||||||
; ---
|
; ---
|
||||||
; (declare-fun kv0 () InfNat )
|
|
||||||
; (assert (cryVar kv0 ) )
|
|
||||||
; (assert (not (isFin kv0)))
|
; (declare-fun L () InfNat)
|
||||||
; (assert (ite (isFin kv0) (>= (value kv0) 5) true))
|
; (declare-fun w () InfNat)
|
||||||
; (check-sat )
|
;
|
||||||
|
; (assert (cryVar L))
|
||||||
|
; (assert (cryVar w))
|
||||||
|
;
|
||||||
|
; (assert (cryAssume (cryFin w)))
|
||||||
|
; (assert (cryAssume (cryGeq w (cryNat 1))))
|
||||||
|
; (assert (cryAssume (cryGeq (cryMul (cryNat 2) w) (cryWidth L))))
|
||||||
|
;
|
||||||
|
; (assert (cryProve
|
||||||
|
; (cryGeq
|
||||||
|
; (cryMul
|
||||||
|
; (cryCeilDiv
|
||||||
|
; (cryAdd (cryNat 1) (cryAdd L (cryMul (cryNat 2) w)))
|
||||||
|
; (cryMul (cryNat 16) w))
|
||||||
|
; (cryMul (cryNat 16) w))
|
||||||
|
; (cryAdd (cryNat 1) (cryAdd L (cryMul (cryNat 2) w))))))
|
||||||
|
;
|
||||||
|
; (check-sat)
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user