rcases H with ⟨X, Y, a0, H1, H0, H2⟩
α : Type u
inst✝¹ : DecidableEq α
inst✝ : LT α
a : α
M N : Multiset α
H : MultisetRedLt N (a ::ₘ M)
⊢ ∃ M', N = a ::ₘ M' ∧ MultisetRedLt M' M ∨ N = M + M' ∧ ∀ x ∈ M', x < a
case RedLt
α : Type u
inst✝¹ : DecidableEq α
inst✝ : LT α
a : α
M N X Y : Multiset α
a0 : α
H1 : N = X + Y
H0 : a ::ₘ M = X + {a0}
H2 : ∀ y ∈ Y, y < a0
⊢ ∃ M', N = a ::ₘ M' ∧ MultisetRedLt M' M ∨ N = M + M' ∧ ∀ x ∈ M', x < a