2014-06-18 20:55:48 +00:00
|
|
|
inductive tree (A : Type) : Type :=
|
2014-08-22 22:46:10 +00:00
|
|
|
node : A → forest A → tree A
|
2014-10-14 03:48:23 +00:00
|
|
|
with forest : Type :=
|
2014-08-22 22:46:10 +00:00
|
|
|
nil : forest A,
|
|
|
|
cons : tree A → forest A → forest A
|
2014-06-18 20:55:48 +00:00
|
|
|
|
2014-10-14 03:48:23 +00:00
|
|
|
|
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}
|
2014-06-18 20:55:48 +00:00
|
|
|
|
|
|
|
print "==============="
|
|
|
|
|
|
|
|
inductive group : Type :=
|
2014-08-22 22:46:10 +00:00
|
|
|
mk_group : Π (carrier : Type) (mul : carrier → carrier → carrier) (one : carrier), group
|
2014-06-18 20:55:48 +00:00
|
|
|
|
|
|
|
check group.{1}
|
|
|
|
check group.{2}
|
2014-09-04 22:03:59 +00:00
|
|
|
check group.rec.{1 1}
|