2014-07-07 19:40:00 +00:00
|
|
|
import logic
|
|
|
|
|
|
|
|
namespace N1
|
2014-10-02 23:20:52 +00:00
|
|
|
constant num : Type.{1}
|
|
|
|
constant foo : num → num → num
|
2014-08-07 23:59:08 +00:00
|
|
|
end N1
|
2014-07-07 19:40:00 +00:00
|
|
|
|
|
|
|
namespace N2
|
2014-10-02 23:20:52 +00:00
|
|
|
constant val : Type.{1}
|
|
|
|
constant foo : val → val → val
|
2014-08-07 23:59:08 +00:00
|
|
|
end N2
|
2014-07-07 19:40:00 +00:00
|
|
|
|
2014-09-03 23:00:38 +00:00
|
|
|
open N1
|
|
|
|
open N2
|
2014-10-02 23:20:52 +00:00
|
|
|
constants a b : num
|
|
|
|
constant f : num → val
|
2014-07-07 19:40:00 +00:00
|
|
|
coercion f
|
|
|
|
|
|
|
|
definition aux2 := foo a b
|
|
|
|
check aux2
|
|
|
|
theorem T3 : aux2 = N1.foo a b
|
2014-09-04 23:36:06 +00:00
|
|
|
:= eq.refl _
|