2014-01-05 12:05:08 -08:00
|
|
|
import Int.
|
|
|
|
|
variable g {A : Type} (a : A) : A
|
|
|
|
|
variable a : Int
|
|
|
|
|
variable b : Int
|
|
|
|
|
axiom H1 : a = b
|
|
|
|
|
axiom H2 : (g a) > 0
|
2014-01-05 19:10:21 -08:00
|
|
|
theorem T1 : (g b) > 0 := substp (λ x, (g x) > 0) H2 H1
|
2014-01-05 12:05:08 -08:00
|
|
|
print environment 2
|
