12 lines
200 B
Text
12 lines
200 B
Text
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
|
|
|
|
attribute foo [simp]
|
|
attribute bla [simp]
|
|
|
|
print [simp]
|