chore(library/init/data/list/lemmas): ._ ==> _
This commit is contained in:
parent
2c8a901df9
commit
445cd8f0ae
1 changed files with 3 additions and 3 deletions
|
|
@ -205,9 +205,9 @@ inductive sublist : list α → list α → Prop
|
|||
infix ` <+ `:50 := sublist
|
||||
|
||||
lemma length_le_of_sublist : ∀ {l₁ l₂ : list α}, l₁ <+ l₂ → length l₁ ≤ length l₂
|
||||
| ._ ._ sublist.slnil := le_refl 0
|
||||
| ._ ._ (sublist.cons l₁ l₂ a s) := le_succ_of_le (length_le_of_sublist s)
|
||||
| ._ ._ (sublist.cons2 l₁ l₂ a s) := succ_le_succ (length_le_of_sublist s)
|
||||
| _ _ sublist.slnil := le_refl 0
|
||||
| _ _ (sublist.cons l₁ l₂ a s) := le_succ_of_le (length_le_of_sublist s)
|
||||
| _ _ (sublist.cons2 l₁ l₂ a s) := succ_le_succ (length_le_of_sublist s)
|
||||
|
||||
/- filter -/
|
||||
@[simp] theorem filter_nil (p : α → Prop) [h : decidable_pred p] : filter p [] = [] := rfl
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue