refactor(all): shorter directory names

1 files changed, 31 insertions, 0 deletions

diff --git a/src/racket_specs/indexable-setup.rkt b/src/racket_specs/indexable-setup.rkt
new file mode 100644
index 0000000..ddd6239
--- /dev/null
+++ b/src/racket_specs/indexable-setup.rkt
@@ -0,0 +1,31 @@
+#lang rosette
+
+(define (check-not-contradict prop pre xs)
+  (assert (and (prop xs) (pre xs) (> (length xs) 1))))
+
+(define (check-spec-first prop pre spec xs)
+  (assume (and (prop xs) (pre xs)))
+  (assert (prop (car (spec xs)))))
+
+(define (check-spec-last prop pre spec xs)
+  (assume (and (prop xs) (pre xs)))
+  (assert (prop (car (spec xs)))))
+
+
+(define (check-spec-nth prop pre spec xs n)
+  (assume (and (prop xs) (pre xs)))
+  (assert (prop (car (spec xs n)))))
+
+
+(define (check prop pres specs xs n)
+  (cond 
+    [(or (unsat? (solve (check-not-contradict prop (first pres) xs)))
+         (unsat? (solve (check-not-contradict prop (second pres) xs)))
+         (unsat? (solve (check-not-contradict prop (third pres) xs)))
+         ) #f]
+    [else (and (unsat? (verify (check-spec-first prop (first pres) (first specs) xs)))
+               (unsat? (verify (check-spec-last prop (second pres) (second specs) xs)))
+               (unsat? (verify (check-spec-nth prop (third pres) (third specs) xs n)))
+               )]))
+
+(provide check)
\ No newline at end of file