2013-12-30 21:35:37 +00:00
|
|
|
Import int.
|
2013-10-25 03:12:56 +00:00
|
|
|
Variable g {A : Type} (a : A) : A
|
|
|
|
Variable a : Int
|
|
|
|
Variable b : Int
|
|
|
|
Axiom H1 : a = b
|
|
|
|
Axiom H2 : (g a) > 0
|
2013-10-30 17:45:34 +00:00
|
|
|
Theorem T1 : (g b) > 0 := SubstP (λ x, (g x) > 0) H2 H1
|
2013-10-25 03:12:56 +00:00
|
|
|
Show Environment 2
|