Merge commit 'df5c5f5'

1 files changed, 33 insertions, 0 deletions

diff --git a/Test/dafny0/ContainerRanks.dfy b/Test/dafny0/ContainerRanks.dfy
new file mode 100644
index 00000000..df35e214
--- /dev/null
+++ b/Test/dafny0/ContainerRanks.dfy
@@ -0,0 +1,33 @@
+// RUN: %dafny /compile:0 /dprint:"%t.dprint" "%s" > "%t"

+// RUN: %diff "%s.expect" "%t"

+

+datatype Abc = End | Wrapper(seq<Abc>)

+

+lemma SeqRank0(a: Abc)

+  ensures a != Wrapper([a])

+{

+  assert [a][0] == a;  // TODO: one could consider strengthening axioms to eliminate the need for this assert

+                       // The reason we need the assert is to match the trigger in the rank axioms produced

+                       // for datatypes containing sequences.

+                       // See "is SeqType" case of AddDatatype in Translator.cs

+}

+

+lemma SeqRank1(s: seq<Abc>)

+  requires s != []

+  ensures s[0] != Wrapper(s)

+{

+}

+

+datatype Def = End | MultiWrapper(multiset<Def>)

+

+lemma MultisetRank(a: Def)

+  ensures a != MultiWrapper(multiset{a})

+{

+}

+

+datatype Ghi = End | SetWrapper(set<Ghi>)

+

+lemma SetRank(a: Ghi)

+  ensures a != SetWrapper({a})

+{

+}