From f3cd67af3c2c7f99b8e75dd5660fc1c7a0b3114d Mon Sep 17 00:00:00 2001
From: rustanleino <unknown>
Date: Wed, 17 Nov 2010 17:34:09 +0000
Subject: Chalice: white space delta in test file Dafny: Simplified
 VSComp2010/Problem4-Queens.dfy from using an inductive ghost-method lemmas to
 just using an assert

---
 Test/VSComp2010/Problem4-Queens.dfy | 41 +++++++------------------------------
 1 file changed, 7 insertions(+), 34 deletions(-)

(limited to 'Test')

diff --git a/Test/VSComp2010/Problem4-Queens.dfy b/Test/VSComp2010/Problem4-Queens.dfy
index a07a2a5e..e73c644f 100644
--- a/Test/VSComp2010/Problem4-Queens.dfy
+++ b/Test/VSComp2010/Problem4-Queens.dfy
@@ -9,7 +9,7 @@
 // Oh, I also added some comments in this version of the program.
 //
 // The correctness of this program relies on some properties of Queens boards.  These
-// are stated and proved as lemmas, which can be declared in Dafny as ghost methods.
+// are stated and proved as lemmas, which here are given in assert statements.
 //
 // There are two annoyances in this program:
 //
@@ -59,37 +59,6 @@ static function IsConsistent(board: seq<int>, pos: int): bool
       board[pos] - board[q] != pos - q)
 }
 
-// The following lemma says that 'IsConsistent' is monotonic in its first argument.
-// More precisely, if 'short' is a board with a queen consistently placed in column
-// 'pos', then that queen is also consistently placed in any extension 'long' of the
-// board 'short' (that is, the sequence of queen positions 'short' is a prefix of the
-// sequence of queen positions 'long').  In other words, consistency of a queen in
-// column 'pos' does not depend on columns to the right of 'pos'.
-ghost method Lemma0(short: seq<int>, long: seq<int>, pos: int)
-  requires short <= long;
-  ensures IsConsistent(short, pos) ==> IsConsistent(long, pos);
-{
-  if (IsConsistent(short, pos)) {
-    assert IsConsistent(long, pos);
-  }
-}
-
-// Lemma1 states Lemma0 for every column in the board 'short'.
-ghost method Lemma1(short: seq<int>, long: seq<int>)
-  requires short <= long;
-  ensures (forall k :: 0 <= k && k < |short| && IsConsistent(short, k) ==> IsConsistent(long, k));
-  ensures (forall B, p :: IsConsistent(B, p) <==> old(IsConsistent(B, p)));
-{
-  var j := 0;
-  while (j < |short|)
-    invariant j <= |short|;
-    invariant (forall k :: 0 <= k && k < j && IsConsistent(short, k) ==> IsConsistent(long, k));
-  {
-    call Lemma0(short, long, j);
-    j := j + 1;
-  }
-}
-
 method CheckConsistent(board: seq<int>, pos: int) returns (b: bool)
   ensures b <==> IsConsistent(board, pos);
   ensures (forall B, p :: IsConsistent(B, p) <==> old(IsConsistent(B, p)));
@@ -171,8 +140,12 @@ method SearchAux(N: int, boardSoFar: seq<int>) returns (success: bool, newBoard:
         // The new queen is consistent.  Thus, 'candidateBoard' is consistent in column 'pos'.
         // The consistency of the queens in columns left of 'pos' follows from the
         // consistency of those queens in 'boardSoFar' and the fact that 'candidateBoard' is
-        // an extension of 'boardSoFar', as Lemma1 tells us:
-        call Lemma1(boardSoFar, candidateBoard);
+        // an extension of 'boardSoFar', as the following lemma tells us:
+        assert (forall k ::
+                  0 <= k && k < |boardSoFar| && IsConsistent(boardSoFar, k)
+                  ==>
+                  IsConsistent(candidateBoard, k));
+
         // Thus, we meet the precondition of 'SearchAux' on 'candidateBoard', so let's search
         // for a solution that extends 'candidateBoard'.
         call s, b := SearchAux(N, candidateBoard);
-- 
cgit v1.2.3