Sequence

def LO.ISigma1.Seq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (s : V) : Prop

Equations

• LO.ISigma1.Seq s = (LO.ISigma1.IsMapping s ∧ ∃ (l : V), LO.ISigma1.domain s = LO.ISigma1.under l)

def LO.ISigma1.Seq.isMapping {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (h : Seq s) : IsMapping s

Equations

• ⋯ = ⋯

def LO.FirstOrder.Arithmetic.seqDef : 𝚺₀.Semisentence 1

Equations

• One or more equations did not get rendered due to their size.

theorem LO.ISigma1.seq_defined {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : 𝚺₀-Predicate Seq via FirstOrder.Arithmetic.seqDef

@[simp]

theorem LO.ISigma1.seq_defined_iff {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (v : Fin 1 → V) : V ⊧/v ↑FirstOrder.Arithmetic.seqDef ↔ Seq (v 0)

instance LO.ISigma1.seq_definable {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : 𝚺₀-Predicate Seq

instance LO.ISigma1.seq_definable' {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (ℌ : FirstOrder.Arithmetic.HierarchySymbol) : ℌ-Predicate Seq

def LO.ISigma1.«first_order_formula:Seq_» : Lean.ParserDescr

Equations

• One or more equations did not get rendered due to their size.

theorem LO.ISigma1.lh_exists_uniq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (s : V) : ∃! l : V, (Seq s → domain s = under l) ∧ (¬Seq s → l = 0)

noncomputable def LO.ISigma1.lh {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (s : V) : V

Equations

• LO.ISigma1.lh s = Classical.choose! ⋯

theorem LO.ISigma1.lh_prop {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (s : V) : (Seq s → domain s = under (lh s)) ∧ (¬Seq s → lh s = 0)

theorem LO.ISigma1.lh_prop_of_not_seq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (h : ¬Seq s) : lh s = 0

theorem LO.ISigma1.Seq.domain_eq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (h : Seq s) : domain s = under (lh s)

@[simp]

theorem LO.ISigma1.lh_bound {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (s : V) : lh s ≤ 2 * s

def LO.FirstOrder.Arithmetic.lhDef : 𝚺₀.Semisentence 2

Equations

• One or more equations did not get rendered due to their size.

theorem LO.ISigma1.lh_defined {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : 𝚺₀-Function₁ lh via FirstOrder.Arithmetic.lhDef

@[simp]

theorem LO.ISigma1.lh_defined_iff {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (v : Fin 2 → V) : V ⊧/v ↑FirstOrder.Arithmetic.lhDef ↔ v 0 = lh (v 1)

instance LO.ISigma1.lh_definable {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : 𝚺₀-Function₁ lh

instance LO.ISigma1.lh_definable' {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (ℌ : FirstOrder.Arithmetic.HierarchySymbol) : ℌ-Function₁ lh

instance LO.ISigma1.instBounded₁Lh {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : FirstOrder.Arithmetic.Bounded₁ lh

theorem LO.ISigma1.Seq.exists {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (h : Seq s) {x : V} (hx : x < lh s) : ∃ (y : V), ⟪x, y⟫ ∈ s

theorem LO.ISigma1.Seq.nth_exists_uniq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (h : Seq s) {x : V} (hx : x < lh s) : ∃! y : V, ⟪x, y⟫ ∈ s

noncomputable def LO.ISigma1.Seq.nth {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (h : Seq s) {x : V} (hx : x < lh s) : V

Equations

• h.nth hx = Classical.choose! ⋯

@[simp]

theorem LO.ISigma1.Seq.nth_mem {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (h : Seq s) {x : V} (hx : x < lh s) : ⟪x, h.nth hx⟫ ∈ s

theorem LO.ISigma1.Seq.nth_uniq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (h : Seq s) {x y : V} (hx : x < lh s) (hy : ⟪x, y⟫ ∈ s) : y = h.nth hx

@[simp]

theorem LO.ISigma1.Seq.nth_lt {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (h : Seq s) {x : V} (hx : x < lh s) : h.nth hx < s

theorem LO.ISigma1.Seq.lh_eq_of {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (H : Seq s) {l : V} (h : domain s = under l) : lh s = l

theorem LO.ISigma1.Seq.lt_lh_iff {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (h : Seq s) {i : V} : i < lh s ↔ i ∈ domain s

theorem LO.ISigma1.Seq.lt_lh_of_mem {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (h : Seq s) {i x : V} (hix : ⟪i, x⟫ ∈ s) : i < lh s

noncomputable def LO.ISigma1.seqCons {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (s x : V) : V

Equations

• s ⁀' x = insert ⟪LO.ISigma1.lh s, x⟫ s

def LO.ISigma1.znth_existsUnique {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (s i : V) : ∃! x : V, (Seq s ∧ i < lh s → ⟪i, x⟫ ∈ s) ∧ (¬(Seq s ∧ i < lh s) → x = 0)

Equations

• ⋯ = ⋯

noncomputable def LO.ISigma1.znth {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (s i : V) : V

Equations

• LO.ISigma1.znth s i = Classical.choose! ⋯

theorem LO.ISigma1.Seq.znth {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s i : V} (h : Seq s) (hi : i < lh s) : ⟪i, znth s i⟫ ∈ s

theorem LO.ISigma1.Seq.znth_eq_of_mem {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {x s i : V} (h : Seq s) (hi : ⟪i, x⟫ ∈ s) : znth s i = x

theorem LO.ISigma1.znth_prop_not {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s i : V} (h : ¬Seq s ∨ lh s ≤ i) : znth s i = 0

def LO.FirstOrder.Arithmetic.znthDef : 𝚺₀.Semisentence 3

Equations

• One or more equations did not get rendered due to their size.

theorem LO.ISigma1.znth_defined {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : 𝚺₀-Function₂ znth via FirstOrder.Arithmetic.znthDef

@[simp]

theorem LO.ISigma1.eval_znthDef {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (v : Fin 3 → V) : V ⊧/v ↑FirstOrder.Arithmetic.znthDef ↔ v 0 = znth (v 1) (v 2)

instance LO.ISigma1.znth_definable {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : 𝚺₀-Function₂ znth

instance LO.ISigma1.znth_definable' {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (ℌ : FirstOrder.Arithmetic.HierarchySymbol) : ℌ-Function₂ znth

def LO.ISigma1.«term_⁀'_» : Lean.TrailingParserDescr

Equations

• LO.ISigma1.«term_⁀'_» = Lean.ParserDescr.trailingNode `LO.ISigma1.«term_⁀'_» 67 68 (Lean.ParserDescr.binary `andthen (Lean.ParserDescr.symbol " ⁀' ") (Lean.ParserDescr.cat `term 67))

@[simp]

theorem LO.ISigma1.seq_empty {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : Seq ∅

@[simp]

theorem LO.ISigma1.lh_empty {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : lh ∅ = 0

theorem LO.ISigma1.Seq.isempty_of_lh_eq_zero {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (Hs : Seq s) (h : lh s = 0) : s = ∅

@[simp]

theorem LO.ISigma1.Seq.subset_seqCons {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (s x : V) : s ⊆ s ⁀' x

theorem LO.ISigma1.Seq.lt_seqCons {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (hs : Seq s) (x : V) : s < s ⁀' x

@[simp]

theorem LO.ISigma1.Seq.mem_seqCons {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (s x : V) : ⟪lh s, x⟫ ∈ s ⁀' x

theorem LO.ISigma1.Seq.seqCons {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (h : Seq s) (x : V) : Seq (s ⁀' x)

@[simp]

theorem LO.ISigma1.Seq.lh_seqCons {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (x : V) {s : V} (h : Seq s) : lh (s ⁀' x) = lh s + 1

theorem LO.ISigma1.mem_seqCons_iff {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {i x z s : V} : ⟪i, x⟫ ∈ s ⁀' z ↔ i = lh s ∧ x = z ∨ ⟪i, x⟫ ∈ s

@[simp]

theorem LO.ISigma1.lh_mem_seqCons {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (s z : V) : ⟪lh s, z⟫ ∈ s ⁀' z

@[simp]

theorem LO.ISigma1.lh_mem_seqCons_iff {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s x z : V} (H : Seq s) : ⟪lh s, x⟫ ∈ s ⁀' z ↔ x = z

theorem LO.ISigma1.Seq.mem_seqCons_iff_of_lt {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {i s x z : V} (hi : i < lh s) : ⟪i, x⟫ ∈ s ⁀' z ↔ ⟪i, x⟫ ∈ s

@[simp]

theorem LO.ISigma1.lh_not_mem {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (Ss : Seq s) (x : V) : ⟪lh s, x⟫ ∉ s

theorem LO.ISigma1.seqCons_graph {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (t x s : V) : t = s ⁀' x ↔ ∃ l ≤ 2 * s, l = lh s ∧ ∃ p ≤ (2 * s + x + 1) ^ 2, p = ⟪l, x⟫ ∧ t = insert p s

def LO.FirstOrder.Arithmetic.seqConsDef : 𝚺₀.Semisentence 3

Equations

• One or more equations did not get rendered due to their size.

theorem LO.ISigma1.seqCons_defined {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : 𝚺₀-Function₂ seqCons via FirstOrder.Arithmetic.seqConsDef

@[simp]

theorem LO.ISigma1.seqCons_defined_iff {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (v : Fin 3 → V) : V ⊧/v ↑FirstOrder.Arithmetic.seqConsDef ↔ v 0 = v 1 ⁀' v 2

instance LO.ISigma1.seqCons_definable {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : 𝚺₀-Function₂ seqCons

instance LO.ISigma1.seqCons_definable' {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (ℌ : FirstOrder.Arithmetic.HierarchySymbol) : ℌ-Function₂ seqCons

@[simp]

theorem LO.ISigma1.natCast_empty {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : ↑∅ = ∅

theorem LO.ISigma1.seqCons_absolute {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (s a : ℕ) : ↑(s ⁀' a) = ↑s ⁀' ↑a

theorem LO.ISigma1.Seq.restr {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (H : Seq s) {i : V} (hi : i ≤ lh s) : Seq (ISigma1.restr s (under i))

theorem LO.ISigma1.Seq.restr_lh {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} (H : Seq s) {i : V} (hi : i ≤ lh s) : lh (ISigma1.restr s (under i)) = i

theorem LO.ISigma1.domain_bitRemove_of_isMapping_of_mem {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {x y s : V} (hs : IsMapping s) (hxy : ⟪x, y⟫ ∈ s) : domain (bitRemove ⟪x, y⟫ s) = bitRemove x (domain s)

theorem LO.ISigma1.Seq.eq_of_eq_of_subset {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s₁ s₂ : V} (H₁ : Seq s₁) (H₂ : Seq s₂) (hl : lh s₁ = lh s₂) (h : s₁ ⊆ s₂) : s₁ = s₂

theorem LO.ISigma1.subset_pair {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s t : V} (h : ∀ (i x : V), ⟪i, x⟫ ∈ s → ⟪i, x⟫ ∈ t) : s ⊆ t

theorem LO.ISigma1.Seq.lh_ext {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s₁ s₂ : V} (H₁ : Seq s₁) (H₂ : Seq s₂) (h : lh s₁ = lh s₂) (H : ∀ (i x₁ x₂ : V), ⟪i, x₁⟫ ∈ s₁ → ⟪i, x₂⟫ ∈ s₂ → x₁ = x₂) : s₁ = s₂

@[simp]

theorem LO.ISigma1.Seq.seqCons_ext {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {a₁ a₂ s₁ s₂ : V} (H₁ : Seq s₁) (H₂ : Seq s₂) : s₁ ⁀' a₁ = s₂ ⁀' a₂ ↔ a₁ = a₂ ∧ s₁ = s₂

theorem LO.ISigma1.ne_zero_iff_one_le {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {a : V} : a ≠ 0 ↔ 1 ≤ a

TODO: move to Lemmata.lean

theorem LO.ISigma1.Seq.cases_iff {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} : Seq s ↔ s = ∅ ∨ ∃ (x : V) (s' : V), Seq s' ∧ s = s' ⁀' x

theorem LO.ISigma1.Seq.cases {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {s : V} : Seq s → s = ∅ ∨ ∃ (x : V) (s' : V), Seq s' ∧ s = s' ⁀' x

Alias of the forward direction of LO.ISigma1.Seq.cases_iff.

theorem LO.ISigma1.seq_induction {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (Γ : SigmaPiDelta) {P : V → Prop} (hP : { Γ := Γ, rank := 1 }-Predicate P) (hnil : P ∅) (hcons : ∀ (s x : V), Seq s → P s → P (s ⁀' x)) {s : V} : Seq s → P s

def LO.ISigma1.«term!⟦_⟧» : Lean.ParserDescr

!⟦x, y, z, ...⟧ notation for Seq

Equations

• One or more equations did not get rendered due to their size.

def LO.ISigma1.vecConsUnexpander : Lean.PrettyPrinter.Unexpander

Equations

• One or more equations did not get rendered due to their size.

@[simp]

theorem LO.ISigma1.singleton_seq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (x : V) : Seq !⟦x⟧

@[simp]

theorem LO.ISigma1.doubleton_seq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (x y : V) : Seq !⟦x, y⟧

@[simp]

theorem LO.ISigma1.mem_singleton_seq_iff {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (x y : V) : ⟪0, x⟫ ∈ !⟦y⟧ ↔ x = y

def LO.FirstOrder.Arithmetic.mkSeq₁Def : 𝚺₀.Semisentence 2

Equations

• One or more equations did not get rendered due to their size.

theorem LO.ISigma1.mkSeq₁_defined {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : 𝚺₀-Function₁ fun (x : V) => !⟦x⟧ via FirstOrder.Arithmetic.mkSeq₁Def

@[simp]

theorem LO.ISigma1.eval_mkSeq₁Def {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (v : Fin 2 → V) : V ⊧/v ↑FirstOrder.Arithmetic.mkSeq₁Def ↔ v 0 = !⟦v 1⟧

instance LO.ISigma1.mkSeq₁_definable {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : 𝚺₀-Function₁ fun (x : V) => !⟦x⟧

instance LO.ISigma1.mkSeq₁_definable' {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (Γ : FirstOrder.Arithmetic.HierarchySymbol) : Γ-Function₁ fun (x : V) => !⟦x⟧

def LO.FirstOrder.Arithmetic.mkSeq₂Def : 𝚺₁.Semisentence 3

Equations

• One or more equations did not get rendered due to their size.

theorem LO.ISigma1.mkSeq₂_defined {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : 𝚺₁-Function₂ fun (x y : V) => !⟦x, y⟧ via FirstOrder.Arithmetic.mkSeq₂Def

@[simp]

theorem LO.ISigma1.eval_mkSeq₂Def {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (v : Fin 3 → V) : V ⊧/v ↑FirstOrder.Arithmetic.mkSeq₂Def ↔ v 0 = !⟦v 1, v 2⟧

instance LO.ISigma1.mkSeq₂_definable {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : 𝚺₁-Function₂ fun (x y : V) => !⟦x, y⟧

instance LO.ISigma1.mkSeq₂_definable' {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] (Γ : SigmaPiDelta) (m : ℕ) : { Γ := Γ, rank := m + 1 }-Function₂ fun (x y : V) => !⟦x, y⟧

theorem LO.ISigma1.sigmaOne_skolem_seq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {R : V → V → Prop} (hP : 𝚺₁-Relation R) {l : V} (H : ∀ x < l, ∃ (y : V), R x y) : ∃ (s : V), Seq s ∧ lh s = l ∧ ∀ (i x : V), ⟪i, x⟫ ∈ s → R i x

theorem LO.ISigma1.sigmaOne_skolem_seq! {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {R : V → V → Prop} (hP : 𝚺₁-Relation R) {l : V} (H : ∀ x < l, ∃! y : V, R x y) : ∃! s : V, Seq s ∧ lh s = l ∧ ∀ (i x : V), ⟪i, x⟫ ∈ s → R i x

noncomputable def LO.ISigma1.vecToSeq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {n : ℕ} : (Fin n → V) → V

Equations

• LO.ISigma1.vecToSeq x_2 = ∅
• LO.ISigma1.vecToSeq v = (LO.ISigma1.vecToSeq fun (x : Fin n) => v x.castSucc) ⁀' v (Fin.last n)

@[simp]

theorem LO.ISigma1.vecToSeq_nil {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] : vecToSeq ![] = ∅

@[simp]

theorem LO.ISigma1.vecToSeq_vecCons {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {n : ℕ} (v : Fin n → V) (a : V) : vecToSeq (v <: a) = vecToSeq v ⁀' a

@[simp]

theorem LO.ISigma1.vecToSeq_seq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {n : ℕ} (v : Fin n → V) : Seq (vecToSeq v)

@[simp]

theorem LO.ISigma1.lh_vecToSeq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {n : ℕ} (v : Fin n → V) : lh (vecToSeq v) = ↑n

theorem LO.ISigma1.mem_vectoSeq {V : Type u_1} [ORingStruc V] [V ⊧ₘ* 𝗜𝚺₁] {n : ℕ} (v : Fin n → V) (i : Fin n) : ⟪↑↑i, v i⟫ ∈ vecToSeq v