17 lines
296 B
Text
17 lines
296 B
Text
constant nat.add_assoc (a b c : nat) : (a + b) + c = a + (b + c)
|
|
|
|
|
|
namespace foo
|
|
attribute [simp] nat.add_assoc
|
|
print nat.add_assoc
|
|
end foo
|
|
|
|
print nat.add_assoc
|
|
|
|
namespace foo
|
|
print nat.add_assoc
|
|
attribute [simp] nat.add_comm
|
|
open nat
|
|
print "---------"
|
|
print [simp] default
|
|
end foo
|