--- a/src/HOL/Algebra/FiniteProduct.thy Fri Jan 08 18:18:40 2016 +0100
+++ b/src/HOL/Algebra/FiniteProduct.thy Fri Jan 08 19:46:30 2016 +0100
@@ -298,7 +298,7 @@
"_finprod" :: "index => idt => 'a set => 'b => 'b"
("(3\<Otimes>__\<in>_. _)" [1000, 0, 51, 10] 10)
translations
- "\<Otimes>\<index>i\<in>A. b" \<rightleftharpoons> "CONST finprod \<struct>\<index> (%i. b) A"
+ "\<Otimes>\<^bsub>G\<^esub>i\<in>A. b" \<rightleftharpoons> "CONST finprod G (%i. b) A"
-- \<open>Beware of argument permutation!\<close>
lemma (in comm_monoid) finprod_empty [simp]:
--- a/src/HOL/Algebra/Ring.thy Fri Jan 08 18:18:40 2016 +0100
+++ b/src/HOL/Algebra/Ring.thy Fri Jan 08 19:46:30 2016 +0100
@@ -38,7 +38,7 @@
"_finsum" :: "index => idt => 'a set => 'b => 'b"
("(3\<Oplus>__\<in>_. _)" [1000, 0, 51, 10] 10)
translations
- "\<Oplus>\<index>i\<in>A. b" \<rightleftharpoons> "CONST finsum \<struct>\<index> (%i. b) A"
+ "\<Oplus>\<^bsub>G\<^esub>i\<in>A. b" \<rightleftharpoons> "CONST finsum G (%i. b) A"
-- \<open>Beware of argument permutation!\<close>