bundles for syntax modifications seen in AFP;
authorwenzelm
Fri, 04 Oct 2024 00:00:50 +0200
changeset 81110 08165a4e105d
parent 81109 78fd95fe4a6f
child 81111 f1a3a553e8cf
bundles for syntax modifications seen in AFP;
src/HOL/Set.thy
--- a/src/HOL/Set.thy	Thu Oct 03 23:34:55 2024 +0200
+++ b/src/HOL/Set.thy	Fri Oct 04 00:00:50 2024 +0200
@@ -29,11 +29,23 @@
   not_member  (\<open>'(\<notin>')\<close>) and
   not_member  (\<open>(\<open>notation=\<open>infix \<notin>\<close>\<close>_/ \<notin> _)\<close> [51, 51] 50)
 
+open_bundle member_ASCII_syntax
+begin
 notation (ASCII)
   member  (\<open>'(:')\<close>) and
   member  (\<open>(\<open>notation=\<open>infix :\<close>\<close>_/ : _)\<close> [51, 51] 50) and
   not_member  (\<open>'(~:')\<close>) and
   not_member  (\<open>(\<open>notation=\<open>infix ~:\<close>\<close>_/ ~: _)\<close> [51, 51] 50)
+end
+
+bundle no_member_ASCII_syntax
+begin
+no_notation (ASCII)
+  member  (\<open>'(:')\<close>) and
+  member  (\<open>(\<open>notation=\<open>infix :\<close>\<close>_/ : _)\<close> [51, 51] 50) and
+  not_member  (\<open>'(~:')\<close>) and
+  not_member  (\<open>(\<open>notation=\<open>infix ~:\<close>\<close>_/ ~: _)\<close> [51, 51] 50)
+end
 
 
 text \<open>Set comprehensions\<close>