Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Random_Pred.thy
changeset 67091 1393c2340eec
parent 60758 d8d85a8172b5 
--- a/src/HOL/Random_Pred.thy	Sun Nov 26 13:19:52 2017 +0100
+++ b/src/HOL/Random_Pred.thy	Sun Nov 26 21:08:32 2017 +0100
@@ -59,10 +59,10 @@
    in if Predicate.eval P' () then (Orderings.bot, s') else (Predicate.single (), s'))"
 
 definition Random :: "(Random.seed \<Rightarrow> ('a \<times> (unit \<Rightarrow> term)) \<times> Random.seed) \<Rightarrow> 'a random_pred"
-  where "Random g = scomp g (Pair o (Predicate.single o fst))"
+  where "Random g = scomp g (Pair \<circ> (Predicate.single \<circ> fst))"
 
 definition map :: "('a \<Rightarrow> 'b) \<Rightarrow> 'a random_pred \<Rightarrow> 'b random_pred"
-  where "map f P = bind P (single o f)"
+  where "map f P = bind P (single \<circ> f)"
 
 hide_const (open) iter' iter empty single bind union if_randompred
   iterate_upto not_randompred Random map
isabelle