2015-11-15 23:00:25 +00:00
|
|
|
import data.list
|
|
|
|
|
open perm
|
2015-12-07 19:59:21 +00:00
|
|
|
set_option blast.strategy "cc"
|
2015-11-15 23:00:25 +00:00
|
|
|
|
|
|
|
|
example (p : Prop) (l : list nat) : ¬ l ~ l → p :=
|
|
|
|
|
by blast
|
|
|
|
|
|
|
|
|
|
example (a : nat) : ¬ a = a → false :=
|
|
|
|
|
by blast
|
|
|
|
|
|
|
|
|
|
example (A : Type) (p : Prop) (a b c : A) : a = b → ¬ b = a → p :=
|
|
|
|
|
by blast
|
2015-11-15 23:08:20 +00:00
|
|
|
|
|
|
|
|
example (A : Type) (p : Prop) (a b c : A) : a = b → b ≠ a → p :=
|
|
|
|
|
by blast
|
