318e455d96
This doesn't completely resolve the danger (only relevant in `prelude` files) of importing `Init.Data.List.Basic` but not `Init.Data.List.Impl` and thereby not having `@[csimp]` lemmas installed for some list operations. I'm going to address this better while working on `Array`.
24 lines
869 B
Text
24 lines
869 B
Text
prelude
|
||
import Init.MetaTypes
|
||
import Init.Data.List.Lemmas
|
||
|
||
attribute [-simp] List.map_map -- Turn off the global simp lemma so we can turn on and off the local version.
|
||
|
||
@[simp] theorem map_comp_map (f : α → β) (g : β → γ) : List.map g ∘ List.map f = List.map (g ∘ f) :=
|
||
sorry
|
||
|
||
theorem map_map (f : α → β) (g : β → γ) (xs : List α) : (xs.map f |>.map g) = xs.map (g ∘ f) :=
|
||
sorry
|
||
|
||
theorem ex1 (f : Nat → Nat) (xs : List Nat) : (xs.map f |>.map f) = xs.map (f ∘ f) := by
|
||
fail_if_success simp
|
||
simp [map_map]
|
||
done
|
||
|
||
theorem ex2 (f : Nat → Nat) : List.map f ∘ List.map f ∘ List.map f = List.map (f ∘ f ∘ f) := by
|
||
simp
|
||
|
||
attribute [simp] map_map
|
||
|
||
theorem ex3 (f : Nat → Nat) (xs : List Nat) : (xs.map f |>.map f |>.map f) = xs.map (fun x => f (f (f x))) := by
|
||
simp (config := { unfoldPartialApp := true }) [Function.comp]
|