changeset 61125 | 4c68426800de |
parent 59427 | 084330e2ec5e |
child 61169 | 4de9ff3ea29a |
--- a/src/HOL/Probability/Probability_Measure.thy Sun Sep 06 22:14:51 2015 +0200 +++ b/src/HOL/Probability/Probability_Measure.thy Sun Sep 06 22:14:51 2015 +0200 @@ -278,7 +278,7 @@ in go ((x, 0) :: pattern) (bound_dummyT $ tx :: elem) t end - | go pattern elem (Const (@{const_syntax case_prod}, _) $ t) = + | go pattern elem (Const (@{const_syntax uncurry}, _) $ t) = go ((Syntax.const @{syntax_const "_pattern"}, 2) :: pattern) (Syntax.const @{const_syntax Pair} :: elem)