2014-11-04 01:55:59 +00:00
|
|
|
import logic data.unit
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
structure point (A : Type) (B : Type) :=
|
|
|
|
|
mk :: (x : A) (y : B)
|
|
|
|
|
|
|
|
|
|
inductive color :=
|
2015-02-26 01:00:10 +00:00
|
|
|
red | green | blue
|
2014-11-04 01:55:59 +00:00
|
|
|
|
|
|
|
|
structure color_point (A : Type) (B : Type) extends point A B :=
|
|
|
|
|
mk :: (c : color)
|
|
|
|
|
|
|
|
|
|
constant foo (p: point num num) : num
|
|
|
|
|
|
|
|
|
|
constant p : color_point num num
|
|
|
|
|
set_option pp.coercions true
|
|
|
|
|
check foo p
|
