import Int.
variable g : forall A : Type, A -> A.
variables a b : Int
axiom H1 : g _ a > 0