author | haftmann |
Wed, 13 May 2009 18:41:36 +0200 | |
changeset 31133 | a9f728dc5c8e |
parent 31132 | bfafc204042a |
child 31134 | 1a5591ecb764 |
--- a/src/HOL/Predicate.thy Wed May 13 18:41:35 2009 +0200 +++ b/src/HOL/Predicate.thy Wed May 13 18:41:36 2009 +0200 @@ -610,7 +610,7 @@ (simp_all add: Seq_def single_less_eq_eval contained_less_eq) lemma eq_pred_code [code]: - fixes P Q :: "'a::eq pred" + fixes P Q :: "'a pred" shows "eq_class.eq P Q \<longleftrightarrow> P \<le> Q \<and> Q \<le> P" unfolding eq by auto