import logic data.prod data.unit

definition mk_arrow (A : Type) (B : Type) :=
A → A → B

inductive confuse (A : Type) :=
| leaf1 : confuse A
| leaf2 : num → confuse A
| node : mk_arrow A (confuse A) → confuse A

check confuse.cases_on