2014-06-18 20:55:48 +00:00
|
|
|
inductive tree.{u} (A : Type.{u}) : Type.{max u 1} :=
|
2014-08-22 22:46:10 +00:00
|
|
|
node : A → forest.{u} A → tree.{u} A
|
2014-06-28 22:33:56 +00:00
|
|
|
with forest.{u} (A : Type.{u}) : Type.{max u 1} :=
|
2014-08-22 22:46:10 +00:00
|
|
|
nil : forest.{u} A,
|
|
|
|
|
cons : tree.{u} A → forest.{u} A → forest.{u} A
|
2014-06-18 20:55:48 +00:00
|
|
|
|
|
|
|
|
check tree.{1}
|
|
|
|
|
check forest.{1}
|
2014-09-04 22:03:59 +00:00
|
|
|
check tree.rec.{1 1}
|
|
|
|
|
check forest.rec.{1 1}
|
