diff options
author | rustanleino <unknown> | 2010-11-25 21:31:57 +0000 |
---|---|---|
committer | rustanleino <unknown> | 2010-11-25 21:31:57 +0000 |
commit | 118efd850d7a34e2be81ebf1a551a3b34c0780e7 (patch) | |
tree | 83847c2a6ce95e2951ffa6425c64457e139a0287 /Test/dafny1/TreeDatatype.dfy | |
parent | 75955115cf39ccdccfc2a3df6ac714e7c6c29bf9 (diff) |
Dafny: Improved default decreases clauses for methods and functions
Dafny: Don't display "alloc" field in BVD
Chalice: Fixed error-message parsing error in VS mode
Diffstat (limited to 'Test/dafny1/TreeDatatype.dfy')
-rw-r--r-- | Test/dafny1/TreeDatatype.dfy | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/Test/dafny1/TreeDatatype.dfy b/Test/dafny1/TreeDatatype.dfy index 58124171..7fc62feb 100644 --- a/Test/dafny1/TreeDatatype.dfy +++ b/Test/dafny1/TreeDatatype.dfy @@ -10,14 +10,12 @@ datatype Tree { }
static function Inc(t: Tree): Tree
- decreases t;
{
match t
case Node(n, children) => #Tree.Node(n+1, ForestInc(children))
}
static function ForestInc(forest: List<Tree>): List<Tree>
- decreases forest;
{
match forest
case Nil => forest
@@ -31,14 +29,12 @@ datatype GTree<T> { }
static function GInc(t: GTree<int>): GTree<int>
- decreases t;
{
match t
case Node(n, children) => #GTree.Node(n+1, GForestInc(children))
}
static function GForestInc(forest: List<GTree<int>>): List<GTree<int>>
- decreases forest;
{
match forest
case Nil => forest
@@ -57,14 +53,12 @@ datatype OneTree { }
static function XInc(t: OneTree): OneTree
- decreases t;
{
match t
case Node(n, children) => #OneTree.Node(n+1, XForestInc(children))
}
static function XForestInc(forest: TreeList): TreeList
- decreases forest;
{
match forest
case Nil => forest
|