refine' Int.eq_one_of_dvd_one _ l
a b c k : ℤθ
h : ∃ b, k * b = 1
p : k ∣ 1
l : norm k ∣ 1
d : norm 1 = 1
⊢ norm k = 1
a b c k : ℤθ
h : ∃ b, k * b = 1
p : k ∣ 1
l : norm k ∣ 1
d : norm 1 = 1
⊢ 0 ≤ norm k