9 lines
427 B
Text
9 lines
427 B
Text
def Set (α : Type u) := α → Prop
|
||
def mem (a : α) (s : Set α) := s a
|
||
def image (f : α → β) (s : Set α) : Set β := fun b => ∃ a, mem a s ∧ f a = b
|
||
|
||
@[congr] theorem image_congr {f g : α → β} {s : Set α} (h : ∀ a, mem a s → f a = g a) : image f s = image g s :=
|
||
sorry
|
||
|
||
example {Γ: Set Nat}: (image (Nat.succ ∘ Nat.succ) Γ) = (image (fun a => a.succ.succ) Γ) := by
|
||
simp only [Function.comp_apply]
|