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