--- a/src/HOL/HOLCF/ConvexPD.thy Sat Dec 11 10:35:40 2010 -0800
+++ b/src/HOL/HOLCF/ConvexPD.thy Sat Dec 11 11:26:37 2010 -0800
@@ -123,6 +123,8 @@
"{S::'a pd_basis set. convex_le.ideal S}"
by (rule convex_le.ex_ideal)
+type_notation (xsymbols) convex_pd ("('(_')\<natural>)")
+
instantiation convex_pd :: ("domain") below
begin
--- a/src/HOL/HOLCF/LowerPD.thy Sat Dec 11 10:35:40 2010 -0800
+++ b/src/HOL/HOLCF/LowerPD.thy Sat Dec 11 11:26:37 2010 -0800
@@ -78,6 +78,8 @@
"{S::'a pd_basis set. lower_le.ideal S}"
by (rule lower_le.ex_ideal)
+type_notation (xsymbols) lower_pd ("('(_')\<flat>)")
+
instantiation lower_pd :: ("domain") below
begin
--- a/src/HOL/HOLCF/UpperPD.thy Sat Dec 11 10:35:40 2010 -0800
+++ b/src/HOL/HOLCF/UpperPD.thy Sat Dec 11 11:26:37 2010 -0800
@@ -76,6 +76,8 @@
"{S::'a pd_basis set. upper_le.ideal S}"
by (rule upper_le.ex_ideal)
+type_notation (xsymbols) upper_pd ("('(_')\<sharp>)")
+
instantiation upper_pd :: ("domain") below
begin