src/HOL/Random_Pred.thy
changeset 67091 1393c2340eec
parent 60758 d8d85a8172b5
     1.1 --- a/src/HOL/Random_Pred.thy	Sun Nov 26 13:19:52 2017 +0100
     1.2 +++ b/src/HOL/Random_Pred.thy	Sun Nov 26 21:08:32 2017 +0100
     1.3 @@ -59,10 +59,10 @@
     1.4     in if Predicate.eval P' () then (Orderings.bot, s') else (Predicate.single (), s'))"
     1.5  
     1.6  definition Random :: "(Random.seed \<Rightarrow> ('a \<times> (unit \<Rightarrow> term)) \<times> Random.seed) \<Rightarrow> 'a random_pred"
     1.7 -  where "Random g = scomp g (Pair o (Predicate.single o fst))"
     1.8 +  where "Random g = scomp g (Pair \<circ> (Predicate.single \<circ> fst))"
     1.9  
    1.10  definition map :: "('a \<Rightarrow> 'b) \<Rightarrow> 'a random_pred \<Rightarrow> 'b random_pred"
    1.11 -  where "map f P = bind P (single o f)"
    1.12 +  where "map f P = bind P (single \<circ> f)"
    1.13  
    1.14  hide_const (open) iter' iter empty single bind union if_randompred
    1.15    iterate_upto not_randompred Random map