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.
31 lines
315 B
Plaintext
31 lines
315 B
Plaintext
2 years ago
|
import NNG.Metadata
|
||
|
|
import NNG.MyNat.Addition
|
||
|
|
|
||
|
|
Game "NNG"
|
||
|
|
World "Function"
|
||
|
|
Level 6
|
||
|
|
Title ""
|
||
|
|
|
||
|
|
open MyNat
|
||
|
|
|
||
|
|
Introduction
|
||
|
|
"
|
||
|
|
|
||
|
|
"
|
||
|
|
|
||
|
|
Statement
|
||
|
|
""
|
||
|
|
(P Q R : Type) : (P → (Q → R)) → ((P → Q) → (P → R)) := by
|
||
|
|
intro f
|
||
|
|
intro h
|
||
|
|
intro p
|
||
|
|
have j : Q → R := f p
|
||
|
|
apply j
|
||
|
|
apply h
|
||
|
|
exact p
|
||
|
|
|
||
|
|
Conclusion
|
||
|
|
"
|
||
|
|
|
||
|
|
"
|