13 lines
414 B
Text
13 lines
414 B
Text
set_option blast.strategy "cc"
|
|
|
|
example (C : nat → Type) (f : Π n, C n → C n) (n m : nat) (c : C n) (d : C m) :
|
|
f n == f m → c == d → n == m → f n c == f m d :=
|
|
by blast
|
|
|
|
example (f : nat → nat → nat) (a b c d : nat) :
|
|
c = d → f a = f b → f a c = f b d :=
|
|
by blast
|
|
|
|
example (f : nat → nat → nat) (a b c d : nat) :
|
|
c == d → f a == f b → f a c == f b d :=
|
|
by blast
|