2014-01-05 12:05:08 -08: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-07 19:40:40 -07:00
|
|
|
|
2014-01-09 08:33:52 -08:00
|
|
|
set_option pp::coercion true
|
|
|
|
set_option pp::implicit true
|
2014-01-05 12:05:08 -08:00
|
|
|
print environment 1.
|