rw [Order.lex_impl]
n✝ : ℕ
v₁ v₂ : Vector ℕ n✝
h✝ : algebra.Order.ble_lex_impl v₁ v₂ = true
m : ℕ
a b : Vector ℕ m
h : algebra.Order.ble_lex_impl a b = true
⊢ lex_impl a b
n✝ : ℕ
v₁ v₂ : Vector ℕ n✝
h✝ : algebra.Order.ble_lex_impl v₁ v₂ = true
m : ℕ
a b : Vector ℕ m
h : algebra.Order.ble_lex_impl a b = true
⊢ match a, b with
  | { val := [], property := property }, { val := [], property := property_1 } => True
  | { val := x :: tail, property := property }, { val := y :: tail_1, property := property_1 } =>
    if x = y then lex_impl (Vector.tail a) (Vector.tail b) else x ≤ y