# HG changeset patch
# User bulwahn
# Date 1264007288 -3600
# Node ID a053ad2a7a72e8ce6e5d09668fd2543208ae89f6
# Parent  bd7e347eb76816151e4b258d6c92d1cc592db287
adopting Sequences

diff -r bd7e347eb768 -r a053ad2a7a72 src/HOL/DSequence.thy
--- a/src/HOL/DSequence.thy	Wed Jan 20 18:02:22 2010 +0100
+++ b/src/HOL/DSequence.thy	Wed Jan 20 18:08:08 2010 +0100
@@ -43,7 +43,7 @@
         None => None
       | Some zq => Some (Lazy_Sequence.append yq zq))))"
 
-fun bind :: "'a dseq => ('a => 'b dseq) => 'b dseq"
+definition bind :: "'a dseq => ('a => 'b dseq) => 'b dseq"
 where
   "bind x f = (%i pol. 
      if i = 0 then
@@ -53,7 +53,7 @@
          None => None
        | Some xq => map_seq f xq i pol))"
 
-fun union :: "'a dseq => 'a dseq => 'a dseq"
+definition union :: "'a dseq => 'a dseq => 'a dseq"
 where
   "union x y = (%i pol. case (x i pol, y i pol) of
       (Some xq, Some yq) => Some (Lazy_Sequence.append xq yq)
@@ -63,7 +63,7 @@
 where
   "if_seq b = (if b then single () else empty)"
 
-fun not_seq :: "unit dseq => unit dseq"
+definition not_seq :: "unit dseq => unit dseq"
 where
   "not_seq x = (%i pol. case x i (\<not>pol) of
     None => Some Lazy_Sequence.empty
@@ -71,7 +71,7 @@
       None => Some (Lazy_Sequence.single ())
     | Some _ => Some (Lazy_Sequence.empty)))"
 
-fun map :: "('a => 'b) => 'a dseq => 'b dseq"
+definition map :: "('a => 'b) => 'a dseq => 'b dseq"
 where
   "map f g = (%i pol. case g i pol of
      None => None
@@ -106,7 +106,7 @@
   Sequence.append Sequence.flat Sequence.map Sequence.bind Sequence.ifpred Sequence.not_seq
 *)
 hide (open) const empty single eval map_seq bind union if_seq not_seq map
-hide (open) fact empty_def single_def eval.simps map_seq.simps bind.simps union.simps
-  if_seq_def not_seq.simps map.simps
+hide (open) fact empty_def single_def eval.simps map_seq.simps bind_def union_def
+  if_seq_def not_seq_def map_def
 
 end
diff -r bd7e347eb768 -r a053ad2a7a72 src/HOL/Random_Sequence.thy
--- a/src/HOL/Random_Sequence.thy	Wed Jan 20 18:02:22 2010 +0100
+++ b/src/HOL/Random_Sequence.thy	Wed Jan 20 18:08:08 2010 +0100
@@ -56,6 +56,6 @@
 hide (open) const empty single bind union if_random_dseq not_random_dseq Random map
 
 hide type DSequence.dseq random_dseq
-hide (open) fact empty_def single_def bind_def union_def if_random_dseq_def not_random_dseq_def Random_def map_def
+hide (open) fact empty_def single_def bind_def union_def if_random_dseq_def not_random_dseq_def Random.simps map_def
 
 end
\ No newline at end of file