2013-12-29 03:20:04 +00:00
|
|
|
Import cast
|
2013-09-07 01:31:47 +00:00
|
|
|
Variable A : Type
|
|
|
|
Variable B : Type
|
|
|
|
Variable A' : Type
|
|
|
|
Variable B' : Type
|
2013-12-06 21:23:20 +00:00
|
|
|
Axiom H : (A -> B) = (A' -> B')
|
2013-09-07 01:31:47 +00:00
|
|
|
Variable a : A
|
|
|
|
Check DomInj H
|
|
|
|
Theorem BeqB' : B = B' := RanInj H a
|
2013-12-19 05:18:45 +00:00
|
|
|
SetOption pp::implicit true
|
2014-01-05 19:03:35 +00:00
|
|
|
print DomInj H
|
|
|
|
print RanInj H a
|