--- a/src/HOL/Relation.thy Wed Mar 19 17:06:02 2014 +0000
+++ b/src/HOL/Relation.thy Wed Mar 19 18:47:22 2014 +0100
@@ -281,7 +281,7 @@
by (fast intro: symI elim: symE)
lemma symp_INF:
- "\<forall>x\<in>S. symp (r x) \<Longrightarrow> symp (INFI S r)"
+ "\<forall>x\<in>S. symp (r x) \<Longrightarrow> symp (INFIMUM S r)"
by (fact sym_INTER [to_pred])
lemma sym_UNION:
@@ -289,7 +289,7 @@
by (fast intro: symI elim: symE)
lemma symp_SUP:
- "\<forall>x\<in>S. symp (r x) \<Longrightarrow> symp (SUPR S r)"
+ "\<forall>x\<in>S. symp (r x) \<Longrightarrow> symp (SUPREMUM S r)"
by (fact sym_UNION [to_pred])