Demostraciones de "s ∩ (s ∪ t) = s"
Demostrar con Lean4 y con Isabelle/HOL que \[ s ∩ (s ∪ t) = s \]
Para ello, completar la siguiente teoría de Lean4:
import Mathlib.Data.Set.Basic import Mathlib.Tactic open Set variable {α : Type} variable (s t : Set α) example : s ∩ (s ∪ t) = s := by sorry
y la siguiente teoría de Isabelle/HOL:
theory Interseccion_con_su_union imports Main begin lemma "s ∩ (s ∪ t) = s" oops wnd