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.
37 lines
436 B
Plaintext
37 lines
436 B
Plaintext
import NNG.Metadata
|
|
import NNG.MyNat.Addition
|
|
import Std.Tactic.RCases
|
|
import NNG.MyNat.Theorems.Proposition
|
|
|
|
|
|
|
|
Game "NNG"
|
|
World "AdvProposition"
|
|
Level 9
|
|
Title ""
|
|
|
|
open MyNat
|
|
|
|
Introduction
|
|
"
|
|
|
|
"
|
|
|
|
Statement contra
|
|
""
|
|
(P Q : Prop) : (P ∧ ¬ P) → Q := by
|
|
intro h
|
|
rcases h with ⟨p, np ⟩
|
|
contradiction
|
|
-- rw [not_iff_imp_false] at np
|
|
-- exfalso
|
|
-- apply np
|
|
-- exact p
|
|
|
|
NewTactic exfalso contradiction
|
|
|
|
Conclusion
|
|
"
|
|
|
|
"
|