src/HOL/Library/Monad_Syntax.thy
changeset 45964 7b3a18670a9f
parent 45145 d5086da3c32d
child 45990 b7b905b23b2a
equal deleted inserted replaced
45963:1c7e6454883e 45964:7b3a18670a9f
    69   "_do_block (_do_final e)" => "e"
    69   "_do_block (_do_final e)" => "e"
    70   "(m >> n)" => "(m >>= (\<lambda>_. n))"
    70   "(m >> n)" => "(m >>= (\<lambda>_. n))"
    71 
    71 
    72 setup {*
    72 setup {*
    73   Adhoc_Overloading.add_overloaded @{const_name bind}
    73   Adhoc_Overloading.add_overloaded @{const_name bind}
       
    74   #> Adhoc_Overloading.add_variant @{const_name bind} @{const_name Set.bind}
    74   #> Adhoc_Overloading.add_variant @{const_name bind} @{const_name Predicate.bind}
    75   #> Adhoc_Overloading.add_variant @{const_name bind} @{const_name Predicate.bind}
    75   #> Adhoc_Overloading.add_variant @{const_name bind} @{const_name Option.bind}
    76   #> Adhoc_Overloading.add_variant @{const_name bind} @{const_name Option.bind}
    76   #> Adhoc_Overloading.add_variant @{const_name bind} @{const_name More_List.bind}
    77   #> Adhoc_Overloading.add_variant @{const_name bind} @{const_name More_List.bind}
    77 *}
    78 *}
    78 
    79