17 lines
565 B
Text
17 lines
565 B
Text
set_option blast.strategy "cc"
|
|
|
|
example (p : nat → nat → Prop) (f : nat → nat) (a b c d : nat) :
|
|
p (f a) (f b) → a = c → b = d → b = c → p (f c) (f c) :=
|
|
by blast
|
|
|
|
example (p : nat → nat → Prop) (a b c d : nat) :
|
|
p a b → a = c → b = d → p c d :=
|
|
by blast
|
|
|
|
example (p : nat → nat → Prop) (f : nat → nat) (a b c d : nat) :
|
|
p (f (f (f (f (f (f a))))))
|
|
(f (f (f (f (f (f b)))))) →
|
|
a = c → b = d → b = c →
|
|
p (f (f (f (f (f (f c))))))
|
|
(f (f (f (f (f (f c)))))) :=
|
|
by blast
|