@@ -180,7 +180,7 @@ theorem dlookup_cons_ne (l) {a} : ∀ s : Sigma β, a ≠ s.1 → dlookup a (s :
180180theorem dlookup_isSome {a : α} {l : List (Sigma β)} : (dlookup a l).isSome ↔ a ∈ l.keys := by
181181 induction l with
182182 | nil => simp
183- | cons s _ _ => by_cases a = s.fst <;> grind +revert
183+ | cons s _ _ => by_cases a = s.fst <;> grind
184184
185185theorem dlookup_eq_none {a : α} {l : List (Sigma β)} : dlookup a l = none ↔ a ∉ l.keys := by
186186 simp [← dlookup_isSome, Option.isNone_iff_eq_none]
@@ -189,7 +189,7 @@ theorem of_mem_dlookup {a : α} {b : β a} {l : List (Sigma β)} :
189189 b ∈ dlookup a l → Sigma.mk a b ∈ l := by
190190 induction l with
191191 | nil => grind
192- | cons s _ _ => by_cases a = s.fst <;> grind +revert
192+ | cons s _ _ => by_cases a = s.fst <;> grind
193193
194194theorem mem_dlookup {a} {b : β a} {l : List (Sigma β)} (nd : l.NodupKeys) (h : Sigma.mk a b ∈ l) :
195195 b ∈ dlookup a l := by
@@ -201,7 +201,7 @@ theorem map_dlookup_eq_find (a : α) (l : List (Sigma β)) :
201201 (dlookup a l).map (Sigma.mk a) = find? (fun s => a = s.1 ) l := by
202202 induction l with
203203 | nil => grind
204- | cons s _ _ => by_cases s.fst = a <;> grind +revert
204+ | cons s _ _ => by_cases s.fst = a <;> grind
205205
206206theorem mem_dlookup_iff {a : α} {b : β a} {l : List (Sigma β)} (nd : l.NodupKeys) :
207207 b ∈ dlookup a l ↔ Sigma.mk a b ∈ l :=
@@ -223,7 +223,7 @@ theorem dlookup_map (l : List (Sigma β))
223223 | nil => grind
224224 | cons s _ _ =>
225225 have (h : a ≠ s.fst) : ¬ f a = (⟨f s.fst, g s.fst s.snd⟩ : Sigma β').fst := fun he => h <| hf he
226- by_cases a = s.fst <;> grind +revert [Sigma.map]
226+ by_cases a = s.fst <;> grind [Sigma.map]
227227
228228theorem dlookup_map₁ {β : Type v} (l : List (Σ _ : α, β))
229229 {f : α → α'} (hf : Function.Injective f) (a : α) :
@@ -261,7 +261,7 @@ theorem dlookup_append (l₁ l₂ : List (Sigma β)) (a : α) :
261261 (l₁ ++ l₂).dlookup a = (l₁.dlookup a).or (l₂.dlookup a) := by
262262 induction l₁ with
263263 | nil => rfl
264- | cons s _ _ => by_cases a = s.fst <;> grind +revert
264+ | cons s _ _ => by_cases a = s.fst <;> grind
265265
266266theorem sublist_dlookup {l₁ l₂ : List (Sigma β)} {a : α} {b : β a}
267267 (nd₂ : l₂.NodupKeys) (s : l₁ <+ l₂) (mem : b ∈ l₁.dlookup a) : b ∈ l₂.dlookup a := by
0 commit comments