obtain ⟨t, ht, hn⟩ := exists_le_card_eq hs
n p : ℕ
inst✝ : Fact p.Prime
s✝ : Multiset (ZMod p)
s : Multiset (ZMod 1)
hs : 2 * 1 - 1 ≤ Multiset.card s
⊢ ∃ t ≤ s, Multiset.card t = 1 ∧ t.sum = 0
case intro.intro
n p : ℕ
inst✝ : Fact p.Prime
s✝ : Multiset (ZMod p)
s : Multiset (ZMod 1)
hs : 2 * 1 - 1 ≤ Multiset.card s
t : Multiset (ZMod 1)
ht : t ≤ s
hn : Multiset.card t = 2 * 1 - 1
⊢ ∃ t ≤ s, Multiset.card t = 1 ∧ t.sum = 0