changeset 58288 | 87b59745dd6d |
parent 57512 | cc97b347b301 |
child 58410 | 6d46ad54a2ab |
--- a/src/HOL/Number_Theory/Gauss.thy Tue Sep 09 22:25:14 2014 +0200 +++ b/src/HOL/Number_Theory/Gauss.thy Tue Sep 09 22:28:49 2014 +0200 @@ -206,7 +206,7 @@ by (simp add: cong_altdef_int) (metis gcd_int.commute prime_imp_coprime_int) lemma A_prod_relprime: "gcd (setprod id A) p = 1" - by (metis DEADID.map_id all_A_relprime setprod_coprime_int) + by (metis id_def all_A_relprime setprod_coprime_int) subsection {* Relationships Between Gauss Sets *}