2014-01-09 00:19:11 +00:00
|
|
|
import cast
|
2014-01-05 20:05:08 +00:00
|
|
|
variable Vector : Nat -> Type
|
|
|
|
variable n : Nat
|
|
|
|
variable v1 : Vector n
|
|
|
|
variable v2 : Vector (n + 0)
|
|
|
|
variable v3 : Vector (0 + n)
|
|
|
|
axiom H1 : v1 == v2
|
|
|
|
axiom H2 : v2 == v3
|
2014-01-06 03:10:21 +00:00
|
|
|
check htrans H1 H2
|
2014-01-06 05:45:31 +00:00
|
|
|
set::option pp::implicit true
|
2014-01-06 03:10:21 +00:00
|
|
|
check htrans H1 H2
|