@@ -175,15 +175,15 @@ lemma aux₁.ha4 (hab : gcd a₁ b₁ = 1) : ((aux₁ a₁ b₁ c₁).1 : ZMod 4
175
175
exact a3mod4
176
176
· rename_i _ a1mod4
177
177
have foo : 2 ∣ b₁ := by
178
- exact (ZMod.int_cast_zmod_eq_zero_iff_dvd b₁ 2 ).mp b_even
178
+ exact (ZMod.intCast_zmod_eq_zero_iff_dvd b₁ 2 ).mp b_even
179
179
have bar : ¬ 2 ∣ a₁ := by
180
180
intro h
181
181
apply aux _ h foo
182
182
rename_i x x_1
183
183
simp_all only [ne_eq, Fin.zero_eta, gcd_eq_zero_iff, false_and, not_false_eq_true]
184
184
-- want to do fin_cases on (-a₁ : ZMod 4)
185
185
rcases ZMod4cases (-a₁ : ℤ) with (h | h | h | h)
186
- · rw [ZMod.int_cast_zmod_eq_zero_iff_dvd ] at h
186
+ · rw [ZMod.intCast_zmod_eq_zero_iff_dvd ] at h
187
187
simp only [Nat.cast_ofNat, dvd_neg] at h
188
188
exfalso
189
189
apply bar
@@ -198,7 +198,7 @@ lemma aux₁.ha4 (hab : gcd a₁ b₁ = 1) : ((aux₁ a₁ b₁ c₁).1 : ZMod 4
198
198
apply bar
199
199
simp only [Int.cast_neg, ← add_eq_zero_iff_neg_eq] at h
200
200
have foo : ((a₁ + 2 : ℤ) : ZMod 4 ) = 0 := by assumption_mod_cast
201
- rw [ZMod.int_cast_zmod_eq_zero_iff_dvd ] at foo
201
+ rw [ZMod.intCast_zmod_eq_zero_iff_dvd ] at foo
202
202
rw [← dvd_add_left (c := 2 ) (by norm_num)]
203
203
refine dvd_trans ?_ foo
204
204
norm_num
@@ -211,11 +211,11 @@ lemma aux₁.ha4 (hab : gcd a₁ b₁ = 1) : ((aux₁ a₁ b₁ c₁).1 : ZMod 4
211
211
· rename_i _ b1mod4
212
212
-- now need to check a
213
213
rcases ZMod4cases b₁ with (h | h | h | h)
214
- · rw [ZMod.int_cast_zmod_eq_zero_iff_dvd ] at h
214
+ · rw [ZMod.intCast_zmod_eq_zero_iff_dvd ] at h
215
215
simp only [Nat.cast_ofNat, dvd_neg] at h
216
216
exfalso
217
217
apply hb1
218
- simp only [Fin.zero_eta, ZMod.int_cast_zmod_eq_zero_iff_dvd ]
218
+ simp only [Fin.zero_eta, ZMod.intCast_zmod_eq_zero_iff_dvd ]
219
219
refine dvd_trans ?_ h
220
220
norm_num
221
221
· simp [h]
@@ -224,8 +224,8 @@ lemma aux₁.ha4 (hab : gcd a₁ b₁ = 1) : ((aux₁ a₁ b₁ c₁).1 : ZMod 4
224
224
have foo : ((b₁ - 2 : ℤ) : ZMod 4 ) = 0 := by assumption_mod_cast
225
225
exfalso
226
226
apply hb1
227
- rw [ZMod.int_cast_zmod_eq_zero_iff_dvd ] at foo
228
- apply (ZMod.int_cast_zmod_eq_zero_iff_dvd _ 2 ).2
227
+ rw [ZMod.intCast_zmod_eq_zero_iff_dvd ] at foo
228
+ apply (ZMod.intCast_zmod_eq_zero_iff_dvd _ 2 ).2
229
229
rw [← dvd_sub_left (c := 2 ) (by norm_num)]
230
230
refine dvd_trans ?_ foo
231
231
norm_num
@@ -239,19 +239,19 @@ lemma aux₁.ha4 (hab : gcd a₁ b₁ = 1) : ((aux₁ a₁ b₁ c₁).1 : ZMod 4
239
239
· exfalso
240
240
apply a_odd
241
241
change _ = 0
242
- rw [ZMod.int_cast_zmod_eq_zero_iff_dvd ] at h ⊢
242
+ rw [ZMod.intCast_zmod_eq_zero_iff_dvd ] at h ⊢
243
243
refine dvd_trans ?_ h
244
244
norm_num
245
245
· simp [h]
246
246
decide
247
247
· exfalso
248
248
apply a_odd
249
249
change _ = 0
250
- rw [ZMod.int_cast_zmod_eq_zero_iff_dvd ]
250
+ rw [ZMod.intCast_zmod_eq_zero_iff_dvd ]
251
251
rw [← dvd_sub_left (c := 2 ) (by norm_num)]
252
252
rw [← sub_eq_zero] at h
253
253
have foo : ((a₁ - 2 : ℤ) : ZMod 4 ) = 0 := by assumption_mod_cast
254
- rw [ZMod.int_cast_zmod_eq_zero_iff_dvd ] at foo
254
+ rw [ZMod.intCast_zmod_eq_zero_iff_dvd ] at foo
255
255
refine dvd_trans ?_ foo
256
256
norm_num
257
257
· exfalso
@@ -310,21 +310,21 @@ lemma gcdab_eq_gcdac {a b c : ℤ} {p : ℕ} (hp : 0 < p) (h : a ^ p + b ^ p = c
310
310
gcd a b = gcd a c := by
311
311
have foo : gcd a b ∣ gcd a c := by
312
312
apply dvd_gcd (gcd_dvd_left a b)
313
- rw [← Int.pow_dvd_pow_iff hp, ← h]
313
+ rw [← Int.pow_dvd_pow_iff hp.ne' , ← h]
314
314
apply dvd_add
315
- · rw [Int.pow_dvd_pow_iff hp]
315
+ · rw [Int.pow_dvd_pow_iff hp.ne' ]
316
316
exact gcd_dvd_left a b
317
- · rw [Int.pow_dvd_pow_iff hp]
317
+ · rw [Int.pow_dvd_pow_iff hp.ne' ]
318
318
exact gcd_dvd_right a b
319
319
have bar : gcd a c ∣ gcd a b := by
320
320
apply dvd_gcd (gcd_dvd_left a c)
321
321
have h2 : b ^ p = c ^ p - a ^ p := eq_sub_of_add_eq' h
322
- rw [← Int.pow_dvd_pow_iff hp, h2]
322
+ rw [← Int.pow_dvd_pow_iff hp.ne' , h2]
323
323
apply dvd_add
324
- · rw [Int.pow_dvd_pow_iff hp]
324
+ · rw [Int.pow_dvd_pow_iff hp.ne' ]
325
325
exact gcd_dvd_right a c
326
326
· rw [dvd_neg]
327
- rw [Int.pow_dvd_pow_iff hp]
327
+ rw [Int.pow_dvd_pow_iff hp.ne' ]
328
328
exact gcd_dvd_left a c
329
329
change _ ∣ (Int.gcd a c : ℤ) at foo
330
330
apply Int.ofNat_dvd.1 at bar
0 commit comments