11 lines
212 B
Text
11 lines
212 B
Text
|
import logic data.prod data.unit
|
||
|
|
|
||
|
|
definition mk_arrow (A : Type) (B : Type) :=
|
||
|
|
A → A → B
|
||
|
|
|
||
|
|
inductive confuse (A : Type) :=
|
||
|
|
lean : confuse A,
|
||
|
|
node : mk_arrow A (confuse A) → confuse A
|
||
|
|
|
||
|
|
check confuse.cases_on
|