pull/54/head
Jon Eugster 3 years ago
parent a4623a8241
commit 6cb53965c2

@ -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

@ -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
Loading…
Cancel
Save