intro h
case h.mp
p : ℕ+
L : Type u
inst✝³ : Field L
inst✝² : CharZero L
inst✝¹ : IsCyclotomicExtension {p} ℚ L
S : Type u_1
inst✝ : CommRing S
a b : Ideal S
⊢ (∃ a_1 b_1, a_1 * a + b_1 * b = 1) → a + b = ⊤

case h.mpr
p : ℕ+
L : Type u
inst✝³ : Field L
inst✝² : CharZero L
inst✝¹ : IsCyclotomicExtension {p} ℚ L
S : Type u_1
inst✝ : CommRing S
a b : Ideal S
⊢ a + b = ⊤ → ∃ a_2 b_1, a_2 * a + b_1 * b = 1
case h.mp
p : ℕ+
L : Type u
inst✝³ : Field L
inst✝² : CharZero L
inst✝¹ : IsCyclotomicExtension {p} ℚ L
S : Type u_1
inst✝ : CommRing S
a b : Ideal S
h : ∃ a_1 b_1, a_1 * a + b_1 * b = 1
⊢ a + b = ⊤

case h.mpr
p : ℕ+
L : Type u
inst✝³ : Field L
inst✝² : CharZero L
inst✝¹ : IsCyclotomicExtension {p} ℚ L
S : Type u_1
inst✝ : CommRing S
a b : Ideal S
⊢ a + b = ⊤ → ∃ a_2 b_1, a_2 * a + b_1 * b = 1