add original primrose source

1 files changed, 15 insertions, 0 deletions

diff --git a/primrose/spec_code/b_des_con_ra.rs b/primrose/spec_code/b_des_con_ra.rs
new file mode 100644
index 0000000..5ed84c9
--- /dev/null
+++ b/primrose/spec_code/b_des_con_ra.rs
@@ -0,0 +1,15 @@
+/*SPEC*
+property descending<T> {
+    \c -> ((for-all-consecutive-pairs c) geq?)
+}
+type DescendingCon<T> = {c impl (Container, Indexable) | (descending c)}
+*ENDSPEC*/
+
+fn main () {
+    let mut c = DescendingCon::<u32>::new();
+    for x in 0..10 {
+        c.insert(x);
+        c.insert(x);
+    }
+    assert_eq!(c.len(), 20);
+}
\ No newline at end of file