exact finite_comprehension₁! this ⟨log s + exp ((2 * log s + log a + 1)^2) + 1, by
  rintro x ⟨v, hv, u, hu, rfl⟩
  exact lt_succ_iff_le.mpr <| seqCons_le (le_log_of_mem hu) (le_log_of_mem hv)⟩
M : Type u_1
inst✝⁵ : Zero M
inst✝⁴ : One M
inst✝³ : Add M
inst✝² : Mul M
inst✝¹ : LT M
inst✝ : M ⊧ₘ* 𝐈𝚺₁
s a : M
this : 𝚺₁-Predicate fun x => ∃ v ∈ s, ∃ u ∈ a, x = v ⁀' u
⊢ ∃! t, ∀ (x : M), x ∈ t ↔ ∃ v ∈ s, ∃ u ∈ a, x = v ⁀' u
no goals