2014-11-12 21:10:19 +00:00
|
|
|
import logic data.prod data.unit
|
|
|
|
|
|
|
|
|
|
definition mk_arrow (A : Type) (B : Type) :=
|
|
|
|
|
A → A → B
|
|
|
|
|
|
|
|
|
|
inductive confuse (A : Type) :=
|
2015-02-26 01:00:10 +00:00
|
|
|
| leaf1 : confuse A
|
|
|
|
|
| leaf2 : num → confuse A
|
|
|
|
|
| node : mk_arrow A (confuse A) → confuse A
|
2014-11-12 21:10:19 +00:00
|
|
|
|
|
|
|
|
check confuse.cases_on
|
