2015-02-05 20:48:55 +00:00
|
|
|
import data.int
|
|
|
|
|
open int
|
|
|
|
|
|
|
|
|
|
constant f : int → int
|
|
|
|
|
|
|
|
|
|
definition double (x : int) := x + x
|
|
|
|
|
|
|
|
|
|
theorem tst1 (x y : int) (H1 : double x = 0) (H2 : double y = 0) (H3 : f (double y) = 0) (H4 : y > 0) : f (x + x) = 0 :=
|
2015-03-28 00:26:06 +00:00
|
|
|
by rewrite [↑double at H1, H1, H2 at H3, H3]
|
