This commit is contained in:
Jon Eugster
2023-03-23 17:00:36 +01:00
parent a4623a8241
commit 6cb53965c2
3 changed files with 5 additions and 24 deletions
@@ -2,7 +2,6 @@ import TestGame.Metadata
import Mathlib.Init.Set
import Mathlib.Tactic.Tauto
import Mathlib
set_option tactic.hygienic false
@@ -3,6 +3,7 @@ import TestGame.Levels.SetTheory.L03_Subset
import Mathlib.Init.Set
import Mathlib.Tactic.Tauto
import Mathlib
set_option tactic.hygienic false
@@ -48,10 +49,11 @@ Statement subset_empty_iff {A : Type _} (s : Set A) :
Hint "**Du**: Ja, die einzige Teilmenge der leeren Menge ist die leere Menge.
Das ist doch eine Tautologie?
**Robo**: Naja nicht ganz, "
**Robo**: Ja schon, aber zuerst einmal explizit."
Hint (hidden := true) "**Robo**: Fang doch einmal mit `constructor` an."
constructor
intro h
Hint "**Robo**: "
apply Subset.antisymm
assumption
simp only [empty_subset]
@@ -60,8 +62,7 @@ Statement subset_empty_iff {A : Type _} (s : Set A) :
rcases a with ⟨h₁, h₂⟩
assumption
NewTactic constructor intro rw assumption rcases simp tauto trivial
DisabledTactic tauto
NewLemma Subset.antisymm Subset.antisymm_iff empty_subset
end MySet
-19
View File
@@ -1,19 +0,0 @@
axiom MyNat : Type
--notation "ℕ" => MyNat
--axiom zero : ℕ
axiom succ : ℕ → ℕ
@[instance] axiom MyOfNat (n : Nat) : OfNat ℕ n
@[instance] axiom myAddition : HAdd ℕ ℕ ℕ
@[instance] axiom myMultiplication : HMul ℕ ℕ ℕ
axiom add_zero : ∀ a : ℕ, a + 0 = a
axiom add_succ : ∀ a b : ℕ, a + succ b = succ (a + b)
@[elab_as_elim] axiom myInduction {P : ℕ → Prop} (n : ℕ) (h₀ : P 0) (h : ∀ n, P n → P (succ n)) : P n