You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
851 B
Plaintext
35 lines
851 B
Plaintext
import Adam.Metadata
|
|
import Mathlib.Tactic.Tauto
|
|
|
|
set_option tactic.hygienic false
|
|
|
|
Game "Adam"
|
|
World "Implication"
|
|
Level 1
|
|
|
|
Title "Intro"
|
|
|
|
Introduction
|
|
"
|
|
**Operationsleiter**: Sagt mal, könnt ihr mir hier weiterhelfen?
|
|
"
|
|
|
|
Statement (A B : Prop) (hb : B) : A → (A ∧ B) := by
|
|
Hint "**Du**: Einen Moment, das ist eine Implikation (`\\to`),
|
|
also `A` impliziert `A und B`, soweit so gut, also eine Tautologie.
|
|
|
|
**Robo**: Du hast recht, eigentlich könnte man `tauto` sagen,
|
|
aber das scheinen die hier tauto nicht zu verstehen.
|
|
Implikationen kannst du aber mit `intro h` angehen."
|
|
intro hA
|
|
Hint "**Du**: Jetzt habe ich also angenommen, dass `A` wahr ist und muss `A ∧ B` zeigen,
|
|
das kennen wir ja schon."
|
|
constructor
|
|
assumption
|
|
assumption
|
|
|
|
Conclusion "Der Operationsleiter nickt bedacht."
|
|
|
|
NewTactic intro
|
|
DisabledTactic tauto
|