diff -r f6e595e4f608 -r 261cd8722677 src/HOL/Sum_Type.thy --- a/src/HOL/Sum_Type.thy Mon Sep 23 12:59:10 2024 +0200 +++ b/src/HOL/Sum_Type.thy Mon Sep 23 13:32:38 2024 +0200 @@ -19,7 +19,7 @@ definition "sum = {f. (\a. f = Inl_Rep (a::'a)) \ (\b. f = Inr_Rep (b::'b))}" -typedef ('a, 'b) sum (infixr "+" 10) = "sum :: ('a \ 'b \ bool \ bool) set" +typedef ('a, 'b) sum (infixr \+\ 10) = "sum :: ('a \ 'b \ bool \ bool) set" unfolding sum_def by auto lemma Inl_RepI: "Inl_Rep a \ sum" @@ -209,7 +209,7 @@ subsection \The Disjoint Sum of Sets\ -definition Plus :: "'a set \ 'b set \ ('a + 'b) set" (infixr "<+>" 65) +definition Plus :: "'a set \ 'b set \ ('a + 'b) set" (infixr \<+>\ 65) where "A <+> B = Inl ` A \ Inr ` B" hide_const (open) Plus \ \Valuable identifier\