src/racket_specs/stack-setup.rkt


1
2
3
4
5
6
7
8
9
10

#lang rosette

(define (check-push-pop prop pres xs)
  (assume (and ((first pres) xs) ((second pres) xs)))
  (assert (prop xs)))

(define (check prop pres specs xs x . rest)
  (unsat? (verify (check-push-pop prop pres xs))))

(provide check)