2014-01-05 12:05:08 -08:00
|
|
|
import cast
|
|
|
|
|
variable A : Type
|
|
|
|
|
variable B : Type
|
|
|
|
|
variable A' : Type
|
|
|
|
|
variable B' : Type
|
|
|
|
|
axiom H : (A -> B) = (A' -> B')
|
|
|
|
|
variable a : A
|
2014-01-05 19:10:21 -08:00
|
|
|
check dominj H
|
|
|
|
|
theorem BeqB' : B = B' := raninj H a
|
2014-01-05 21:45:31 -08:00
|
|
|
set::option pp::implicit true
|
2014-01-05 19:10:21 -08:00
|
|
|
print dominj H
|
|
|
|
|
print raninj H a
|
