/-
Copyright 2025 The Formal Conjectures Authors.
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
https://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
-/
import FormalConjecturesUtilErdős Problem 1
Reference: erdosproblems.com/1
open Filteropen scoped Topology Realnamespace Erdos1A finite set of naturals $A$ is said to be a sum-distinct set for $N \in \mathbb{N}$ if $A\subseteq{1, ..., N}$ and the sums $\sum_{a\in S}a$ are distinct for all $S\subseteq A$
abbrev IsSumDistinctSet (A : Finset ℕ) (N : ℕ) : Prop :=
A ⊆ Finset.Icc 1 N ∧ (fun (⟨S, _⟩ : A.powerset) => S.sum id).InjectiveIf $A\subseteq{1, ..., N}$ with $|A| = n$ is such that the subset sums $\sum_{a\in S}a$ are distinct for all $S\subseteq A$ then $$ N \gg 2 ^ n. $$
@[category research open, AMS 5 11]
theorem erdos_1 : ∃ C > (0 : ℝ), ∀ (N : ℕ) (A : Finset ℕ) (_ : IsSumDistinctSet A N),
N ≠ 0 → C * 2 ^ A.card < N := ⊢ ∃ C > 0, ∀ (N : ℕ) (A : Finset ℕ), IsSumDistinctSet A N → N ≠ 0 → C * 2 ^ A.card < ↑N
All goals completed! 🐙The trivial lower bound is $N \gg 2^n / n$.
inr N:ℕA:Finset ℕx✝:IsSumDistinctSet A NhN:N ≠ 0hA1:A ⊆ Finset.Icc 1 NhA2:Function.Injective fun x ↦
match x with
| ⟨S, property⟩ => S.sum idkey:2 ^ A.card ≤ A.card * N + 1hc:A.card ≠ 0⊢ 1 / 3 * 2 ^ A.card < ↑N * ↑A.card
nlinarith [show (2 : ℝ) ^ A.card ≤ ↑A.card * ↑N + 1 from by N:ℕA:Finset ℕx✝:IsSumDistinctSet A NhN:N ≠ 0hA1:A ⊆ Finset.Icc 1 NhA2:Function.Injective fun x ↦
match x with
| ⟨S, property⟩ => S.sum idkey:2 ^ A.card ≤ A.card * N + 1hc:A.card ≠ 0⊢ 2 ^ A.card ≤ ↑A.card * ↑N + 1 exact_mod_cast key All goals completed! 🐙,
show (1 : ℝ) ≤ ↑A.card from by N:ℕA:Finset ℕx✝:IsSumDistinctSet A NhN:N ≠ 0hA1:A ⊆ Finset.Icc 1 NhA2:Function.Injective fun x ↦
match x with
| ⟨S, property⟩ => S.sum idkey:2 ^ A.card ≤ A.card * N + 1hc:A.card ≠ 0⊢ 1 ≤ ↑A.card exact_mod_cast Nat.pos_of_ne_zero hc All goals completed! 🐙,
show (1 : ℝ) ≤ (N : ℝ) from by N:ℕA:Finset ℕx✝:IsSumDistinctSet A NhN:N ≠ 0hA1:A ⊆ Finset.Icc 1 NhA2:Function.Injective fun x ↦
match x with
| ⟨S, property⟩ => S.sum idkey:2 ^ A.card ≤ A.card * N + 1hc:A.card ≠ 0⊢ 1 ≤ ↑N exact_mod_cast Nat.pos_of_ne_zero hN All goals completed! 🐙]Erdős and Moser [Er56] proved $$ N \geq (\tfrac{1}{4} - o(1)) \frac{2^n}{\sqrt{n}}. $$
[Er56] Erdős, P., Problems and results in additive number theory. Colloque sur la Th'{E}orie des Nombres, Bruxelles, 1955 (1956), 127-137.
@[category research solved, AMS 5 11]
theorem erdos_1.variants.lb : ∃ (o : ℕ → ℝ) (_ : o =o[atTop] (1 : ℕ → ℝ)),
∀ (N : ℕ) (A : Finset ℕ) (h : IsSumDistinctSet A N),
(1 / 4 - o A.card) * 2 ^ A.card / (A.card : ℝ).sqrt ≤ N := by ⊢ ∃ o,
∃ (_ : o =o[atTop] 1),
∀ (N : ℕ) (A : Finset ℕ), IsSumDistinctSet A N → (1 / 4 - o A.card) * 2 ^ A.card / √↑A.card ≤ ↑N
sorry All goals completed! 🐙A number of improvements of the constant $\frac{1}{4}$ have been given, with the current record $\sqrt{2 / \pi}$ first provided in unpublished work of Elkies and Gleason.
@[category research solved, AMS 5 11]
theorem erdos_1.variants.lb_strong : ∃ (o : ℕ → ℝ) (_ : o =o[atTop] (1 : ℕ → ℝ)),
∀ (N : ℕ) (A : Finset ℕ) (h : IsSumDistinctSet A N),
(√(2 / π) - o A.card) * 2 ^ A.card / (A.card : ℝ).sqrt ≤ N := by ⊢ ∃ o,
∃ (_ : o =o[atTop] 1),
∀ (N : ℕ) (A : Finset ℕ), IsSumDistinctSet A N → (√(2 / π) - o A.card) * 2 ^ A.card / √↑A.card ≤ ↑N
sorry All goals completed! 🐙A finite set of real numbers is said to be sum-distinct if all the subset sums differ by at least $1$.
abbrev IsSumDistinctRealSet (A : Finset ℝ) (N : ℕ) : Prop :=
↑A ⊆ Set.Ioc (0 : ℝ) N ∧ (A.powerset : Set (Finset ℝ)).Pairwise fun S₁ S₂ =>
1 ≤ dist (S₁.sum id) (S₂.sum id)A generalisation of the problem to sets $A \subseteq (0, N]$ of real numbers, such that the subset sums all differ by at least $1$ is proposed in [Er73] and [ErGr80].
[Er73] Erdős, P., Problems and results on combinatorial number theory. A survey of combinatorial theory (Proc. Internat. Sympos., Colorado State Univ., Fort Collins, Colo., 1971) (1973), 117-138.
[ErGr80] Erdős, P. and Graham, R., Old and new problems and results in combinatorial number theory. Monographies de L'Enseignement Mathematique (1980).
@[category research open, AMS 5 11]
theorem erdos_1.variants.real : ∃ C > (0 : ℝ), ∀ (N : ℕ) (A : Finset ℝ)
(_ : IsSumDistinctRealSet A N), N ≠ 0 → C * 2 ^ A.card < N := by ⊢ ∃ C > 0, ∀ (N : ℕ) (A : Finset ℝ), IsSumDistinctRealSet A N → N ≠ 0 → C * 2 ^ A.card < ↑N
sorry All goals completed! 🐙The minimal value of $N$ such that there exists a sum-distinct set with three elements is $4$.
https://oeis.org/A276661
@[category textbook, AMS 5 11]
theorem erdos_1.variants.least_N_3 :
IsLeast { N | ∃ A, IsSumDistinctSet A N ∧ A.card = 3 } 4 := by ⊢ IsLeast {N | ∃ A, IsSumDistinctSet A N ∧ A.card = 3} 4
refine ⟨⟨{1, 2, 4}, ?_⟩, ?_⟩ refine_1 ⊢ IsSumDistinctSet {1, 2, 4} 4 ∧ {1, 2, 4}.card = 3refine_2 ⊢ 4 ∈ lowerBounds {N | ∃ A, IsSumDistinctSet A N ∧ A.card = 3}
· refine_1 ⊢ IsSumDistinctSet {1, 2, 4} 4 ∧ {1, 2, 4}.card = 3 simp refine_1 ⊢ IsSumDistinctSet {1, 2, 4} 4
refine ⟨by ⊢ {1, 2, 4} ⊆ Finset.Icc 1 4 decide All goals completed! 🐙, ?_⟩
let P := Finset.powerset {1, 2, 4} refine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powerset⊢ Function.Injective fun x ↦
match x with
| ⟨S, property⟩ => S.sum id
have : Finset.univ.image (fun p : P ↦ ∑ x ∈ p, x) = {0, 1, 2, 4, 3, 5, 6, 7} := by ⊢ IsLeast {N | ∃ A, IsSumDistinctSet A N ∧ A.card = 3} 4 refine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ Function.Injective fun x ↦
match x with
| ⟨S, property⟩ => S.sum id
refine Finset.ext_iff.mpr (fun n => ?_) P:Finset (Finset ℕ) := {1, 2, 4}.powersetn:ℕ⊢ n ∈ Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ ↔ n ∈ {0, 1, 2, 4, 3, 5, 6, 7} refine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ Function.Injective fun x ↦
match x with
| ⟨S, property⟩ => S.sum id
simp [show P = {{}, {1}, {2}, {4}, {1, 2}, {1, 4}, {2, 4}, {1, 2, 4}} by decide] P:Finset (Finset ℕ) := {1, 2, 4}.powersetn:ℕ⊢ 0 = n ∨ 1 = n ∨ 2 = n ∨ 4 = n ∨ 3 = n ∨ 5 = n ∨ 6 = n ∨ 7 = n ↔
n = 0 ∨ n = 1 ∨ n = 2 ∨ n = 4 ∨ n = 3 ∨ n = 5 ∨ n = 6 ∨ n = 7refine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ Function.Injective fun x ↦
match x with
| ⟨S, property⟩ => S.sum id
omegarefine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ Function.Injective fun x ↦
match x with
| ⟨S, property⟩ => S.sum idrefine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ Function.Injective fun x ↦
match x with
| ⟨S, property⟩ => S.sum id
rw [← Set.injOn_univ, refine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ Set.InjOn
(fun x ↦
match x with
| ⟨S, property⟩ => S.sum id)
Set.univ refine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ Set.InjOn
(fun x ↦
match x with
| ⟨S, property⟩ => S.sum id)
↑Finset.univ ← Finset.coe_univ refine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ Set.InjOn
(fun x ↦
match x with
| ⟨S, property⟩ => S.sum id)
↑Finset.univrefine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ Set.InjOn
(fun x ↦
match x with
| ⟨S, property⟩ => S.sum id)
↑Finset.univ]refine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ Set.InjOn
(fun x ↦
match x with
| ⟨S, property⟩ => S.sum id)
↑Finset.univ
have : (Finset.univ.image (fun p : P ↦ ∑ x ∈ p.1, x)).card = (Finset.univ (α := P)).card := by ⊢ IsLeast {N | ∃ A, IsSumDistinctSet A N ∧ A.card = 3} 4 refine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis✝:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}this:(Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ).card = Finset.univ.card⊢ Set.InjOn
(fun x ↦
match x with
| ⟨S, property⟩ => S.sum id)
↑Finset.univ
rw [this P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ {0, 1, 2, 4, 3, 5, 6, 7}.card = Finset.univ.card P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ {0, 1, 2, 4, 3, 5, 6, 7}.card = Finset.univ.cardrefine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis✝:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}this:(Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ).card = Finset.univ.card⊢ Set.InjOn
(fun x ↦
match x with
| ⟨S, property⟩ => S.sum id)
↑Finset.univ] P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}⊢ {0, 1, 2, 4, 3, 5, 6, 7}.card = Finset.univ.cardrefine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis✝:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}this:(Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ).card = Finset.univ.card⊢ Set.InjOn
(fun x ↦
match x with
| ⟨S, property⟩ => S.sum id)
↑Finset.univ; aesoprefine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis✝:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}this:(Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ).card = Finset.univ.card⊢ Set.InjOn
(fun x ↦
match x with
| ⟨S, property⟩ => S.sum id)
↑Finset.univrefine_1 P:Finset (Finset ℕ) := {1, 2, 4}.powersetthis✝:Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ = {0, 1, 2, 4, 3, 5, 6, 7}this:(Finset.image (fun p ↦ ∑ x ∈ ↑p, x) Finset.univ).card = Finset.univ.card⊢ Set.InjOn
(fun x ↦
match x with
| ⟨S, property⟩ => S.sum id)
↑Finset.univ
exact Finset.injOn_of_card_image_eq this All goals completed! 🐙
· refine_2 ⊢ 4 ∈ lowerBounds {N | ∃ A, IsSumDistinctSet A N ∧ A.card = 3} simp [mem_lowerBounds] refine_2 ⊢ ∀ (x : ℕ), ∀ x_1 ⊆ Finset.Icc 1 x, (Function.Injective fun x ↦ ∑ x ∈ ↑x, x) → x_1.card = 3 → 4 ≤ x
intro n S h h_inj hcard3 refine_2 n:ℕS:Finset ℕh:S ⊆ Finset.Icc 1 nh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3⊢ 4 ≤ n
by_contra hn refine_2 n:ℕS:Finset ℕh:S ⊆ Finset.Icc 1 nh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3hn:¬4 ≤ n⊢ False
interval_cases n refine_2.«0» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 0hn:¬4 ≤ 0⊢ Falserefine_2.«1» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 1hn:¬4 ≤ 1⊢ Falserefine_2.«2» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 2hn:¬4 ≤ 2⊢ Falserefine_2.«3» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ False; aesop refine_2.«1» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 1hn:¬4 ≤ 1⊢ Falserefine_2.«2» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 2hn:¬4 ≤ 2⊢ Falserefine_2.«3» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ False; aesop refine_2.«2» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 2hn:¬4 ≤ 2⊢ Falserefine_2.«3» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ False
· refine_2.«2» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 2hn:¬4 ≤ 2⊢ False have := Finset.card_le_card h refine_2.«2» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 2hn:¬4 ≤ 2this:S.card ≤ (Finset.Icc 1 2).card⊢ False
aesop All goals completed! 🐙
· refine_2.«3» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ False absurd h_inj refine_2.«3» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ ¬Function.Injective fun x ↦ ∑ x ∈ ↑x, x
rw [(Finset.subset_iff_eq_of_card_le (Nat.le_of_eq (by n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ (Finset.Icc 1 3).card = S.card refine_2.«3» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ ¬Function.Injective fun x ↦ ∑ x ∈ ↑x, x rw [hcard3 n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ (Finset.Icc 1 3).card = 3 n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ (Finset.Icc 1 3).card = 3refine_2.«3» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ ¬Function.Injective fun x ↦ ∑ x ∈ ↑x, x] n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ (Finset.Icc 1 3).card = 3refine_2.«3» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ ¬Function.Injective fun x ↦ ∑ x ∈ ↑x, x; decide All goals completed! 🐙refine_2.«3» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ ¬Function.Injective fun x ↦ ∑ x ∈ ↑x, x))).mp h]refine_2.«3» n:ℕS:Finset ℕh_inj:Function.Injective fun x ↦ ∑ x ∈ ↑x, xhcard3:S.card = 3h:S ⊆ Finset.Icc 1 3hn:¬4 ≤ 3⊢ ¬Function.Injective fun x ↦ ∑ x ∈ ↑x, x
decide All goals completed! 🐙The minimal value of $N$ such that there exists a sum-distinct set with five elements is $13$.
https://oeis.org/A276661
@[category research solved, AMS 5 11]
theorem erdos_1.variants.least_N_5 :
IsLeast { N | ∃ A, IsSumDistinctSet A N ∧ A.card = 5 } 13 := by ⊢ IsLeast {N | ∃ A, IsSumDistinctSet A N ∧ A.card = 5} 13
sorry All goals completed! 🐙The minimal value of $N$ such that there exists a sum-distinct set with nine elements is $161$.
https://oeis.org/A276661
@[category research solved, AMS 5 11]
theorem erdos_1.variants.least_N_9 :
IsLeast { N | ∃ A, IsSumDistinctSet A N ∧ A.card = 9 } 161 := by ⊢ IsLeast {N | ∃ A, IsSumDistinctSet A N ∧ A.card = 9} 161
sorry All goals completed! 🐙end Erdos1