2014-01-05 20:05:08 +00:00
|
|
|
import Int.
|
|
|
|
variable list : Type -> Type
|
|
|
|
variable nil {A : Type} : list A
|
|
|
|
variable cons {A : Type} (head : A) (tail : list A) : list A
|
|
|
|
definition n1 : list Int := cons (nat_to_int 10) nil
|
|
|
|
definition n2 : list Nat := cons 10 nil
|
|
|
|
definition n3 : list Int := cons 10 nil
|
|
|
|
definition n4 : list Int := nil
|
|
|
|
definition n5 : _ := cons 10 nil
|
2013-09-08 02:40:40 +00:00
|
|
|
|
2014-01-09 16:33:52 +00:00
|
|
|
set_option pp::coercion true
|
|
|
|
set_option pp::implicit true
|
2014-01-05 20:05:08 +00:00
|
|
|
print environment 1.
|