Demostraciones de "f[s] ∩ t = f[s ∩ f⁻¹[t]]"
Demostrar con Lean4 y con Isabelle/HOL que \[ f[s] ∩ t = f[s ∩ f⁻¹[t]] \]
Para ello, completar la siguiente teoría de Lean4:
import Mathlib.Data.Set.Function import Mathlib.Tactic open Set variable {α β : Type _} variable (f : α → β) variable (s : Set α) variable (t : Set β) example : (f '' s) ∩ t = f '' (s ∩ f ⁻¹' t) := by sorry
y la siguiente teoría de Isabelle/HOL:
theory Interseccion_con_la_imagen imports Main begin lemma "(f ` s) ∩ v = f ` (s ∩ f -` v)" sorry end