# HG changeset patch
# User nipkow
# Date 759423783 -3600
# Node ID 65a546c2b8ed20981cd71840fff42f3ed9e8d7f7
# Parent  b503da67d2f740493eeac174831031f81f2e327f
changed header

diff -r b503da67d2f7 -r 65a546c2b8ed ex/Qsort.ML
--- a/ex/Qsort.ML	Mon Jan 24 16:00:37 1994 +0100
+++ b/ex/Qsort.ML	Mon Jan 24 16:03:03 1994 +0100
@@ -1,3 +1,11 @@
+(*  Title: 	HOL/ex/qsort.ML
+    ID:         $Id$
+    Author: 	Tobias Nipkow
+    Copyright   1994 TU Muenchen
+
+Two verifications of Quicksort
+*)
+
 val ss = list_ss addsimps
  [Qsort.mset_Nil,Qsort.mset_Cons,
   Qsort.sorted_Nil,Qsort.sorted_Cons,
diff -r b503da67d2f7 -r 65a546c2b8ed ex/Qsort.thy
--- a/ex/Qsort.thy	Mon Jan 24 16:00:37 1994 +0100
+++ b/ex/Qsort.thy	Mon Jan 24 16:03:03 1994 +0100
@@ -1,3 +1,11 @@
+(*  Title: 	HOL/ex/qsort.thy
+    ID:         $Id$
+    Author: 	Tobias Nipkow
+    Copyright   1994 TU Muenchen
+
+Quicksort
+*)
+
 Qsort = List +
 consts
   sorted :: "[['a,'a] => bool, 'a list] => bool"
diff -r b503da67d2f7 -r 65a546c2b8ed ex/qsort.ML
--- a/ex/qsort.ML	Mon Jan 24 16:00:37 1994 +0100
+++ b/ex/qsort.ML	Mon Jan 24 16:03:03 1994 +0100
@@ -1,3 +1,11 @@
+(*  Title: 	HOL/ex/qsort.ML
+    ID:         $Id$
+    Author: 	Tobias Nipkow
+    Copyright   1994 TU Muenchen
+
+Two verifications of Quicksort
+*)
+
 val ss = list_ss addsimps
  [Qsort.mset_Nil,Qsort.mset_Cons,
   Qsort.sorted_Nil,Qsort.sorted_Cons,
diff -r b503da67d2f7 -r 65a546c2b8ed ex/qsort.thy
--- a/ex/qsort.thy	Mon Jan 24 16:00:37 1994 +0100
+++ b/ex/qsort.thy	Mon Jan 24 16:03:03 1994 +0100
@@ -1,3 +1,11 @@
+(*  Title: 	HOL/ex/qsort.thy
+    ID:         $Id$
+    Author: 	Tobias Nipkow
+    Copyright   1994 TU Muenchen
+
+Quicksort
+*)
+
 Qsort = List +
 consts
   sorted :: "[['a,'a] => bool, 'a list] => bool"