2015-06-02 00:53:25 +00:00
|
|
|
open nat
|
|
|
|
|
|
|
|
|
|
constant f : nat → nat
|
|
|
|
|
constant g : nat → nat
|
|
|
|
|
|
|
|
|
|
axiom foo : ∀ x, x > 0 → f x = 0 ∧ g x = 1
|
|
|
|
|
axiom bla : ∀ x, g x = f x + 1
|
|
|
|
|
|
2015-07-22 16:01:42 +00:00
|
|
|
attribute foo [simp]
|
|
|
|
|
attribute bla [simp]
|
2015-06-02 00:53:25 +00:00
|
|
|
|
2015-07-22 16:01:42 +00:00
|
|
|
print [simp]
|
